jjafferr

السلام عليكم 🙂 أخي الوزير قام بالعمليات مرتين، فلهذا السبب يأخذ برنامجه وقت لعرض النتائج ، وانا عملت تغيير في الاستعلامات فقط ، وابقيت واستعملت نفس وحدته النمطية ، ونتيجتي كانت اسرع 🙂 استعمل الاستعلام qry_Results_New 🙂 وعيدكم مبارك 🙂 جعفر 1057.Lab 2019-waz.accdb.zip

وعليكم السلام 🙂 شكرا يا شباب على رودكم 🙂 المرفق الثاني هو بصيغة mdb ، كما اشرت اليه في الموضوع 🙂 ابو جودي 🙂 علشان يكتب لك البرنامج بالعربي ، لازم تخبره بأن يستعمل: eci = 24 | Windows-1256 - Arabic ShellWait App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text والمرفق فيه ملفين لتوضيح جميع الاوامر لعمل المطلوب 🙂 جعفر

السلام عليكم 🙂 للعلم 🙂 جعفر

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

السلام عليكم :) شكرا على ردودكم ، وتمت اضافة مثال متكامل :) جعفر

بالعربي ، ومربوطة بالاكسس 🙂 جعفر

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/ ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال يعمل على 2003 🙂 ----------------------------------------------------------------------------- إضافة في يوم الجمعة 14 / 6 / 2019 : باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417 اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : 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 Shell_n_Wait Command_Line, vbHide '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 Shell_n_Wait Command_Line, vbHide '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 Shell_n_Wait Command_Line, vbHide End Sub ----------------------------------------------------------------------------- إضافة في يوم الجمعة 22 / 6 / 2019 : تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂 . وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂 البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو: Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function والذي يختلف عن PDF417 والذي يختلف عن غيره. المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂 ----------------------------------------------------------------------------- إضافة في يوم السبت 2 / 11 / 2019 : هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) : . وهذا هو QR code . اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة: . جعفر ملاحظة: 1. المرفق في هذه المشاركة هو البرنامج الاخير ، وفيه جميع التعديلات التي في بقية المشاركات. 2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ، هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas zint QR 3.zip ID.zip Shell_n_Wait_2021-12-13.txt.zip

تفضل الاجابة على طلبك 🙂 . . . جعفر 1056.azhr.accdb.zip

اخي ازهر انت ارسلت تقريرين الى الادارة بنقرك على "أبلغ فريق الموقع عن مخالفة" فهل قام احد بعمل شيء مخالف ؟

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

نعم هذا اللي ظهر عندي ، عند قرأته بأحد برامج الموبايل ، ولكني ارت التأكد 🙂 اصبر على رزقك ، الخير جاي ان شاء الله 🙂 جعفر

السلام عليكم 🙂 شكرا أخي محمد على الموضوع 🙂 وهل يأخذ الكتابة باللغة العربية ؟ جعفر

السلام عليكم 🙂 رجاء عدم وضع مشاركات جديدة في مواضيع قديمة ، لأن اصحابها قد لا يكونوا متواجدين في المنتدى !! جعفر

وعليكم السلام 🙂 رجاء مراجعة هذه الروابط السبب . والحل جعفر

السلام عليكم 🙂 في الرابط المرفق ، انا ارفق الملفات اللي اريدها ، بصيغة Blob ، في حقل OLE ، في قاعدة البيانات (mdb او accdb) ، وكود لاستراد الملف لقاعدة البيانات ، وكود لتصدير الملف الى القرص الخارجي ، وهناك كود لجعل الملف يعمل مباشرة ، عن طريق احد النماذج (يصدر الملف الى مجلد Windows Temp ، ويقوم بجعل الملف يعمل المطلوب منه 🙂 ) . جعفر

وعليكم السلام اخوي حسنين 🙂 ضعنا بين الدروس ومختلف الاكواد اعمل فينا خير ، واجمع كود الموضوعين في كود واحد ، وخلي الكود يقرأ صيغة الملف المطلوب تشغيله ، ثم يشغله بالكود المناسب ، واذا صيغة الملف غير عن wav او mp3 ، فخلي البرنامج الافتراضي يشغله 🙂 وخلي الكود في الموضوع ، وبطريقة مناداة الدوال ، وبمثال مرفق 🙂 جعفر

حيالله اخوي شفان 🙂 بالاضافة الى اقتراح اخوي شفان 🙂 اذا كان عندك برمجة جديدة لا توجد في الاكسس 2007 ، مثل: Data Macro : الماكرو المضمن Navigation Forms : https://www.tutorialspoint.com/ms_access/ms_access_navigation_form.htm فلا يستطيع الاكسس 2007 فهمها ، لأنها اصلا غير موجودة فيه. جعفر

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

وعليكم السلام 🙂 المفروض انها تفتح ، إلا اذا لم تكن عملت تحديث للاوفيس 2007 !! فهناك بعض الميزات الموجودة في 2010 والتي تم إضافتها الى تحديثات 2007 🙂 واليك روابط حزم التحديث الموجودة للاوفيس 2007: Microsoft Office 2007 System (with 2007 Microsoft Office Suite Service Pack 1 (SP1)) Microsoft Office 2007 System (with 2007 Microsoft Office Suite Service Pack 2 (SP2)) Microsoft Office 2007 System The 2007 Microsoft Office Suite Service Pack 3 (SP3). جعفر

نعم ، يبدأ بالرقمين 00 (في الواقع هناك ارقام اخرى فيها 00 ، لهذا السبب يجب ان نبدأ بمسافة ثم صفرين "00 ") ، ولكن لا نعطيه طول ، وانما نقول له لما ينتهي الرقم ونحصل على "مسافة فارغة" بعده ، فهذه المسافة هي تعطي الطول الصحيح ، وبغض النظر عن طول الرقم ، يعني بالنسبة لبرنامجي انا ، الكود يكون: iMobile_x: Mid([All],InStr([All]," 00")+1,InStr(InStr([All]," 00")+2,[All]," ")-InStr([All]," 00")-1) وبالنسبة الى برنامجك ، الكود يكون: iMobile_x: Mid([Comment],InStr([Comment]," 00")+1,InStr(InStr([Comment]," 00")+2,[Comment]," ")-InStr([Comment]," 00")-1) جعفر

في الواقع الارقام في قاعدة البيانات غير صحيحة !! فمثلا الرقم 00971026678588 والصحيح هو 0097126678588 يعني طوله 13 رقم !!

نعم ، لأن هذا الكود معمول خصيصا لارقام هذا الموضوع ، وانت قمت في الكود بحل هذه الاشكالية بوضع الرقم 14 (اي طول رقم الهاتف) ، والذي لا يحل مشكلة ارقام سلطنة عمان وهي 13 رقم ، مثل 0096812345678 ، فالطريقة التي يمكن ان نحل هذه المشكلة ، هي بأن يكون هذا الرقم متغير ، نأخذ قيمته من النموذج الرئيسي مثلا ، سواء لطريقتي او طريقتك 🙂 جعفر

السلام عليكم 🙂 يا بشمهندس ابا جودي ، الوحدات النمطية وعرفنا سببها ، ولكن ليش بقية الكود في حذف كائنات الاستعلامات ، ثم عملها مرة ثانية بالكود !! يعني كان يكفينا: DoCmd.SetWarnings False 'اوقف الرسائل التحذيرية 'احذف بيانات الجدول DoCmd.RunSQL "DELETE * FROM tbluaecompaniesSplitData" 'الحق البيانات docmd.openquery "qryGetData" DoCmd.SetWarnings True 'شغل الرسائل التحذيرية العضو الغير محترف لما يشوف كل هذه الاكواد يتلخبط ، ويعتقد ان الكود المعقد هو السبيل الصحيح في مثل هذه الاعمال ، والبديل عن الاستعلام البسيط !! وهذا ما حصل لأخونا وائل عبد الرحمن (واللي الآن متواجد بيننا بإسم مستعار ، فأهلا وسهلا به بيننا محافظا على قوانين المنتدى مثلنا) ، فأخونا ضاع بين الاكواد ، ولايزال ضايع وتايه ، بينما كنت قد اخبرته بأن الاستعلام هو اسهل وافضل الطرق !! واشكرك على ملاحظتك جعفر

السلام عليكم 🙂 همم ، ماشاءالله ، يعني عندكم فرح ، وكل الخبراء حاضرين مع الاخ Barna ، وانا ما اشارك !! مشاركتي تختلف عن مشاركاتكم ، بالاستعلام ، وبس ، وبجميع الحقول 🙂 . . اما بالنسبة الى الاخطاء ، فما اردت ان امضي وقت اكثر على الاستعلام وتصدي مكان الخطأ ، فلما نلحق هذه البيانات في الجدول ، فلن تظهر هناك ، وفي التقرير تم ايقافها 🙂 جعفر 1054.uae-com.accdb.zip

السلام عليكم 🙂 وفي توقيع اخوي @ابوخليل عنده هذا البرنامج 🙂 جعفر