كيف تحويل أي شرطة مائلة / أو قوس () في الخلية إلى شرطة كهذه -

[حامل المسك]

السلام عليكم ومساؤكم سعيد..

أساتذتنا الكرام..

لدي برنامج اكسس به خلايا بعض الخلايا تحوي قوس مثلا أو بعضها يحوي شرطة مائلة /

كيف أجعل عن طريق الاستعلام كود يحول أي شرطة في الخلية أو أي قوس مثلا إلى علامة شرطة  هكذا -

فمثلا هذه العبارة

رقم المعاملة (26) في 15/1/1/1444

فتكون بعد التحويل -26- في 15-1-1444

دمتم بخير

تم تعديل أغسطس 21, 2022 بواسطه حامل المسك

[ابوخليل]

عليكم السلام .. اهلا ابا انس

Me.text1 = Replace([text1], "/", "-") ' في الحدث المناسب في المحرر

text2 : Replace([text1]; "/"; "-") ' في الاستعلام 

لاحظ انك ان استخدمت الكود سوف تتغير وتتحدث البيانات في الجدول

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

لذا ننصح بالعمل على نسخة للتجربة حتى اذا اصبحت النتيجة حسب المطلوب تطبق عملك على برنامجك

[حامل المسك]

6 دقائق مضت, ابوخليل said:

text2 : Replace([text1]; "/"; "-") ' في الاستعلام 

حياك الله أبا خليل.. ونعم الخليل أنت..

 

هذا يقتصر على علامة الشرطة / أريد أن أضيف إليها علامة الأقواس بمعنى تكون إذا وجدت علامة شرطة / أو قوس ( أو قوس ) أو فاصلة ، استبدلها بعلامة "-"

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

[kanory]

11 دقائق مضت, حامل المسك said:

حياك الله أبا خليل.. ونعم الخليل أنت..

 

هذا يقتصر على علامة الشرطة / أريد أن أضيف إليها علامة الأقواس بمعنى تكون إذا وجدت علامة شرطة / أو قوس ( أو قوس ) أو فاصلة ، استبدلها بعلامة "-"

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

Replace(Replace(Replace([text1];"/";"-");"(";"-");")";"-")

 

[حامل المسك]

5 دقائق مضت, kanory said:

Replace(Replace(Replace([text1];"/";"-");"(";"-");")";"-")

إبداع بتكامل بناء بين أساتذة فضلاء ..

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

 

[ابوخليل]

في 21‏/8‏/2022 at 21:21, kanory said:

Replace(Replace(Replace([text1];"/";"-");"(";"-");")";"-")

 

شكرا استاذنا على المداخلة

وهذه طريقة لبناء دالة على اكتاف  Replace 

مع اخذ الاحتياط بحذف المسافات الفارغة الزائدة ان وجدت

' الصق هذه في وحدة نمطية عامة
Public Function fnchang(vtext As String)
 Dim i As String
i = Replace(vtext, "/", "-")
i = Replace(i, "(", "-")
i = Replace(i, ")", "-")
Do While InStr(1, i, "  ") > 0
i = Replace(i, "  ", " ")
Loop
End Function
' تم تعديل الدالة نبهني الى الخطأ فيها اخي وحبيبي الاستاذ جعفر


' الصق هذا السطر في حقل جديد في الاستعلام 

text2: fnchang(text1)

، text1باعتبار 
هو اسم الحقل الذي سيجري عليه التغيير

 

[Moosak]

صارت لدي حاجة لمثل هذا .. 🙂 

عندي برنامج يقوم بحفظ ملفات PDF بنفس أسماء الأشخاص حسب الموجود في الجدول .. كل شخص له ملف PDF باسمه ..

لكن أحيانا يتم إدخال الاسم هكذا : " الفاضل / محمد أحمد سلامة "

واللويندوز يرفض علامة الـ /  في أسماء الملفات وعلامات أخرى مثل : #$%^<>   حسب ما أذكر ..

لذلك أنشأت دالة تقوم بتتبع هذه العلامات في الاسم قبل حفظ الملف واستبدالها بالرمز " - " أو مسافة فارغة "  " (ويمكنك تحديد البديل كما تشاء ) .. بدون تغيير البيانات في الجدول طبعا ..

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

Public Function RemoveSymbolsFromText(strGivenTxt As String, Optional ReplacmentTxt As String = "") As String

Dim Txt As String
Dim R As String

R = ReplacmentTxt

Txt = strGivenTxt
Txt = Replace(Txt, "!", R)
Txt = Replace(Txt, "@", R)
Txt = Replace(Txt, "#", R)
Txt = Replace(Txt, "$", R)
Txt = Replace(Txt, "%", R)
Txt = Replace(Txt, "^", R)
Txt = Replace(Txt, "*", R)
Txt = Replace(Txt, "\", R)
Txt = Replace(Txt, "|", R)
Txt = Replace(Txt, "/", R)
Txt = Replace(Txt, ".", R)
Txt = Replace(Txt, "?", R)
Txt = Replace(Txt, """", R)
Txt = Replace(Txt, "'", R)
Txt = Replace(Txt, "<", R)
Txt = Replace(Txt, ">", R)
Txt = Replace(Txt, "؟", R)
Txt = Replace(Txt, "~", R)
Txt = Replace(Txt, "&", R)

RemoveSymbolsFromText = Txt

End Function

وتستدعيها هكذا :

RemoveSymbolsFromText(strGivenTxt,  "_")

 

[حامل المسك]

ماشاء الله تبارك الله يا كرام..

بمثلكم نفخر.. ومن معين علمكم نتعلم..

لمستم الجرح فعالجتم وأحسنتم..

وكفيتم ووفيتم..

كتب الله أجركم ورضي عنكم جميعًا وبارك لكم فيما رزقكم..

مرفق المثال بعد تطبيق الوحدة النمطية ((للفائدة))

تجربة تغيير الرموز.accdb

[متقاعد]

رد خاطئ

تم تعديل أغسطس 23, 2022 بواسطه مبرمج سابق
اضافة رابط الموضوع السابق