Daniello قام بنشر فبراير 13, 2004 قام بنشر فبراير 13, 2004 بسم الله الرحمن الرحيم لقد سبق ونشرت في منتدانا الغالي علينا جميعاً موضوع تجاهل الهمزة وقد أعجبني كثيراً جزاك الله خيراً لكن هل هناك كود يقوم بتعديل الهمزة في جدول معين أو حقل معين ساعدني أرجوك 1
Daniello قام بنشر فبراير 13, 2004 الكاتب قام بنشر فبراير 13, 2004 وحسب ملاحظتي لكيفية عمل الكود فقد لاحظت أنه يغير الهمزة الواقعة في أول حرف من الجملة فقط أما إذا كانت الكلمة ك : الإسلام فلا يحولها إلى الاسلام :') :') ساعدوني أرجوكم :') :')
محمد طاهر عرفه قام بنشر فبراير 18, 2004 قام بنشر فبراير 18, 2004 من الممكن تطبيق الدالة علي جدل بأكمله أو علي مجموعة من السجلات المختارة فى نموذج و ذلك باستخدام ال recordset فى حالة الجدول و ال RecordsetClone فى حالة النموذج و لكن اذا كان الغرض هو التعامل مع موضوع البحث فارجو مراجعة هذا الموضوع فربما يغني عن الاستبدال فكرة بحث ذكية (Search) الحروف ( ة ه ا إ آ أ ي ى ) http://www.officena.net/ib/index.php?showtopic=857&hl=
Daniello قام بنشر فبراير 19, 2004 الكاتب قام بنشر فبراير 19, 2004 بسم الله الرحمن الرحيم شكراً أستاذي محمد طاهر على المثاللكن ما أصبوا إليه هو كيف يمكنني تطبيق الدالة على جدوللأنني أتوفر على جدول وأرغب بإلغاء الهمزة في جميع السجلات وأينما وجدت في السجل سواء في بدايته أو فيوسطه أو في آخرهسامحني إن أكثرت عليك :pp: :@
egyptian_eg قام بنشر فبراير 19, 2004 قام بنشر فبراير 19, 2004 (معدل) بالفعل يمكنك التطبيق بالكود باحدي الطرق التي ذكرها أخونا محمد طاهر و لكن ايضا هناك حل أبسط و هو استنتاج القيم الجديدة فى استعلام بناء علي الدالة كما فى المثال و يلي ذلك عمل استعلام تحديث لتحديث الحقل الاصلي من الحقل المستنتج فى الاستعلام مرفق مثال علي الاستنتاج فى Query1 و التحديث فى Query2 و للمزيد حول الاستعلامات ( ان كان هناك داعي) ، فلها شرح مفصل للأخ محمد فى قسم دورة الاكسيس و شكرا FunctionInQuery.rar تم تعديل فبراير 19, 2004 بواسطه egyptian_eg
ashraf قام بنشر فبراير 19, 2004 قام بنشر فبراير 19, 2004 الأخ العزيز egyptian_eg فكرة سهلة وجميلة ولكن جرب وضع كلمة الإسلام وهذه التى يقصدها الأخ Daniello أشرف خليل
محمد طاهر عرفه قام بنشر أبريل 11, 2004 قام بنشر أبريل 11, 2004 تعديل الدالة : Function ForTrAlfbet(Astr As Variant) As String If Nz(Astr, "") = "" Then Exit Function Dim L1, L2, L3 As String, NewStr As String NewStr = Astr For i = 1 To Len(Astr) NewStr = CStr(NewStr) L1 = Mid(NewStr, 1, i - 1) L2 = Mid(NewStr, i, 1) L3 = Mid(NewStr, i + 1, Len(NewStr)) Select Case Asc(L2) Case 194, 195, 197: L2 = Chr(199) Case Else: L2 = L2 End Select NewStr = L1 & L2 & L3 Next i ForTrAlfbet = NewStr End Function
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.