كيف عمل QR للفاتورة

f16 · سبتمبر 11, 2021

اسعد الله مسائكم جميعاً اعضاء هذا النادي الكبير

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

ولكم جزيل الشكر

مثال على اضافة ال QR.accdb

**ابو جودي** · سبتمبر 11, 2021

تنفضل ان شاء الله فى هذا الموضوع تجد ما يسرك

f16 · سبتمبر 12, 2021

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

مع كل التقدير والاحترم

اخوك

توليد QR CODE.rar

**kanory** · سبتمبر 12, 2021

التطبيق على مثالك في بداية الموضوع ..... اعلمنا بالنتيجة .....

ka_QR.rar

f16 · سبتمبر 13, 2021

سلمت يداك اخي kanory

اتمنى ان تخبرنا عن الفكرة الاساسية لعمل هذه الطريقة ، وما فائدة الملحقات التي تأتي معه

مع كل التقدير لجهودك الواضحة .

**kanory** · سبتمبر 13, 2021

في ٥‏/٥‏/٢٠١٩ at 00:10, jjafferr said:
السلام عليكم 🙂

اللغة العربية هي المطلوبة هنا 🙂

المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ،

ويتم حفظ الصورة هنا

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 611.23 kB · 493 downloads

ID.zip 1.42 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 418 downloads