توزيع الرقم القومي الى 14 خانة

[علاء طه]

أيها الاخوة الكرام أرجو من سيادتكم شرح دالة في استعلام تقوم يتوزيع خانة الرقم القومي الى 14 خانة

اخر الكريم مرفق قاعدة بيانات للمدرسة اريد تقسيم خانة الرقم القومي الى 14 خانة اى 14 عمود

قاعدة بيانات مدرسة 2018.rar

تم تعديل مارس 25, 2018 بواسطه علاء طه

[kaser906]

6 دقائق مضت, علاء طه said:

أيها الاخوة الكرام أرجو من سيادتكم شرح دالة في استعلام تقوم يتوزيع خانة الرقم القومي الى 14 خانة

لو وضعت مرفق ليساعدكالأخوة بالتطبيق أسهل من الشرح الطويل

[Elsayed Bn Gemy]

انشئ استعلام جديدا

وادرج به حقل الرقم القومى من الجدول

وقم بانشاء حقل جديد فى الاستعلام وادرج به هذه الدالة  مع تغيير مسمى حقل الرقم القومى بالمسى الموجود فى الجدول

Expr1: Mid([الرقم_القومى];1;1) ----------- الرقم الاول من اليسار 

Expr2: Mid([الرقم_القومى];2;1)  ------------- الرقم الثانى من اليسار 

Expr3: Mid([الرقم_القومى];3;1)  ------------- الرقم الثالث من اليسار 

وهكذا 

 

[أبو آدم]

أخي علاء

المرفق كود حسب طلبك .... و يبقى عليك التطبيق حسب قاعدة بياناتك و تحليلك للأمر

Sub StringDigits()
'' By Nart Lebzo for Officena.net
Dim Counter, d As Integer
Dim MyString As String
 
MyString = "30707212800148"
 
For Counter = 1 To Len(MyString)
    'do something for each Digit in string
    'here is a msgbox for each Digit
   MsgBox Mid(MyString, Counter, 1)
    
Next
 
End Sub