اذهب الي المحتوي
أوفيسنا

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


MTGFM
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

 

تم تعديل بواسطه فايز..
رابط هذا التعليق
شارك

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

العفو

 


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


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

 

جعفر

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

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


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

 

جعفر

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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)

 

جعفر

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information