[ تمت الإجابة ]إستعلام لفصل الأرقام عن الحروف

figo82eg كتب:

هل يوجد إستعلام لفصل الأرقام عن الحروف

مثل لدي هذا النص : 89 شارع الحرية - المحطة الجديدة

اريد فصل رقم 89 في حقل و باقي النص في حقل أخر

نعم أخي الكريم ممكن ذلك .. راجع هذا الرابط ..

/index.php?showtopic=211894

وهذا تعديل على الكود ليناسب طلبك بالظبط ما عليك الا عمل حقلين بنفس البيان وفي كل مرة نفذ عليهم هذا الكود المعدل في الرابط السابق

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 IsNumeric(A_Char$) Then
   '   وهذا كود الغاء الارقام والابقاء على الحروف
    '  If Not IsNumeric(A_Char$) Then
         Clean$ = Clean$ + A_Char$
      End If
   Next Pos

   RemoveAlphas = Clean$

End Function

تقبل تحياتي ..

شكرا جزيلاً اخي الكريم وجعله الله في ميزان حسناتك هذا ما اريده فعلاً

ارجو من الأخ moh samer ali عمل مثال لأني حاولت ولم استطيع ان افصل الأرقام والحرف في حقلين مختلفين

ومع شكري وتحياتي علي الرابط الذي استفدت منه في حل كثير من المشكلات التي تواجهني

figo82eg كتب:

ارجو من الأخ moh samer ali عمل مثال لأني حاولت ولم استطيع ان افصل الأرقام والحرف في حقلين مختلفين

ومع شكري وتحياتي علي الرابط الذي استفدت منه في حل كثير من المشكلات التي تواجهني

حاضر أخي الكريم إن شاء الله اليك الطريقة ..

مثلا سنستخدم المثال الذي بالرابط .. ننشأ حقلين جديدين اسمهم Phone_A - Phone_N الأول سنلغي منه الأرقام والثاني سنلغي منه الحروف ماشي يا عم ..

1- سننفذ الاستعلام المسمى (هذا الستعلام لنقل القيم الى الحقلين الجدد) وذلك لنقل قيمة الحقل Phone الى الحقلين الجديدين .

2- سنبدأ بتفيذ الاستعلام المسمى Quenum وذلك لألغاء الارقام من الحقل Phone_N

3- وننتهي بتنفيذ الاستعلام المسمى QueRemoveAlphas وذلك لألغاء الارقام من الحقل Phone_A.

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

وبالتوفيق ..

أخوك أبو عدنان

RemoveAlphas_up.rar

بارك الله فيك والله ما قصرت مش عارف اشكرك ازاي

hamidymom كتب:

السلام عليكم ورحمة الله وبركاته

ما شاء الله عليك يا أبو عدنان ،

أكواد رائعة ، جزاك الله ألف ألف خير

وجعلك ذخراً للإسلام والمسلمين

تقبل فائق إحترامي وتقديري +1

أخوك محمد

لا شكر على واجب أخي الكريم figob2eg بارك الله بك ..

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

جزاك الله خير وهذا +1 سأحتفظ به للذكرى من أخ حبيب .. :)

تحياتي للجميع ..