MTGFM قام بنشر مارس 22, 2020 مشاركة قام بنشر مارس 22, 2020 السلام عليكم ورحمة الله وبركاته الكود التالي للأستبدال لكنه يستبدل الحرف في كل الجملة كيف أجعله يستبدل الحرف الأول فقط [m_name] = Replace([m_name], "أ", "ا") رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر مارس 22, 2020 مشاركة قام بنشر مارس 22, 2020 (معدل) 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 بواسطه فايز.. رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 22, 2020 مشاركة قام بنشر مارس 22, 2020 جرب هذا الكود : [m_name] = Replace(left([m_name],1,1), "أ", "ا") جعفر رابط هذا التعليق شارك More sharing options...
MTGFM قام بنشر مارس 22, 2020 الكاتب مشاركة قام بنشر مارس 22, 2020 2 ساعات مضت, jjafferr said: جرب هذا الكود : [m_name] = Replace(left([m_name],1,1), "أ", "ا") جعفر هذي النتيجة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 22, 2020 مشاركة قام بنشر مارس 22, 2020 العفو [m_name] = Replace(Mid([m_name],1,1), "أ", "ا") او [m_name] = Replace(left([m_name],1), "أ", "ا") جعفر رابط هذا التعليق شارك More sharing options...
MTGFM قام بنشر مارس 22, 2020 الكاتب مشاركة قام بنشر مارس 22, 2020 7 ساعات مضت, jjafferr said: العفو [m_name] = Replace(Mid([m_name],1,1), "أ", "ا") او [m_name] = Replace(left([m_name],1), "أ", "ا") جعفر حبيبنا واستاذنا جعفر شكراً لمجهوداتك .. ولكن الكود يستبدل الأسم كامل بحرف (ا) مثلا لو كتبت (أحمد) يستبدلها وتصبح (ا) ويحذف باقي الحروف رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر مارس 23, 2020 أفضل إجابة مشاركة قام بنشر مارس 23, 2020 كذلك اعتذر منك ، اعطيتك امر اول حرف ، ونسيت الباقي !! [m_name] = Replace(Mid([m_name],1,1), "أ", "ا") & Mid([m_name],2) او [m_name] = Replace(left([m_name],1), "أ", "ا") & Mid([m_name],2) جعفر 1 1 رابط هذا التعليق شارك More sharing options...
MTGFM قام بنشر مارس 23, 2020 الكاتب مشاركة قام بنشر مارس 23, 2020 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) جعفر تسلم استاذنا القدير جعفر الكود يعمل بشكل سليم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.