استبدال الحرف الأول فقط !

[MTGFM]

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

 

[m_name] = Replace([m_name], "أ", "ا")

[عفرنس]

20 دقائق مضت, MTGFM said:

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

 

[m_name] = Replace([m_name], "أ", "ا")

ضع هذا الكود في وحدة نمطية لكن تنبه ( هذا الكود يغير آخر حرف في الكلمة وليس الأول ) فإذا استطعت أن تغير فيه ما تريد فاعل .. لأنني لا أعرف كيف أعدله ,,

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

Function C_Word(T As String) As String
If Right(T, 1) = "ي" Then
T = Replace(T, "ي", "ى")
End If
T = Replace(T, "ي", "ى")
C_Word = T

End Function

 

تم تعديل مارس 22, 2020 بواسطه فايز..

[jjafferr]

جرب هذا الكود :

[m_name] = Replace(left([m_name],1,1), "أ", "ا")

 

جعفر

[MTGFM]

2 ساعات مضت, jjafferr said:

جرب هذا الكود :

[m_name] = Replace(left([m_name],1,1), "أ", "ا")

 

جعفر

هذي النتيجة
 

[jjafferr]

العفو

 

[m_name] = Replace(Mid([m_name],1,1), "أ", "ا")


او
[m_name] = Replace(left([m_name],1), "أ", "ا")

 

جعفر

[MTGFM]

7 ساعات مضت, jjafferr said:

العفو

 

[m_name] = Replace(Mid([m_name],1,1), "أ", "ا")


او
[m_name] = Replace(left([m_name],1), "أ", "ا")

 

جعفر

حبيبنا واستاذنا جعفر
شكراً لمجهوداتك .. ولكن الكود يستبدل الأسم كامل بحرف (ا)
مثلا لو كتبت (أحمد) يستبدلها وتصبح (ا) ويحذف باقي الحروف

[jjafferr]

كذلك اعتذر منك ، اعطيتك امر اول حرف ، ونسيت الباقي !!

 

[m_name] = Replace(Mid([m_name],1,1), "أ", "ا") & Mid([m_name],2)


او
[m_name] = Replace(left([m_name],1), "أ", "ا") & Mid([m_name],2)

 

جعفر

[MTGFM]

5 ساعات مضت, jjafferr said:

كذلك اعتذر منك ، اعطيتك امر اول حرف ، ونسيت الباقي !!

 

[m_name] = Replace(Mid([m_name],1,1), "أ", "ا") & Mid([m_name],2)


او
[m_name] = Replace(left([m_name],1), "أ", "ا") & Mid([m_name],2)

 

جعفر

تسلم استاذنا القدير جعفر
الكود يعمل بشكل سليم