ابو جودي

بصراحة الاول لم اكن افهم المطلوب الاى اتضحت الرؤيا واعجبتنى جدا فكرة الكود ماشاء الله لكن استاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR فضلا وكرما لى تساؤل لماذ تنتهى كلها بالصفة 13 اليس من المفترض ان تبدأ برقم بداية الصفخة للمدسة وتنتهى عند اخر صفحة لها ؟! ام انى لم افهم جيدا ؟

اتفضل تم بفضل الله تعالى طبعا تحتاج بعد التعديلات التى تلائم كل سجل لبرنامجك Test To Print External File.rar

انا مش فاهم ممكن مرفق عل الصورة تتضح اكثر

هات مرفق القاعدة تبعك

https://online-barcode-reader.inliteresearch.com/ شككت ايضا بالجوال او بالتطبيق الذى يقرأ الرمز وبحثت و وجدت هذا الموقع https://online-barcode-reader.inliteresearch.com/ مما قطع الشك باليقين ان المشكلة من منشئ الرموز نفسه

اللغة العربية

انا صار معى شئ غريب لا يتم انشاء رمز الباركود باللغة العربية ابحث من الامس على الانترنت عن سبب المشكلة دون جدوى حتى اننى شككت بالويندوز وقمت بعمل فورمات للقطاع ( C ) واعادة تنصيب الويندوز والاوفيس من جديد وكانت الصدمة كذلك افيدونى الله يرضى عليكم ما العمل وكيف السبيل لحل هذه المشكلة

استاذى الجليل ومعلمى القدير استاذ @jjafferr كل كلمات الشكـــــــــــــــــر لا تكفيك والله جزاكم الله خيرا وشكر الله لكم واحسن اليكم

ومشاركة مع اخى الحبيب الاستاذ @مسفر اربع نماذج كل نموذج يتقدم عن سابقة بشئ النموذج الاول هو محل السؤال يا دكتور @حلبي باقى النماذج الثلاث افكار متقدمة اليوم السابق والتالي للتاريخ (1).accdb

الحمد لله و بفضل الله أخيرا بعد عذاب توصلت للنتيجة لكن بعض الاكواد لم يتم انشاؤها ولا اعلم السبب وللاسف فقدت اللغة العربية QR-Code_Generator(Done).zip

السلام عليكم ورحمة الله الله وبركاته الموضوع بخصوص تصحيح كود منشئ الباركود طبعا الموضوع يعتمد على مشاركة استاذى القدير و معملى الجليل الاستاذ العظيم @jjafferr يتم انشاء الباركود من الكود الاتى كل ذلك الكود الاصلى ويعمل بنجاح 'imgMyBarcode If Len(Me.str_Text & "") = 0 Then Exit Sub Dim MyAppName As String Dim OutputText As String Dim OutputFile As String MyAppName = Chr(34) & CurrentProject.Path & "\Program Files\Utility\zint.exe" & Chr(34) OutputText = Chr(34) & Me.str_Text & Chr(34) OutputFile = Chr(34) & CurrentProject.Path & "\Program Files\QR images\" & "TestQRCode.png" & Chr(34) 'السطر الاصلى ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 --cmyk --fg=004700 -d " & OutputText هذه الجزئية فى الكود --barcode=55 هى التى تحدد نوع الباركود بناء على الرقم فلكل رقم دلالة على نوع ما ادرجت كل الارقام بانواعها بجدول وقمت بعمل مربع سرد لتغيير الرقم بناء على النوع المختار من مربع السرد الذى يجلب هذه الارقام من الجدول وحاولت تعديل السطر الاخير من كود الاستاذ جعفر بأكثر من شكل ولكن لا ادرى لا يعمل بتاتا Dim MyCodType As String MyCodType = "--barcode=" & CboBarcodeType.Column(1) txtBarcodeNumeric = MyCodType 'المحاولات الفاشلة 'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary & MyCodType & --mode=3 --cmyk --fg=004700 -d " & OutputText 'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary & MyCodType --mode=3 --cmyk --fg=004700 -d " & OutputText 'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary MyCodType --mode=3 --cmyk --fg=004700 -d " & OutputText 'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary" & MyCodType & "--mode=3 --cmyk --fg=004700 -d " & OutputText لست افهم السبب هل من حل او من فكرة QR-Code_Generator_question.zip

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

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

انا اهتميت بالمضمون شرح الالية وليس الجوهر ولكن ولا تزعل اتفضل اختفاء قيمة من مربع السرد لنفس التاريخ.accdb

شوف يا دكتور افتح الموقع و للتحميل افعل منا هو موضح بالصورة المرفقة ولكن لابد حتى يعمل المثال منا اشار المبرج عمل الاتى لاضافة مكتبة dll المرفقة اسم الملف VBA_TOOLS.dll حسب النواة التى تخص اصدارك مرفق 32 بيت و 64 بيت قم بعمل كليك يمين على الملف VBA_TOOLS.dll كما بالصورة ثم بعد ذلك افتح المثال وانظر الى الروائع واخص أستاذى القدير ومعلمى الجليل الاستاذ @jjafferr انظر يا استاذ جعفر الى النموذج frmBarcode فى هذا المثال كما انك يا دكتور @حلبي لو تصفحت الموقع الى اخرة لوجدت الشرح تغيير اشكال والاوان كائنات الاكسس واضافة الملفات بطريقة السحب والافلات بدل من زر امر الاستعراض والوان و........ انظر وقم بالتجربة

يثبت عدم عجز الاكسس كما يتخيل البعض اعجبنى جدا جدا جدا احببت مشاركتكم اياه https://github.com/krishKM/Modern-UI-Components-for-VBA

ممكن عمل جدول اخر مساعد حالة السداد يحتوى حقلين اثنين فقط رقم الشقة رقمى , تم السداد من النوع yes/no ويتم وضعه على التصميم فى النموذج الرئيسي لتسجيل الدفعات وبمجرد ما تصل القيمة الى 0 فى الباقى يتم تحديث من خلال كود الحقل تم السداد الى true وتكون هى المعيار اوفسنا طباعة.accdb او ممكن الحقل حالة السداد يكون بالجدول عقد الايجار

عندي ملاحظة في الصورة المرفقة وماذا افعل لاعرفها ان كنت لم تكتبها

انا جاوبت بناء على العنوان lookup wizard فتبادر بذهنى انه مربع سرد متعدد القيم ويريده مفرد لم انتبه من الصورة انها مربع قائمة ويريد تحويلها الى مربع سرد

الحمد لله على ما يبدو نال مرفقنا الاخير الاستحسان الشكر لله سبحانه وتعالى اولا ثم لاستاذى الجليل و معلمى القدير المبجل و والدى الحبيب الاستاذ @jjafferr ما انا إلا ناقل عن معلمى العظيم

اعتذر على التاخير اتغضل ان شاء الله يكون هذا طلبك للتعديل.accdb

انظر للمعايير داخل الاستعلام اوفسنا طباعة.accdb

*** Warning!*** With older versions of JET there is a bug where running compact on a database would delete tables marked hidden with this method. It has been fixed in later versions. It is very important that you test to see if this works with your version of JET. يعنى لن تكون المشكلة موجودة فى الاصدارات المحدثة لذلك انا انصح دائما بالبحث عما اذا كان هناك تحديث للاوفيس وبما انه تم حل المشكلة فى الاصدارات الحديثة اذن ليست المشكلة عامة فى كل الاصدارات

طبعا فى المقام الاول والاخير انا لا اعارض رأى اساتذتى العظماء ولكن انا انقل تجربتى الشخصية فقط