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

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

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

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

الموضوع بسيط جدا : سنقوم بإنشاء دالة باسم 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