Barna

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

طيب يا بشمهندس لازالت بعص النصوص عل شاكلة طغيانهم ..... انظر ....

طيب شوف الفانك ده .... Public Function cleantxt(txt As String) As String For Each itm In Array(ChrW("1649"), ChrW("1648")) txt = Replace(txt, CStr(itm), "ا") Next For Each itm In Array("َ", "ً", "ُ", "ٌ", "ِ", "ٍ", "ْ", "ّ", "ـ", ChrW("1761"), ChrW("1755"), ChrW("1619"), ChrW("1623"), ChrW("1750"), ChrW("1630"), ChrW("1762"), ChrW("1751"), ChrW("1765"), ChrW("1766") _ , ChrW("1754"), ChrW("1620")) txt = Replace(txt, CStr(itm), "") Next cleantxt = txt End Function

لو عدلنا طغيانهم تتعدل معها للاسف الرحمان ....

انت قلت التشكيل ... وليس التحريف

كده مجاني ...🙄 طيب بس اشيك على بعض التشكيل ... .... ابشر ....

لأن الحركات الموجودة في الرسم العثماني للمطبعة لا يفهمها الكمبيوتر .... ولكن انظر هل هذا هو المطلوب ,,,,,

غير العبارات المكتوبة بالعربية في الرسالة في محرر الاكود الى لغة جهازك ...

بالتوفيق ....

ادرج مريع نص في التقرير واجعل مصدر بياناته بهذا الشكل .... =[Forms]![form_name]![txt_name] هو اسم النموذج الخاص بالبحثform_name هو مربع البص لبداية التاريخ مثلاtxt_name كرر العملية مع مربع النص الخاص بنهاية التاريخ (اي الى)

😁

جرب هذا .... ba_11.accdb

استبدله بهذا وجرب ..... Dim FD As Object

تفضل .... جرب المرفق ....... ba_11.accdb

تفضل ... انظر الصورة ....

استبدلها بهذه الدالة ....

تفضل .... 1.accdb

نعم استخدم between

وعليكم السلام ورحمة الله وبركاته طيب ممكن مثال مبسط كمرفق ... حتى نستطيع التفكير معك فيما تريد ؟؟؟

ما شاء الله تبارك الله مبدع @king5star متابع بصمت ....

ما شاء الله تبارك الله .... مبدع @Moosak

دائما اخي الكريم عند نسخ نموذج من ملف انسخ ملحقاته من المديولات ..... انظر ملفك بعد اضافة المديولات الناقصة ..... db1.rar

انظر هذا المثال على ال_ Fifo

اليس هذا هو نتيجة برنامجك قبل التعديل ؟؟؟؟؟؟؟ تفضل ....... test (1).rar

ماهو المطلوب اليس هذا هو المطلوب .......