تغيير كلمة أو جملة من خلال جدول (Replace)

[محمد احمد لطفى]

هناك استعلام لتغير الكلمات ولكن أريد بدل اضافة الكلمات فى الوحدة النمطية أريدها عن طريق الجدول بدالة Replace 
و هل يمكن لدالة Replace أن تغير كامل الجملة ([الحقل]) و ليس كلمة واحدة 
وجزاكم الله كل خيراً  

Replace.accdb

[kanory]

2 ساعات مضت, محمد احمد لطفى said:

هناك استعلام لتغير الكلمات ولكن أريد بدل اضافة الكلمات فى الوحدة النمطية أريدها عن طريق الجدول بدالة Replace 
و هل يمكن لدالة Replace أن تغير كامل الجملة ([الحقل]) و ليس كلمة واحدة 
وجزاكم الله كل خيراً  

 

ليش ما يكون عن طريق ربط الجدولين بعلاقة ثم عمل استعلام لها ..... انظر 

او استخدم طريقة موضوعك السابق ............................

 

في 10‏/4‏/2023 at 15:05, kanory said:

طيب الكود التالي يقوم بالاتي ::::::::

- البحث عن العبارة او العبارات في الجدول سواءا كانت تلك العبارة في بداية النص او وسطها او نهايتها ومقارنتها بالجدول الاخر لجلب المرادف لها .

- حذف تلك العبارة من الجدول نهائيا ......

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

 

Replace&add.mdb 452 kB · 13 downloads

 

تم تعديل مايو 6, 2023 بواسطه kanory

[Ezril]

صح في كود اعتقد عند @Moosak صح وبداله # * $&- _  وحتى عند استاذ خالد @متقاعد "",  او I,  (  ) 

والابسط من المثال حقل ( غير منضم = حقل ) لان كامل مايحتاج تعديل او اقتباس 

او ( حقل = حقل ) واذا عدد الى جدول كامل! استخدم استعلام تحديث اذا كان نوع حقل نعم / لا  تحديث  استعلامين فوق بعض عند معيار = نعم واستعلام = لا اما مرفقات بداله من مسار الى حقل مرفقات = ID 

او قصدك اكتب في حقل ويستبدل في الجدول استخدم ميكرو بحث واستبدال متوفره! فقط اضافة زر!  

تم تعديل مايو 6, 2023 بواسطه Ezril

[محمد احمد لطفى]

أستاذ @kanory

جاء فى ذهنى هذا الموضوع و أستخدمه فى عملى 

و لكن الميزة فى دالة Replace  أنها سريعة واحتاجها فى مربع نص 

عيبها أن اضافة الكلمات تكون فى الوحدة النمطية ..., وقد تأخذ كلمات كثيرة 

فكنت أريد بدلا من أن تكون اللمات فى الوحدة النمطية تكون فى جدول  

كلمات فقط  الجملة ممكن استخدام دالة DlookUp 
 

تم تعديل مايو 6, 2023 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

المقصد أن دالة Replace   تكون فى الوحدة النمطية 

 

Function E_Word(E As String) As String
E = Replace(E, "محمد", "Mohammed")
E_Word = E
End Function

فهل يمكن ربط الكلمتين عن طريق الجدول 😇

[kanory]

19 ساعات مضت, محمد احمد لطفى said:

المقصد أن دالة Replace   تكون فى الوحدة النمطية 

 

Function E_Word(E As String) As String
E = Replace(E, "محمد", "Mohammed")
E_Word = E
End Function

فهل يمكن ربط الكلمتين عن طريق الجدول 😇

في المثال عبارة عن ترجمة اسماء ....... هل ملفك الاساسي هو ترجمة ام هذا مجرد مثال فقط .....

[محمد احمد لطفى]

أستاذى @kanory

نعم أعمل على ترجمة اسماء ولكن ممكن الاستفاده به فى أشياء أخرى

[Ezril]

هل ينفع بتحكم مسافه زائده والغاء مسافات وجعل الاسم فقط من غير مسافات وهل ينفع مع حقل بسطر جديد هه 

[دروب مبرمج]

اعتقد هذا هو طلبك

Replace.accdb

[محمد احمد لطفى]

جزاك الله أستاذى @دروب مبرمج

دالة DlookUp تنقل الاسم كاملا 

والترجمة من الانترنت ليست مظبوطة 100% 



 

[Eng.Qassim]

فعلا ترجمة الاسماء العربية من الانترنت غير دقيقة 

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

[محمد احمد لطفى]

تم اضافة 500 اسم وهو ملف من المنتدى 

هل يمكن استخدام دالة Replace 

جزاك الله خيراً @Eng.Qassim
 

Replace.accdb

[محمد احمد لطفى]

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

 

Replace.accdb

[دروب مبرمج]

تفضل هذا التعديل
خذها قاعدة
الاختصار في شرح المطلوب و استخدام العبارات البسيطة يسهل وصول العلومة للمتلقي

في آخر طلب لك اوجزت و اوصلت ما طلبته لقلوبنا >>> نعم لقلوب لحبنا لمصر و اهل مصر الكرام الأوفياء

تفضل التعديل و اتمنى ان تكون تلك الفكرة هي مرادك

 

 

Replace (1).accdb

تم تعديل مايو 11, 2023 بواسطه دروب مبرمج

[محمد احمد لطفى]

بسم الله ماشاء الله  أستاذى @دروب مبرمج أسف أنى لم أعرف أوصل المعلومة 

ممكن طلب أخير مثل دالة Replace  

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

ربنا يبارك فى حضرتك ويحفظك 

[دروب مبرمج]

تفضل التعديل

راح يضيف نفس الاسم اذا ما وجده ضمن القائمة الاعجمة

 

 

Replace (1).accdb

[محمد احمد لطفى]

بارك الله فيك وربنا يزيدك من فضله وعطائه حتي ترضي