محب لله ورسوله

جزاك الله خيرا ونفع الله بك

جزاك الله خيرا أخى الحبيب وونفع الله بك وارجو منك تعديل الكود بهذه الحروف من خلال هذا الكود Public Function ReplaceString(In_Text As String) As String Dim X As Long Dim strChar As String Dim strReturn As String For X = 1 To Len(In_Text) strChar = Mid(In_Text, X, 1) Select Case strChar Case "أ", "إ", "آ" strChar = "ا" Case "ه" strChar = "ة" Case "ؤ" strChar = "و" Case "ئ", "ي" strChar = "ى" '' تجاوز التشكيل عند البحث Case "َ", "ِ" strChar = "" Case "~", "ً" strChar = "" Case "ٍ", "ْ" strChar = "" Case "ُ", "ٌ", "ّ" strChar = "" Case "ـ" strChar = "" End Select strReturn = strReturn & strChar Next DoEvents ReplaceString = strReturn End Function

ارجو المساعده فى حل الرساله التى تظهر عند التشغيل

جزاك الله خيرا أخى الحبيب ونفع الله بك قابلتنى هذه المشكله عند تشغيل الاستعلام فأجروا منك توضيح الحل

اشكرك أخى الحبيب واعتذر على الاطاله ولكن انا قصدت عمل عمود جديد حتى يكون حذف التشكيل فى نفس قاعدة البيانات بجانب العمود الاساسى وانا لا اعلم طريقة النسخ من الاكسس ووضعها فى الورد وفلترتها واعادتها للاكسس مره اخرى بالاضافه لان قاعدة البيانات تتعدى 4000 حقل وقابله للزياده فكل ما اريده ان تكون هناك طريقة للفلتره فى عمود جديد داخل القاعدة الاساسيه مع الاعتبار زيادة القاعده

بارك الله فيك ياأخى ولكن اريد توضيح الطريقة وطريقة لاضافة رسائل اخرى والتعديل عليها وجزاك الله خيرا

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

جزاكم الله خيرا ولكن الموضوع باختصار انى اريد عمل عمود اخر وذلك نسخة من العمود الاساسى بحيث يكون العمود الجديد بدون تشكيل ومفلتر وذلك لصعوبة اعادة كتابه الرسائل مره اخرى فأرجو المساعده فى ذلك

تفضل يااخى الاحرف.rar

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

مفيش اى محاولة ؟؟

السلام عليكم ورحمة الله وبركاته الاخوه الكرام اريد طريقة لفلترة الرسائل وحذف التشكيل منها ووضعها فى عمود جديد القاعده بالمرفقات message.rar

برجاء وضع كلمة السر للاستفاده من الاكواد