ابو جودي

السلام عليكم ورحمة الله الله وبركاته الموضوع بخصوص تصحيح كود منشئ الباركود طبعا الموضوع يعتمد على مشاركة استاذى القدير و معملى الجليل الاستاذ العظيم @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. يعنى لن تكون المشكلة موجودة فى الاصدارات المحدثة لذلك انا انصح دائما بالبحث عما اذا كان هناك تحديث للاوفيس وبما انه تم حل المشكلة فى الاصدارات الحديثة اذن ليست المشكلة عامة فى كل الاصدارات

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

فى الغالب نعم لكن احيانا اقوم بعمل الضغط والاصلاح لكل من القاعدتين الامامية والخلفية ربما قد يكون اختلاف أصدارات الاوفيس لها عامل والله اعلم فى العمل هناك اجهزة تعمل من 2007 الى 2019 لكن كلهم بالنواة 32 بيت واكثر من حوالى 300 حساب قد يرتبط بالقاعدة ولكم فى الغالب دائما لا يقل عن من 5 : 8 حواسيب يعملون بصفة دائمة وابدا وتقريبا عمر استخدامى لكود اخفاء الجداول المرتبطة تقريبا من عمر هذه المشاركة قام بنشر مارس 9, 2015

سبحان الله انا استعمل اخفاء جميع الكائنات بما فيهم الجداول من حوالى سنتين واستخدم من ان لاخر الضغط و الاصلاح دون اى مشاكل نهائيا لا مثل التى تطرق اليها اخونا @kaser906 ولا حتى اكسس قام بحذف بيانات هذه الجداول على انها جداول مؤقته والله اكثر من سنتين قاعدة بيانات حضور وانصراف واجازات وتحديد اسماء المستمرين بالعمل وطباعة الوجبات وطباعة تقارير الحضور والتاخير والغياب والمستمرين بالعمل و....... كثيرررررررر غير ذلك القاعدة تستخدم يوميا من الساعة 6 صباحا الى الساعه 3 مساءا واحيانا اكثر من ذلك

اتفضل حذف امر.accdb وان كنت تريد استخدام الامر مرة واحدة فقط حتى بعد اغلاق القاعدة اخبرنى

تم التوضيح على الصورة

هل قمت بزيارة الرابط بالمشاركة الاخيرة لى والتى تسبق مشاركتك فورا وهو لميكروسوفت ويشرح التنسيق تفصيلا ؟

https://support.office.com/ar-sa/article/الخاصية-تنسيق-نوعي-البيانات-رقم-و-عملة-ca77795e-b40d-4abb-b42f-daa0bb709620 اتفضل بالتفصيل من مايكروسوفت

انظر الى التنسيق الـ Format New Microsoft Access قاعدة بيانات (3) (1).accdb

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

اعتذر استاذى الجليل

مبروك انضمامك لعائلة الخبراء اسأل الله لك التوفيق

اين المرفق