figo82eg

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

9 ردود في هذا الموضوع

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

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

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

0

شارك هذا الرد


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

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

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

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

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

http://www.arabteam2000-forum.com/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
0

شارك هذا الرد


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

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

0

شارك هذا الرد


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

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

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

0

شارك هذا الرد


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

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

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

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

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

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

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

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

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

وبالتوفيق ..

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

RemoveAlphas_up.rar

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

شارك هذا الرد


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

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

1

شارك هذا الرد


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

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

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

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

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

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

أخوك محمد

0

شارك هذا الرد


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

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

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

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

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

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

أخوك محمد

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

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

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

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

1

شارك هذا الرد


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

أخي أبو عدنان

الله يحفظك يا رب

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

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

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

ما تؤاخذني على ال +1 التي راحت لأخي فيجو بدل ما تروح لعندك :) ولكن بجد الأخ فيجو يستاهل ، فهو دائماً ينشط لنا ذاكرتنا بأسئلته ، ماهيك فيجو ؟ :)

أخي أبو عدنان لك مني +1 غداً أو حتى يسمح لي ، لأنه غير مسموح لي اليوم ، فقد تعديت المسموح به :)

أخوك المحب : أبو وليد

تم تعديل بواسطه hamidymom
0

شارك هذا الرد


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

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

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



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

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

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