ابو جودي

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

فعلت الخطوات دون اى تغير للعلم انا عندى الان ويندوز 7 >--->> 64 بيت

تحت امرك

هو المرفق هاد ثابت ما بتغير اصلا

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

اخى وحبيبى واستاذى @Khalf ما هى نتيجة التجربة ؟؟؟ هل وجدت ضالتك قمت بعمل االاعجاب على سؤالى عن التجربة فلم افهم هل وجدت ضالتك ام لا اعجبتك الطريقة ام لا

أيضا يحتاج الى إضافة عدم التكرار في حال تمت الفهرسة >>----> لاحظت ذلك وكنت سأحاول التعديل على الكود لعدم التكرار فعلا اصابنى موضوع اللغة العربية فى موضوع الباركود بصداع لا مثيل فعلا فقدت القدرة الان على التركيز يومان من البحث المضنى بلا اى فائدة سوى الصداع ان شاء الله لى عودة مع الكود الرائع هذا لانه اعجبنى جدا جدا جدا وتسلم ايدك استاذى الجليل ومعلمى القدير استاذ @AlwaZeeR ماشاء الله

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

انتظر ان يخبرنى كل من قام بالتجربة بالنتيجة هل تمت التجربة بنجاح ام لا

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