تقسيم وتوزيع النص على عدة حقول ( تجزئة الاسم الرباعي )
السلام عليكم ورحمة الله وبركاته
اخواني الاكارم تحية طيبة وبعد :
الدالة Split هي المسؤلة عن تقسيم السلسلة النصية ويمكننا من خلالها ارجاع أو حذف الجزء الذي نحدده
ويتم توظيفها في النماذج والتقارير داخل محرر الفيجوال على النحو التالي :
name1 = Split(FullName, " ")(0)
name2 = Split(FullName, " ")(1)
name3 = Split(FullName, " ")(2)
name4 = Split(FullName, " ")(4)
- باعتبار FullName هو حقل الاسم الكامل
علما انه يمكن كتابة الاسم داخل الكود بين علامتي تنصيص مزدوجتين وستقوم الدالة بارجاع ال
وإياك اخي الحبيب
في وحدة نمطية عامة نلصق الجملة البرمجية التالية :
Public Function qsplit(FullName As String, i As Integer)
On Error Resume Next
qsplit = Split(FullName, " ")(i)
End Function
لاحظ اننا انشأنا دالة جديدة بناء على الدالة الاصلية
وجعلنا لها اسما قريبا من الدالة الاصلية حتى يتم التعرف عليها وعلى عملها من اول نظرة
ولاحظ ايضا ما حدث لوسائط الدالة الاصلية وترتيبها حيث سيتم توظيف الدالة الجديدة داخل الاستعلام على النحو التالي :
name1 : qsplit(FullName; 0)
name2 : qsplit(
