البحث في الموقع

هل يوجد ملف اكسل انشاء QR code عن طريق مجموعة اسماء

عباقرة قسم الأكسيس الأفاضل السلام عليكم ورحمة الله وبركاته البرنامج المرفق مصمم على Office 2003 وبه تقرير يسمى ( اثبات قيد ) مصدره استعلام يسمى ( Reports ) التقرير به جزء مخصص لإظهار QR Code لكل طالب ومصدره حقل ( Barcod ) الموجود باستعلام ( Reports ) حاولت وبحثت كثيرا لادراج QR Code لكل طالب بالتقرير يقرأ اللغة العربية ويظهر بيانات حقل ( Barcod ) عند قراءة الحقل بالموبايل أو قارئ الباركود ولم استطع الوصول لصيغة QR Code يقرا اللغة العربية ويكون مفعل بشكل دائم وليس تجريبى او لفترة معينة المطلوب المساعدة فى إنشاء QR Code فى نفس مكان الـ QR Code يقرأ اللغة العربية ويقبل اضافة حقول أخرى لحقل ( Barcod ) ويكون مفعل بشكل دائم وليس تجريبى او لفترة معينة عن طريق وحدة نمطية او ما شابه مع إمكانية تطبيق نفس الفكرة على تقارير أخري بنفس البرنامج مع خالص تحياتى لحضراتكم جميعا QR Code.mdb

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

برنامج Generate QR Code إنشاء رمز الاستجابة السريعة لاحظت في الفترة الاخيرة عدة طلبات تدور حول QR Code لحاجته بالفواتير الاكترونية وهو عبارة عن كود يضم اسم السلعة او الخدمة وسعرها او حسب الحاجة اليه وما يحتويه من بيانات عن الخدمة او المنتج . البرنامج سهل ويسير ويمكن تعديله بسهولة بما يتناسب الاحتياجات المختلفة شرح البرنامج البرنامج لا يحتاج اضافة اي خطوط للويندوز يعمل من خلال https://developers.google.com/chart/infographics/docs/qr_codes تحديدحجم الكود(الطول ×العرض) من خلال QR Code Size الخيارات المتاحة اولا : لاستخدامه علي سلعة واحدة نختار حجم الكود من خلال QR Code Size القيمة الافتراضية 1 دبل كليك علي اسم السلعة في الليست بوكس ثم نضغط علي Generate In Sheet لتوليد الكود امام السلعة في نفس الشيت ثانيا: لاستخدامه علي كافة السلع او الخدمات مرة واحدة لاختيار الجميع نختار All قم Generate In Sheet ثالثا : لتصدير الكود كصورة بامتداد JPG لتصدير كود لسلعة واحدة نفس الخطوات السابقة دبل كليك علي السلعة ثم Save QR لتصدير الكود لجميع السلع مرة واحدة نختار All ثم Save QR المجلد لحفظ نفس مسار الملف داخل مجلد Dahy اتمني ان تكون فيه الفائدة مع تحياتي الملف بالمرفقات ملف مضغوط يحتوي علي البرنامج ومجلد حفظ ال QRCode QR Code Dahy Algharieb.rar

السلام عليكم اخوانى الكرم ..هل فى كود او معادلة تولد كيواركود لبيانات (ارقام واسماء عربية وانجليزية ) مرفق ملف كمثال QR CODE.xlsx

اليوم أقدم لكم موضوع يبحث عنة الكثيرين الموضوع هو كيفية إظهار بيانات محددة فى التقرير على هيئة QR CODE و هو الباركود الثنائى الابعاد 1 - مرفق مجلد مضغوط به ملفين DLL احدهم للويندوز 64 بت QRCodeFont_x64.dll و الاخر للويندوز 32 بت QRCodeFont.dll ما عليك الا وضع الملف المناسب للويندوز الخاص بك فى مجلد SYSTEM32 2 - و يوجد ايضا ملف MW6Matrix.TTF و هو يوضع فى مجلد C:\Windows\Fonts 3 - الكود التالى يتم لصقة فى محرر الفيجوال بيزك فى التقرير المراد إظهار الباركود به Option Compare Database Private Declare Sub QRCodeEncode Lib "QRCodeFont.dll" _ (ByVal Message As String, ByVal Version As Integer, ByVal Level As Integer, ByVal Mask As Integer) Private Declare Function QRCodeGetRows Lib "QRCodeFont.dll" () As Integer Private Declare Function QRCodeGetCols Lib "QRCodeFont.dll" () As Integer Private Declare Function QRCodeGetCharAt Lib "QRCodeFont.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As Integer Private Const Version = 0 Private Const Level = 0 Private Const Mask = 0 ------------------------------------------------------------------ Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim RowCount As Long Dim ColCount As Long Dim Message As String Dim EncodedMsg As String Message = Field1.Text Message = Message & vbCrLf & Field2.Text Message = Message & vbCrLf & "________" Message = Message & vbCrLf & " " Call QRCodeEncode(Message, Version, Level, Mask) RowCount = QRCodeGetRows() ColCount = QRCodeGetCols() EncodedMsg = vbCrLf For I = 1 To RowCount For J = 1 To ColCount EncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(I - 1, J - 1)) Next J EncodedMsg = EncodedMsg & vbCrLf Next I Text0.Value = EncodedMsg End Sub 4 - هذان السطران Message = Field1.Text Message = Message & vbCrLf & Field2.Text هما يعبران عن حقلى البيانات المراد إظهارهما فى الQR CODE الحقل Field1 و الحقل Field2 5 - و يمكنك إضافة المزيد من الحقول بإضافة السطر التالى Message = Message & vbCrLf & -----------.Text و يوضع اسم الحقل المراد إظهارة بدلا من ----------- 6 - فى السطر قبل الاخير فى الكود Text0.Value = EncodedMsg Text0هو اسم ال textbox الذى سيظهر به الكود و يمكنك تغييرة بالإسم الذى تريدة 7 - اخر شئ هو تغيير نوع الفونت (الخط) الخاص بال text box الذى سيظهر به الQR CODE إلى نوع الفونت MW6 Matrix و الذى وضعناه بمجلد الخطوط سابقا و شكرا لكم Desktop.rar

السلام عليكم سوف نشرح في هذا الموضوع طريقة سهلة جدا لإضافة QR CODE للتقرير داخل مربع نص و يدعم اللغة العربية كذلك أولا: هناك ملف تنفيذي يقوم بتسجيل الأدوات و نوع الخط نقوم بتثبيته داخل الكمبيوتر ثانيا: لإضافة QR CODE نقوم باستدعاء الوحدة النمطية الموجودة في المرفق في مصدر عنصر التحكم لمربع النص و نغير نوع الخط إلى BCW_2D =QrCode([T];1;1;صواب;4;1) [T]: هو مربع نص نأخذ منه البيانات و هذا رابط المصدر : https://barcodewiz.com/user-manual/qr-code-fonts/create_qr_code_barcodes_in_ms_access.aspx و أخيرا تمتع بـQR CODE رائع أرجوا من الإخوة تجربته و موافاتنا بالنتائج. توليد QR CODE.rar

السلام عليكم يوجد مجمعه خلايا في الملف اريد جمعها داخل QR CODE واحد حيث ان قيمه الخلايا متغيرة واريد QR CODE يتغير معها بحيث عند فتح ال QR CODE يقوم بعرض بيانات الفاتورة الحاليه من الوقت والتاريخ والقيمه للفاتورة شكرا

السلام عليكم ورحمة الله تعالى وبركاته تم تعديل المرفق وتغيير الاكواد حاولت جعل الية العمل اكثر سلاسة من التعقيدات التى كانت بالشرح والمرفق القديم المميزات - انشاء رمز Qr وحفظ صورته في المسار القاعدة - إمكانية قراءة البيانات من أي صورة تحتوى على QR CODE للبيانات التي تريدها ملاحظة هامة .. لابد من وجود Framework الاصدار 4 وأخيرا المرفق..... في انتظار آرائكم بعد التجربة Generate Or Read QR Code Image V.02.zip

السلام عليكم , هل توجد طريقة او كود معين او موديول لتشفير بيانات QR Code في اكسس وايضا لفك التشفير عند قرائته في نفس القاعدة .

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

الاخوة الاعزاء السلام عليكم و رحمة الله و بركاته كان بالمنتدى موضوع عن الباركود و الاكسس و على ما اذكر ان وقتها كان الكلام على الباركود العادى 1d و كان سهولته ان الاجهزة التى تستخدم لقراءته تعرف تلقائيا على النظام و تكتب ما تقرأه مباشره فى الاكسس المهم نظرا لصعوبة حصولى على جهاز قارئ للباركود لغلو ثمنه صرفت النظر عن الفكره و لكن منذ فترة و انا ارى اشكال الباركود متغيره على علب البيبسى و بعض المنتجات و عندما بحثت عرفت ان هذا النوع اسمه QR Barcode و لمن يريد الاستزاده http://en.wikipedia.org/wiki/Qr_code المهم وجدت به مميزات كثيره ووجدت ان كاميرا الموبايل مع نظام الاندرويد بتقرأه عادى ففكرت ان اكيد كاميرا الكمبيوتر الخاصه بالويب web cam هتقرأه هى كمان بعد بحث وجدت برنامج يقرأ هذا الباركود بواسطة الويب كام و كان رائع http://www.quickmark...ownloadMain.asp ثم وجدت برنامج لعمل هذا الكود و جربته على الاكسس و كان اكثر من رائع و لو انه ديمو http://strokescribe.com/en/about.html السؤال هو كيف استخدم الويب كام لتقرأ هذا الباركود داخل الاكسس اى على مرحله واحده لتجريب الباركود تحتاج إلى تنصيب IDAutomation_QRCodeFontEncoderDEMO http://www.idautomation.com/barcode-fonts/2d/qr-code/download.html جزاكم الله خيرا Database6.rar

السلام عليكم جميعا في مشاركة سابقة للاخ حلمي فؤاد بعنوان "طريقة اظهار QR CODE في تقارير اكسيس " وبعد تطبيق ماورد في المشاركة بكل نجاح عند ادخال البيانات باللغة الانجليزية الا اني فوجئت بعد ادخال بيانات باللغة العربية وعند قراءته بقارئ كيو ار كود فانها تظهر على شكل رموز غريبة وهنا كان هناك عدة احتمالات لمثل هكذا ظهور مثلا : ان يكون خط QR CODE المستخدم فيه وهو MW6 MatriX لايدعم اللغة العربية او المكتبة التي تم ثتبيتها لكل يعمل الكيواركود لاتدعم اللغة العربية او ان اللغة العربية المثبتة في نظام الويندوز المستخدم لدي وهو W7 SP1 32BIT لايدعم هكذا ظهور حاولت وبكل السبل - لايتسع المجال لحصرها - حل هذه المعضلة عل مدى سنتين ولكن لم اوفق اخيرا خطرت لي فكرة على هيئة سؤال " لما لاتكون المشكلة في نسخة الويندوز الموجودة لدي نفسه اي انه مثلا ملفاته ناقصة او لايدعم هكذا عمليه" هنا لي رجاء عندكم اخواني لطفــــــــــــــــــا محاولة الاطلاع على المشاركة للاخ حلمي رفلة في الرابط المبين ادناه و ان تجربوا البرنامج لمعرفة هل يدعم اللغة العربية او لا وهل سيظهر عند قراءته بقارئ كيو ار كود رموز غريبة او يظهر عندكم باللغة العربية سليما معافا والســـــــــــــــــــــــــــــــــــــــــــــلام عليكم

السلام عليكم ورحمة الله Desktop.rar المرفق تم تحميله من الموقع هنا وهو للباركود ماتركس 2D QR code كل ما اريده هو ان اقوم بتصدير التقرير المذكور فى المرفق الى ملف وورد ،، طبعا انا بعرف اصدر التقرير ولكنه بعد التصدير يظهر بطريقة غير منظمة فلو تكرم علينا الاخوة وقام بالتعديل بحيث يتم تصديره الى مربع جدول فى ملف الوورد حتى يظهر منسق وهذه صورة بعد التصدير يظهر غير منسق

السلام عليكم احتاج اخواني الى خط كيو ار كود يدعم اللغة العربية حيث ان الخطوط المتداولة لاتدعمها

السلام عليكم اتمنى ان يكون هناك شرح وافي لموضوع QR CODE وكيف وضعه في التقرير وعند قراءته تظهربياناته باللغة العربية وفقكم الله جميعا