اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

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

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

تم تعديل بواسطه علاء طه
قام بنشر
6 دقائق مضت, علاء طه said:

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

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

قام بنشر

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

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

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

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

 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information