استخدام دالة Replace

[علي هندسة]

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

لدي كود يقوم باستدعاء مديول وعمل هذا المديول باعادة تغيير حرف او كلمة او رقم في حقل حسب ما مثبت بالايعاز .

المشكلة لدي هي انه لايعمل لدي بالنسبه لسجل التاريخ ولا بالنسبة للحقول الفارفة .

يرجى التعديل عليه ليقبل الحقول الفارغة وحقل التاريخ وشكرا

الكود هو 

Function change_characters(str_Name As String) As String
  
    "(str_Name = Replace(str_Name, "1", "2
    change_characters = str_Name
    End Function

حيث ان الرقم "1" يمثل الرقم القديم و "2" يمثل الرقم الجديد

[SEMO.Pa3x]

هل تريد الاستبدال كما هو يبقى ؟ يبحث عن الرقم 1 ويستبدله بالرقم اثنان سواء كان المدخل تاريخ, رقم, نص.. الخ ؟

[علي هندسة]

37 دقائق مضت, SEMO.Pa3x said:

هل تريد الاستبدال كما هو يبقى ؟ يبحث عن الرقم 1 ويستبدله بالرقم اثنان سواء كان المدخل تاريخ, رقم, نص.. الخ ؟

نعم اريده ان يستبد الحقل وان كان فارغ وحقل التاريخ ايظا

 

[SEMO.Pa3x]

9 دقائق مضت, علي هندسة said:

نعم اريده ان يستبد الحقل وان كان فارغ وحقل التاريخ ايظا

 

 

Function change_characters(str_Name As String) As String
    str_Name = Replace(str_Name, "1", "2")
    change_characters = str_Name
End Function

 

الاستدعاء كالاتي, لنفرض انك تريد عرض الناتج في MsgBox

 

MsgBox change_characters(Nz(x))

 

 

حيث x هو النص او الرقم او التاريخ الذي تريد استبداله او اسم حقل النص

 

حسنين

[علي هندسة]

منذ ساعه, SEMO.Pa3x said:

حيث x هو النص او الرقم او التاريخ الذي تريد استبداله او اسم حقل النص

استاذي الفاضل SEMO.Pa3x

ما احتاجه هو تعديل الحقل بالكامل كان يكون فيه ارقام او احرف او فارغ فيقوم باستبداله بكلمة او رقم محدد وشكرا

[SEMO.Pa3x]

7 دقائق مضت, علي هندسة said:

استاذي الفاضل SEMO.Pa3x

ما احتاجه هو تعديل الحقل بالكامل كان يكون فيه ارقام او احرف او فارغ فيقوم باستبداله بكلمة او رقم محدد وشكرا

 

تفضل

اسم الحقل = change_characters(Nz([اسم الحقل]))

 

مثل كأن يكون اسم الحقل txt_fullName

 

txt_fullName = change_characters(Nz([txt_fullName]))

 

تم تعديل أبريل 16, 2019 بواسطه SEMO.Pa3x

[علي هندسة]

58 دقائق مضت, SEMO.Pa3x said:

تفضل

اسم الحقل = change_characters(Nz([اسم الحقل]))

 

مثل كأن يكون اسم الحقل txt_fullName

 

txt_fullName = change_characters(Nz([txt_fullName]))

 

اسف استاذي الفاضل لم استطع تطبيق المثال اعلاه

هل يمكن مساعدتي اكثر وشكرا

[SEMO.Pa3x]

1 ساعه مضت, علي هندسة said:

اسف استاذي الفاضل لم استطع تطبيق المثال اعلاه

هل يمكن مساعدتي اكثر وشكرا

ارفق قاعدتك حتى اعدلها لك

[علي هندسة]

43 دقائق مضت, SEMO.Pa3x said:

ارفق قاعدتك حتى اعدلها لك

تفضل استاذ SEMO.Pa3x

 

examp 2.accdb

[SEMO.Pa3x]

 

اريد ان يتم تغيير حتى الحقول الفارغة! ماذا تقصد ؟؟؟

[علي هندسة]

الان, SEMO.Pa3x said:

اريد ان يتم تغيير حتى الحقول الفارغة! ماذا تقصد ؟؟؟

يعني عند الضغط على زر تغيير التاريخ يتم تغيير التاريخ الى يوم محدد لجميع تواريخ الحقل او العمود حتى لو كانت التواريخ مختلفة او فارغه بدون تاريخ 

يعني تغيير للكل بغض النظر عن هنالك تاريخ او لا او اختلاف التواريخ

وشكرا

[SEMO.Pa3x]

1 دقيقه مضت, علي هندسة said:

يعني عند الضغط على زر تغيير التاريخ يتم تغيير التاريخ الى يوم محدد لجميع تواريخ الحقل او العمود حتى لو كانت التواريخ مختلفة او فارغه بدون تاريخ 

يعني تغيير للكل بغض النظر عن هنالك تاريخ او لا او اختلاف التواريخ

وشكرا

 

حسناً, جرب وأخبرني النتيجة.

 

 

examp 21_semo.accdb

[علي هندسة]

15 دقائق مضت, SEMO.Pa3x said:

حسناً, جرب وأخبرني النتيجة.

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

[SEMO.Pa3x]

7 دقائق مضت, علي هندسة said:

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

جرب الان

examp 21_semo.accdb

[علي هندسة]

23 دقائق مضت, SEMO.Pa3x said:

جرب الان

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

وتضهر لي رسالة خطأ 

 

[SEMO.Pa3x]

 

 

examp 21_semo.accdb

تم تعديل أبريل 17, 2019 بواسطه SEMO.Pa3x

[علي هندسة]

13 ساعات مضت, SEMO.Pa3x said:

examp 21_semo.accdb

شكرا استاذنا الفاضل SEMO.Pa3x المحترم

وهو المطلوب