أعزائي أعضاء ومشرفي المنتدى ..
السلام عليكم ورحمة الله وبركاته
وجدت هذا المثال الجميل في منتدى اوفسيناخاص بتجزئة الاسم الرباعي إلى اربع خانات ..
وسؤالي هو هل نستطيع تطبيق نفس الطريقة ولكن على حقل السجل المدني بحيث يتم تقسيمه لعشر خانات ( مربعات نص)
تقسيم حقل السجل المدني لعشر خانات
مغلق
بارك الله فيكما أخي الحاكم واكسير وجزاكم الله خير على هذه السرعة في الرد ... هذا هو المطلوب
أما أنا فشاهدت مشاركتي حاكم وإكسير
وأقول زيادة الخيرين ثلاثة :)
الكود بعد الإختصار
For No = 1 To 10
Me("txt" & No) = Mid(txt, No, 1)
Next Noاخواني اشكركم واسمحو لي بطرح مشاركتي،، والتي لا تختلف كثيرا عن فكرة الاستاذ Accessna ولكنها تتعلق بحل مشكلة كون الرقم ليس بطول 10 خانات،، وهذا وارد الحدوث لدينا في فلسطين فبعض ارقام الهويات تتكون من ارقام اقل من 9 ارقام
ففي احد البرامج التي بنيتها لتسهيل عمل المشرفين التربويين في ما يتعلق بنظام العلامات والتقارير الاشرافية، وجدت حلا بسيطا لمشكلة ارقام هويات بعض المعلمين، بالكود التالي،
Private Sub doit_Click() If Len(Me.TeachId) < 9 Then x = 9 - Len(Me.TeachId) Me.Tidsp = Me.TeachId For i = 1 To x Me.Tidsp = "*" & Me.Tidsp Next i End If End Sub
طبعا هنا تقوم الطريقة على وضع اشارة * بدل الفراغ، وهو الذي يحوله التقرير النهائي من خلال التنسيق الشرطي الى فراغ مرة اخرى...
واستعملت هذه الطريقة حتى يبدا تعبئة الخانات من الاتجاه الصحيح،، اي من اليسار الى اليمين، ويكون الفراغ جهة اليسار...
جربوه في امثلتكم فضلا واعطوني رايكم..
همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
هذا الموضوع مغلق.