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

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

الحمد لله تم ايجاد الحل المناسب ،، كود يقوم بتقسيم وتوزيع القيم الموجودة في الـ QR والتي تفصل بينها فاصلة "," على مربعات النص بعد تحديدها . والكود التالي كان هو الحل :- Private Sub cmdQR_Click() Dim txtBoxA As TextBox Dim txtBoxB As TextBox Dim txtBoxC As TextBox Dim txtBoxD As TextBox Set txtBoxA = txtContent Set txtBoxB = txtContent1 Set txtBoxC = txtContent2 Set txtBoxD = txtContent3 Dim qrText As String qrText = Nz(ReadQRCode.Value, "") Dim qrValues() As String qrValues = Split(qrText, ",") If UBound(qrValues) >= 3 Then txtBoxA.Value = qrValues(0) txtBoxB.Value = qrValues(1) txtBoxC.Value = qrValues(2) txtBoxD.Value = qrValues(3) 'هنا نستطيع إضافة أي إجراء Else MsgBox "Error QR code !" End If End Sub

عباقرة قسم الأكسيس الأفاضل السلام عليكم ورحمة الله وبركاته البرنامج المرفق مصمم على 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 ويحمل اسم المورد رقم الاشتراك مبلغ الضريبه اجمالي مبلغ الفاتوره شامل الضريبة هذي طلباتهم في الوقت الحالي وبالنسبة لهذا الموضوع تم حله في موضوع اخونا الغالي اباجودي جزاه الله خير وبارك فيه https://www.officena.net/ib/topic/111831-شخابيط-وافكار-qr-code-فكرة-جديدة-☺/ وهذا شكل من اشكال الفاتوره الاكترونيه لااحد البرامج عندي بعد مساعدة الفاضل اباجودي المرحلة الثانيه بعد 13 شهر تقريبا الهيئة العامة للزكاة والدخل في السعوديه راح تجبر التجار على ربط الفاتوره الاكترونيه بموقع الهيئة العامة للزكاة والدخل ولا بد ان الفاتوره تكون مشفره بصيغة معينه وراح يعتمدون الفاتروه الاكترونيه بصيغة XML مرفق لكم رابط الدليل الارشادي للفاتوره الاكترونيه من موقع الهيئة العامة للزكاة والدخل يمكن الاطلاع عليه وفهم المتطلبات الدليل الارشادي للفاتوره الاكترونية مصدر الدليل من موقع الهيئة العامه للزكاة والدخل الموضوع المهم الان والحقيقه مشغل بالي من فتره كيف يتم تطبيق المرحله الثاني مرحلة تشفير الفاتوره الاكترونيه على الاكسس وماهو الكود المناسب لذلك كثير من المبرمجين لديهم برامج معموله على الاكسس وتعمل عند عملائهم بعد فتره اذا الاكسس لم يخدم المرحله الثانيه ماراح يكون فيه فايده وراح يخسر المبرمج عملائه وراح العميل يضطر انه يجيب برنامج جديد متوافق مع متطلبات مصلحة الزكاة والدخل ارجو من الجميع مناقشة حلول هذه المشكله حتى تعم الفائده للجميع بارك الله فيكم وجزاكم الله خير

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

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

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

https://www.officena.net/ib/topic/120234-المساعدة-فى-إنشاء-qr-code-عربى/?do=findComment&comment=723913 اتمنى عمل QR Code بنفس طريقة الرابط المرقق واتمنى فيمن يجد فى نفسة القدرة على المساعدة ان يبادر الى تقديمها وجزاكم الله خيرا مقدما

سلام عليكم و رحمة الله . هل توجد طريقة انشاء ملصقات Qr Code من داخل الاكسس. وليس bar code. وشكرا

السلام عليكم ورحمة الله وبركاته اخواني كما تعلمون انه خلال الفتره القادمه في بداية سنة 2023 سوف يتم تطبيق المرحلة الثانية من متطلبات الفاتورة الاكترونيه في المملكة العربية السعودية وسبق انه تم النقاش في المرحله الاولى في هذه المواضيع رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ وتم حلها بشكل كامل ولله الحمد وهذا بفضل الله ثم بجهود اخواننا الكرام جزاهم الله خير وبارك فيهم وبعلمهم وهذه المواصفات المطوبة للمرحلة الثانيه تحت الرابط التالي https://zatca.gov.sa/ar/E-Invoicing/SystemsDevelopers/Pages/E-Invoice-specifications.aspx وكما تعلمون ان بعض المبرمجين لهم برامج تعمل على الاكسس عند عملائهم وبكل تاكيد راح يتطلب منهم تحديث برامجهم لمتطلبات الفاتوره الأكثرونية المرحله الثانيه وإلا سوف يخسر عملائه ويقع في احراج ارجوا من أساتذتنا الكرام ومبرمجينا الافاضل النظر في هذا الموضوع بعين الاعتبار لاننا بحاجة ماسه جدا لحل هذا الموضوع ووضع امثله عليه حتى يستفيد منه الجميع ويتحقق الهدف السامي اللي قام عليه هذا المنتدى القدير

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

وعليكم السلام 🙂 شكرا لكم جميعا 🙂 سبق وان تم مناقشة الموضوع هنا (لا ادري اذا كلمة المرحلة الثانيه يغيّر من الموضوع) : رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ جعفر

أهلا بكم.. من أكثر الأشياء التي تجعل مطوري أكسس يصرفون النظر عن استخدام إداة متصفح الويب؛ تحسسه الشديد للشفرة في الصفحات المحلية.. ولحل هذه الإشكالية هناك طريقتان فيما أعلم.. -- الأولى: حفظ الصفحة في مجلد السيرفر المحلي: IIS أوغيره من السيرفرات المحلية مثل: wamp.. -- الثانية: نقوم بإنشاء صفحة فارغة بالطريقة التالية.. Private Sub Form_Open(Cancel As Integer) WB.Navigate "about:blank" End Sub !! من المعلوم أن أداة متصفح الويب تعمل على منصة iefram.dll وهذه المنصة تدعم إلى الإصدر السابع فقط من متصفح Internet Explorer. هذه المنصة لا تدعم HTML5 و CSS3، لكن ميكروسوف قدمت حلا لهذه الإشكالية باضافة المعرف التالي إلى مكون (وسم) <head>.. <head> <meta http-equiv="X-UA-Compatible" content="IE=edge"> </head> # الخطوة التالية هي حشر (حقن Injection) وسوم HTML و وسوم CSS وشفرة JS إلى صفحة HTML الفارغة باستخدام دالة البيانات DLookup -- الوظيفة التالية تبسط استخدام دالة Dlookup Public Function WebCode(ID As Long) As String WebCode = DLookup("[Code Content]", "WebCode", "id=" & ID) End Function -- السجل الأول في جدول WebXCode يحتوي على وسوم HTML المطلوية.. <head> <meta http-equiv="X-UA-Compatible" content="IE=edge"> </head> <body> <div id="invoice-content" class="invoice-content"> <div class="qr-result"> <div id="qr-stamp" class="qr-stamp"></div> <div id="info" class="info"></div> <div id="menu" class="context-menu"></div> </div> </div> <style id="mycss"></style> <script id="qr-code"></script> <script id="myscript"></script> </body> وتطلب بهذه الطريقة: WebCode(1) وتوضع في حدث عند الفتح بهذه الطريقة Private Sub Form_Open(Cancel As Integer) WB.Navigate "about:" & WebCode(1) End Sub -- أما وسوم CSS وشفرة JS فيتم حقنها بعد إكتمال فتح الصفحة بهذه الطريقة Sub HTML() If WB.ReadyState = READYSTATE_UNINITIALIZED Then Exit Sub End If '-- html template Call InvoiceInfo '-- html library WD.getElementById("mycss").innerHTML = WebCode(2) WD.getElementById("qr-code").innerHTML = WebCode(3) _ & ";var Xqrcode =new QRCode('qr-stamp'," _ & "{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120});" End Sub !! بهذه الطريقة نتجاوز تحذيرات المتصفح من وجود الشفرة البرمجة، كما أننا قمنا بتأهيل المتصفح للعمل بمواصفات متصفح Edge.. # فيما يتعلق بجزئيات الشفرة سوف أتحدث عنها لاحقا.. !! أجريت بعض التعدلات على المرفق لتحسين أداءه

السلام عليكم أخي الكريم ..باستخدام المصنف ذاته لأنه يحتوي على أكواد تتعلق بالـ QR CODE يمكنك وضع المعادلة التالية للحصول على النتيجة المطلوبة (( والله أعلم)). =URL_QRCode_SERIES("qr_code_1";CONCATENATE(B2;"-";C2;"-";D2;IF(E2<>"";"-";"");E2;IF(F2<>"";"-";"");F2;"-";B4;"-";B5);;"qrCode") يمكنك التعديل عليها بما يناسب طلبك QR CODE.xlsm

الاخوة الاعزاء السلام عليكم و رحمة الله و بركاته كان بالمنتدى موضوع عن الباركود و الاكسس و على ما اذكر ان وقتها كان الكلام على الباركود العادى 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

أهلا بكم.. نأتي الآن على الجزء المهم في هذه المشاركة: الجافا سكربت.. # سبق الذكر أن رمز الاستجابة السريع يتم إنتاجة بواسطة مكتبة قدمها أحد مطويري جافا سكربت، وقد قمت بتضمينها إلى جدول شفرات الويب WebXCode Table لأتمكن من استخدامها ضمن صفحة الويب، وذلك عن طريق الحقن الصوري! بمعنى أنك لو ضغط بزر الفارة الأيمن على الصفحة ثم نقرت View Source لن ترى هذه المكتبة، لكن في الحقيقة إنها موجودة! لكن تعمل في الخلفية! -- يلحق تضمين المكتبة، الأعلان عن متغير غرضي يحمل نسخة من المكتبة يُعرّف بمكان وضع الرمز والخصايص التي يحملها.. var Xqrcode =new QRCode('qr-stamp',{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120}); وقد تم تضمين المكتبة والتصريح عن المتغير بالطريقة التالية WD.getElementById("qr-code").innerHTML = WebCode(3) _ & ";var Xqrcode =new QRCode('qr-stamp'," _ & "{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120});" qr-stamp: هو معرف وسم HTML الذي سيوضع فيه الرمز، والبيانات التالية هي الخصائص، هذا المعامل إلزامي text: يحمل قيمة نصية تمثل بيانات الرمز؛ قد تكون بيانات نصية بسيطة، وقد تكون بيانات نصية مرمزة. ما يمرر على هذا المتغير؛ هو ماسيظهر على الرمز، سوف نقوم بإدراج الرمز عن طريق وظيفة أخرى.. colorDark: يحمل قيمة اللون الغامق في الرمز؛ يراعى في هذا مقاييس HTML في تعريف الألوان.. colorLight: يحمل قيمة اللون الفاتح في الرمز؛..... width: يحمل قيمة رقمية تمثل عرض الرمز height: يحمل قيمة رقمية بالبكسل تمثل طول الرمز !! يجب أن تكون قيم الطول والعرض متساوية. أكبر قيمة هي 256 بكسل !! جميع هذه الخصائص اختيارية إلا أنها تحمل قيم افتراضية.. ؟؟ كيف استدعي المتغير وأمرر إلىه القيم، وأين أضعه المتغير Xqrcode الذي سبق وأن أعلنا عنه يمثل المكون الأبوي لتابعين هما Xqrcode.makeCode(var) // له معامل نصي واحد يمثل البيانات التي ستظهر في الرمز Xqrcode.clear() // يقوم بمحو البيانات السابقة // يتم استدعائها بالطريقة التالية // من داخل النموذح WD.script.Xqrcode.makeCode(var) // من خارج النموذج WF.WD.script.Xqrcode.makeCode() // WF غرض يمثل النموذج // WD غرض يمثل صفحةويب يمكن أن تضعه في أي مكان من النموذج. بالنسبة لي وضعته في حدث السجل الحالي.. !! لتكن على علم أن جافا سكربت حساس لحالة الأحرف..

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

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

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

التطبيق الثانى والذى يعتمد على مكتبات الجافا اليكم كود الاستجابة السريع QR CODE (يدعم اللغة العربية) بدعم مكتبة جافا حسب متطلبات هيئة الزكاة والضريبة والجمارك السعودية علما انه يتم قراءة الرمز عبر قارىء خاص بالهيئة ( تطبيق جوال ) حمل من هنا : تطبيق هيئة الزكاة والضريبة والجمارك كما يتم قراءة الرمز عبر قارىء خاص من خلال موقع على الانترنت إذهب الى الموقع : من هنا متطلبات التشغيل : Framework الاصدار 4 ------------------------------------------------------------------------------- يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11 إذهب الى موقع التحميل : من هنا ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع ) ميزات برنامج All in one Runtimes: سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا. مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها. يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي. يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها: .NET Framework 4.6 + Updates Java Runtime Environment 8 DirectX 9.0c Extra files General runtime files Microsoft Visual C++ Runtimes (v2005 – v2015) Microsoft Visual J# 2.0 SE Microsoft Silverlight 5 Shockwave Player 12 (Internet Explorer Plugin) ------------------------------------------------------------------------------- الجديد فى هذا الموضوع وسبب تطوير تلك القاعدة . نظرا للمشاكل التي واجهت أحبابي سابقا بسبب تسجيل الملفات .. تم بفضل الله تعالى حل كل المشاكل تقريبا لن نحتاج الى نقل مجلد ملفات مكتبات الـ DLL الى أي مكان يتم إنشاء المجلد اليا بنفس مسار القاعدة يتم تحميل الملفات من قاعدة البيانات اليا تشغيل ملف التسجيل Register.bat اليا.. عند فتح القاعدة للمرة الأولى ومحاولة انشاء رمز الـ Qr وفى حالة عدم تسجيل مكتبة الجافا يتم اغلاق القاعدة اليا وفتح ملف التسجيل كمسؤول نظام دون أي تدخل من المستخدم نهائيا مميزات القاعدة الحفاظ على الملفات الهامة بحملها داخل القاعدة وتحميلها لمسار القاعدة فى كل مرة يتم فيها فتح القاعدة شغيل ملف التسجيل Register.bat اليا عند الحاجة لذلك يدعم النواتان 64 , 32 تشفير البيانات طبقا لمتطلبات هيئة الزكاة والضريبة والجمارك السعودية الاحتفاظ بالبيانات المشفرة لكل سجل حجم الصورة الخاصة برمز الاستجابة السريع QR CODE صغير جدا لمن يريد الاحتفاظ بهم لكل سجل أتمنى لكم تجربة ممتعة ... E-Invoicing Java.zip