• 0
msak2004

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

سؤال

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

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

إقتراح

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

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

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

If IsNumeric([A_Char$] Then

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

إقتراح

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

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

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

If IsNumeric([A_Char$] Then

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

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

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

If IsNumeric(A_Char$) Then

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

تم تعديل بواسطه moh samer ali
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .