مثال على إزالة الأحرف والرموز الغير رقمية من حقل نصي والابقاء على الارقام فقط..

[msak2004 213]

بسم الله الرحمن الرحيم ..

أساتذتي الكرام مشرفي وأعضاء الفريق العربي ...السلام عليكم ورحمة الله وبركاته ..

قد بحثت عن كود إزالة الأحرف والرموز الغير رقمية من حقل نصي والابقاء على الارقام فقط ووجدت الكود المناسب لذلك في موقع الميكروسوفت وطبقته عندي وكانت النتيجة ممتازة وقد عملت لكم مثال لتعم الفائدة على الجميع ...

الموضوع بسيط جدا : سنقوم بإنشاء دالة باسم RemoveAlphas

اكتب الكود التالي في وحدة نمطية جديدة وأحفظه بأي أسم :

Function RemoveAlphas(ByVal AlphaNum As Variant)

   Dim Clean As String
   Dim Pos, A_Char$

   Pos = 1
   If IsNull(AlphaNum) Then Exit Function

   For Pos = 1 To Len(AlphaNum)
      A_Char$ = Mid(AlphaNum, Pos, 1)
      If A_Char$ >= "0" And A_Char$ <= "9" Then
         Clean$ = Clean$ + A_Char$
      End If
   Next Pos

   RemoveAlphas = Clean$

End Function

ممكن أن تستخدم هذه الدالة في نموذج للتدقيق على حقل رقم الهاتف ، مثلا بعد الاخال تقوم الدالة بشكل آلي بالتدقيق على المدخلات بحقل رقم الهاتف وحذف الحروف والرموز الغير رقمية ..

وتنفيذ هذا الأمر بسيط جدا في النموذج وعند خاصية بعد التحديث للحقل المسمى الهاتف (مربع نص) اكتب الكود التالي :

Me![phone] = RemoveAlphas(Me![phone])

وومكن أيضا استخدام هذه الدالة في استعلام التحديث وذلك لتصحيح عدد غير محدود من السجلات بأمر واحد

وينفذ هذا الامر بإنشاء استعلام تحديث ووضع في الصف المسمى (تحديث إلى ) وتحت حقل الهاتف الأمر التالي :

RemoveAlphas([Phone])

مرفق مثال على ذلك وارجو أن أكون وفقت بتوصيل الفكرة لكم ..

تقبلوا جميعا تحياتي ..

أخوكم بالله أبو عدنان ....

RemoveAlphas.rar

[ايهاب عثمان 276]

جزاك الله خيراً أخي محمد على هذه الفكرة الجميلة

إقتراح

بخصوص هذا السطر...

If A_Char$ >= "0" And A_Char$ <= "9" Then

يمكن استبداله بالاتي :

If IsNumeric([A_Char$] Then

[msak2004 213]

جزاك الله خيراً أخي محمد على هذه الفكرة الجميلة

إقتراح

بخصوص هذا السطر...

If A_Char$ >= "0" And A_Char$ <= "9" Then

يمكن استبداله بالاتي :

If IsNumeric([A_Char$] Then

بارك الله بك استاذي الكريم ونفعنا الله ببحر علمك وقد اسعدني جدا مروركم العطر وإضافتكم الجميلة ..

استاذي الكريم تم تجربة ما تفضلت به وما شاء الله فكرة حلوة وممكن التلاعب كما تريد المهم ان نصل الى ما نريد ....

لو يسمح لي الأستاذ ايهاب بإعادة ضبط الأقواس ..

If IsNumeric(A_Char$) Then

تقبل مزيدا من الاحترام والتقدير ...

تم تعديل 5 Jan 2010 بواسطه moh samer ali

[طالب علم مبتدىء 65]

جزاكم الله خيرا

تمنياتى لكم بالتوفيق