jjafferr

شغلك تمام ، بس !! 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 ، لإضافة معلومات الشخص مباشرة في عناوين الموبايل 🙂 وتم الكود والمرفق مع المشاركة الاولى في هذا الموضوع ، ونتيجة احد السجلات: جعفر

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

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

وانا افتخر بوجودك معنا بهمتك العالية 🙂 عملت موضوع جديد للتهنئة ، والظاهر موضوعك سبقتني بثوان ، فعملت دمج للموضوعين ، فأعتذر منك ، بأن الدمج اخذ المسمى الذي وضعته انا 🙂 جعفر

السلام عليكم 🙂 اخوي @kaser906 كل الدلالات كانت تشير الى انك بالفعل خبير ، وانما هذه التسمية تأكيد لذلك 🙂 جعفر دائما سبّاق للخير اخوي ابا جودي 🙂

وعليكم السلام 🙂 اخي الفاضل اهلا وسهلا بك في المنتدى 🙂 رجاء مراعاة شروط المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

تفضل ، هذه احد المشاكل وللحديث تتمة 🙂 جعفر

واذا حقول التقرير كثيرة ، فبالاضافة الى جعل التقرير افقي ، قد تحتاج الى 🙂 جعفر

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

السلام عليكم 🙂 لما تعمل الماكرو/ المضمن ، يستطيع الاكسس انه يحوله الى كود ، بأحد هذه الازرار في الدوائر الحمراء: . جعفر

وعليكم السلام 🙂 حيالله اخوي محمد 🙂 في النموذج/التقرير المستمر ، لا يمكن التفريق بين الحقول إلا عن طريق التنسيق الشرطي ، وعليه ، في الحاله اللي تريدها ، تقدر تخلي لون الخط في حقل "حاله" لونه ابيض ، فلا تستطيع ان ترى شيء ، عند طباعة التقرير على ورق ابيض🙂 ولكن لا تستطيع ان تجعل حقل اطول/اعرض من الاخر !! وتستطيع كذلك استعمال iif ، بحيث في الحاله اللي تريدها ، يجعل حقل "حاله" فارغ : Status1: iif(me.Namee="AA" or me.Namee="AB","",[status]) سواء في استعلام التقرير ، او في التقرير نفسه 🙂 جعفر

وعليكم السلام 🙂 اليك هذه الروابط ، وبعضها فيها مثال للتنزيل ، ومهم ان تعرف ان هناك اكثر من طريقة لعمل القائمة ، وفي طرق الاكسس 2003 فما دون ، تختلف عن الاكسس 2007 فما فوق 🙂 https://www.officena.net/ib/topic/39969-كيف-تعطل-زر-الفأرة-الأيمن-لحماية-الفورم-ووضع-فورم-معين-يفتح-مع-الاكسسعنوان-معدل/ http://arabteam2000-forum.com/index.php?/topic/134128-إجراء-حدث-او-فتح-قائمة-منسدلة-عن-طريق-click-الأيمن-للماوس/ https://www.databasejournal.com/features/msaccess/article.php/3790286/Setting-Up-Right-Click-Menus-for-Access-2007.htm https://www.utteraccess.com/wiki/Access_Custom_Right-click_Menu https://support.office.com/en-ie/article/create-custom-menus-and-shortcut-menus-by-using-macros-5bd538ff-19c4-4dfe-9540-3309aebf8a1a https://docs.microsoft.com/en-us/office/vba/access/concepts/miscellaneous/create-a-shortcut-menu-for-a-form-form-control-or-report والبحث بهذه الكلمات في جوجل تعطيك روابط كثيرة: ms access RightClick menu جعفر