jjafferr

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا 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

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

الموضوع اصبح جزء من

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

السلام عليكم 🙂 اخي كاسر 🙂 الكود اللي استعملته ، بإستخدام الامر Dcount ، واللي هو عبارة عن استعلام خاص للجمع 🙂 فانت تعمل 20 استعلام لتحصل على المطلوب 🙂 فقمت انا بعمل هذا الاستعلام ، واللي اخذت المعايير من كودك ، وبدون تغيير فيها SELECT Abs(Sum([العمر] Between 0 And 14 And [الجنس]='ذكر')) AS T21, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='ذكر')) AS T22, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='ذكر')) AS T23, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='ذكر')) AS T24, Abs(Sum([العمر]>=41 And [الجنس]='ذكر')) AS T25, Abs(Sum([العمر] Between 0 And 14 And [الجنس]='أنثى')) AS T27, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='أنثى')) AS T28, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='أنثى')) AS T29, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='أنثى')) AS T30, Abs(Sum([العمر]>=41 And [الجنس]='أنثى')) AS T31, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='ذكر')) AS T51, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='ذكر')) AS T52, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='ذكر')) AS T53, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='ذكر')) AS T54, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='ذكر')) AS T55, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='أنثى')) AS T58, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='أنثى')) AS T59, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='أنثى')) AS T60, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='أنثى')) AS T61, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='أنثى')) AS T62 FROM العمر; ومن استعلام واحد حصلت على جميع نتائجك 🙂 . وعملت نسخة من تقريرك ، وحذفت الكود ، وحفظته باسم rpt_NEW ، وكله تمام 🙂 بس الفرق هو ، سرعة اظهار التقرير 🙂 جعفر 1051.Handicapées -kaser906l.accdb.zip

هممم في الواقع ، ولأول مرة ابوح بهذا الشيء بالتفصيل : في الفترة بين 2003 و 2007 كنت اشارك في المنتدى الاجنبي https://www.experts-exchange.com/members/jjafferr.html وفي سنة 2005 اصبحت احد افضل 15 مشارك/خبير في منتدى الاكسس هناك https://www.experts-exchange.com/questions/21454217/jjafferr-Top-15-Overall-HOF.html وتدرّجت الى ان وصلت الرقم 10 على ما اتذكر ، وحصلت على اعلى شهادة يُعطيها الموقع آنذاك Genuis 🙂 لهذا السبب ، صدقني لما اقول ، ولازلت مُصر ، بأني لم ارى استعمال WebBrowser كما تستعمله انت ، كنموذج يحاكي بقية كائنات قاعدة البيانات 🙂 جعفر

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

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