jjafferr

تفضل 🙂 1065.zip

البيانات ، بعض النظر عن طريقة ادخالها ، عن طريقة النموذج او الاستعلام وا الكود او الجدول ، فإنها تُحفظ في الجدول ، لذلك ، تقدر تشتري احد برامج استرجاع البيانات ، ابحث في الانترنت عن: ms access database recovery وستحصل على الكثير من المواقع. جعفر

السلام عليكم 🙂 الظاهر انها في حقل نص ، وترتيبها يكون مختلف ، اذا كان اسم الحقل J مثلا ، جرب في الاستعلام: J1: val([J]) جعفر

وعليكم السلام 🙂 نعم تستطيع ، ولكن بشرط ان لا تكون قد عملت "ضغط واصلاح" للملف ، فالضغط والاصلاح يحذف هذه البيانات ، نهائيا. هناك طريقتين ، الاولى والاسهل ، ان تشتري احد البرامج الجاهزة التي تقوم بهذا العمل ، وهذا اللي عندي ، والثانية فيه اكواد وووووووووووو ، وووووووووو يعني عرفت الآن ليش الشراء افضل واسهل 🙂 وابحث في الانترنت ، علشان تحصل على الافضل (لا ، ما بخبرك عن اسم برنامجي ، لأنه قديم ، وما اريد الشباب يضحكوا عليّ 🙂 ) وتفضل ملفك بعد استرداد البيانات المحذوفة 🙂 جعفر 1066.Fixed.accdb.zip

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

وعليكم السلام 🙂 في الحدث بعد تحديث الحقل "الحالة الزوجية" ضع هذا الكود (ما يهمك ، الكود هنا مقلوب ، بس في VBE بيطلع صح 🙂 ) : if me.[الحالة الزوجية]="اعزب" then me.[عدد الاطفال].visible=false else me.[عدد الاطفال].visible=true end if جعفر

الحمدلله 🙂 وشكرا ابا جودي على التجارب والمعلومة 🙂 اخوي محمد ، تابع معاي مثالي الجاي ، وبعدين نبحث عن البرنامج المناسب 🙂 جعفر

السلام عليكم 🙂 رجاء تجربة هذه النسخة 🙂 وللعلم ، برنامج الموبايل الذي ارفقته انت في احد مشاركاتك ، فلا يقرأ العربية بصورة صحيحة دائما ، ولذا يجب ان تتأكد اكثر من مرة !! جعفر zint QR 3.zip

وبإمكانك ان تعمل التسلسل رقم 2 يكون تحت الرقم 1 ، هكذا : جعفر

شغلك تمام ، بس !! 1. ما عندك عرض كافي ، فصغّر عرض الحقول ، 2. قلل من عرض مسافات اليمين واليسار في الطابعة ، 3. استعمل معاينة التقرير ، . 🙂 جعفر 1064.جعفر اوفسنا.accdb.zip

وعليكم السلام 🙂 نعم يمكن 🙂 اجعل التقرير ضيق (بحيث انك تقدر ان تخلي تقرير ثاني جنبه) ، في التقرير ، اعدادات الصفحة ، الاعمدة ، عدد الاعمدة (خليه 2) ، وفي مشاركة كانت مع اخي @ابوخليل ، بس ما قدرت احصل عليها 😞 جعفر

الحمدلله 🙂 وفي انتظار انك تجربه على الكمبيوتر الاخر ، وتعطينا النتيجة 🙂 جعفر

وعليكم السلام 🙂 الحمدلله ، وحياك الله 🙂 ولما احاول اشرح للمبرمج ، ان البرنامج حدوده لخارج البرنامج ، وبرامج الكمبيوتر الاخرى ، فيكون رده الاستغراب !! لوسمحت تجرب هذا المرفق ، وتخبرنا عن النتيجة 🙂 جعفر zint QR 2.zip

ابا جودي ، جرب هاي ، وتصبح على خير (لأننا ما نقدر نعرف مشكلتك ، لذلك ما نقدر نجربها نحن 😞 ) 1. قم بحذف الصور من المجلد ، 2. بدل ShellWait ، استعمل Shell فقط ، 3. روح النموذج واعمل معاينه ، 4. سوف تحصل على خطأ من البرنامج ، ولكن لا عليك ، 5. روح لمجلد الصور ، وشوف اذا الموبايل يقرأ الصور 🙂 المشكلة عندك في Page Code لبرنامج cmd !! والظاهر ان نظام الوندوز 7 يختلف عن الوندوز 10 اللي عندي !! جعفر

المسأله ببساطة لها علاقة بـ unicode و page code ، وهنا طريقة اخرى ، بأن نصدر بياناتك الى ملف خارجي ، ثم نستدعيه بالكود ، فخليني اجهز هذه الجزئية واتواصل معاك 🙂 سؤال اخير ، في اعدادات كمبيوترك ، هل الرقم 4 في الصورة ، دولة عربية : جعفر

طيب ، استعمل هذا السطر بدل الموجود Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text

ارفق لي صورة QR اللي عملها الكود

خلينا نمشي خطوة بخطوة 🙂 1. لوسمحت استخدم هذا الكود ، بدل الكود الموجود في مرفق المشاركة (هو نفس الكود ، بس بتعديل لتسهيل الوضع لي) : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' If Len(Me.str_Text & "") = 0 Then Exit Sub Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String Dim Command_Line As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) 'QR code Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text Debug.Print Command_Line ShellWait Command_Line 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID 'Debug.Print Command_Line ShellWait Command_Line 'PDF 417 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text 'Debug.Print Command_Line ShellWait Command_Line End Sub 2. اعمل معاينة في النموذج ، وبعدين ارجع الى VBA ، وفي الاسفل ، في نافذة: immediate window : . والنتيجة عندي: . 3. تأكد بأن لغة الكمبيوتر هي العربية: . 4. انسخ كل شيء ، وارفقه في مشاركه لوسمحت 🙂 هذا الكود اللي عندي : "F:\Samples\QR BarCode\4\Data\zint.exe" -o "F:\Samples\QR BarCode\4\Data\QR_images\QR_code.png" --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d "احمد عبدالرحمن محمد Ahmed Abdul Rahman Mohammed 12345633 Aministration 12345678 15-Mar-90 " . جعفر

الموقع اللي اعطيتك ، هل جربت ان ترفع الصورة فيه؟

وهاي النتيجة ، من البرنامج الذي ارفقته انت في احد مشاركاتك:

مشكلة ان اللغة العربية تظهر بحروف غريبة !! هذه مشكلة في شيء يسمى unicode او utf-8 اي قراءة الحروف الغير انجليزية. 1. برنامج zint الذي نستعمله في عمل QR : علشان يكتب لك البرنامج بالعربي ، لازم تخبره بأن يستعمل (كما هو موجود في احد الملفين في المرفق) : eci = 24 | Windows-1256 - Arabic ShellWait App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 2. بعض الاوقات تحتاج الى تغيير Page Code برنامج الـ cmd ، وذلك لأننا نستعمل امر الـ Shell ، لذا ، افتح برنامج cmd ، ثم اكتب فيه: chcp 720 ، ثم اضغط على الزر Enter . . وللتأكد من اخذ Page code ، اعمل التالي: . . 3. يجب استعمال البرامج/المواقع التي تقرا/تكتب unicode او utf-8 ففي الوقت الذي يعطينا الموقع: https://online-barcode-reader.inliteresearch.com/ هذه النتيجة: . نرى ان الموقع: https://zxing.org/w/decode.jspx يعطينا هذه النتيجة: . وذلك بإستعمال نفس صورة الـ QR التي عملها برنامجنا 🙂 جعفر

وعليكم السلام اخوي ابا جودي 🙂 شو السؤال ؟ جعفر

السلام عليكم 🙂 وبطلب من البشمهندس ابا جودي ، تم وضع مثال لعمل VCard QR ، لإضافة معلومات الشخص مباشرة في عناوين الموبايل 🙂 وتم الكود والمرفق مع المشاركة الاولى في هذا الموضوع ، ونتيجة احد السجلات: جعفر

وهذه هي المشاركة اللي اشار لها اخي كاسر ، واللي يتفق معاها اخوي ابو ابراهيم و جعفر

وعليكم السلام 🙂 انقر على الكائن بالفأرة اليمين ، ثم اختار تحويل الى جعفر