اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


f16

الردود الموصى بها

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

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

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

 

 

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

رابط هذا التعليق
شارك

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

 

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

اخوك 

 

توليد QR CODE.rar

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

في ٥‏/٥‏/٢٠١٩ at 00:10, jjafferr said:

السلام عليكم 🙂

 

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

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

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

Data > QR_images

وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) 

 

وهي النتيجة:

QR_Test.png.144e6281ae2bb2fd9590795f95ff8b18.png

 

وخلونا نشوف من يقدر يقرأ الصورة 🙂

 

-----------------------------------------------------------------------------

إضافة في يوم الثلاثاء 7 / 5 / 2019 :

 

عملت مثال يعمل على 2003 🙂

QR_code.png.05d645d4d3ee7fa4a2c4b6cbc6dc992e.png

 

-----------------------------------------------------------------------------

إضافة في يوم الجمعة 14 / 6 / 2019 :

 

باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417

 

PDF_417.png.c13be43fb6e1e7b767afda48fcdc14b8.png

 

اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ :

Form.jpg.335378000dbd6917d8ea0872f9b95b17.jpg

.

والنتيجة:

QR_code.png.05d645d4d3ee7fa4a2c4b6cbc6dc992e.png

.

و باركود 128 (ويمكن عمل اي نوع من انواع الباركود)

Barcode.png.06be00b6b5374807210fadd1c98dc8e4.png

.

والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂

Report.jpg.4ba14681e6f96c392f81136cfbe65d48.jpg

.

وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك).

 

وهذا الكود مضافا اليه عمل الباركود العادي :

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 ليخزن معلومات الشخص مباشرة في الموبايل 🙂

image.png.07b31dfc4d4cbd2239ecccd46f2fb77a.png

.

وبإستخدام برامج الموبايل والتي تقرأ 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  (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) :

Clipboard00.jpg.89f1995300c05845404cf4ed9a8b57e3.jpg

Clipboard01.jpg.6f524354a51fc4639c668e5325aebf15.jpg

Clipboard02.jpg.ece441d6c6c4d07ca85dfafd09d5e227.jpg

Clipboard03.jpg.1ee536eb120969fbf23c6327dc802a92.jpg

.

وهذا هو QR code

QR_code.png.d69fb731396dd3930969c933366c0b16.png

Screenshot_20191102_211620.jpg.92e3b3a058d1759810b2bf489bc52e48.jpg

.

اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة:

.

 

جعفر

ملاحظة: 

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

هنا تجد شرح مفصل ... 

باختصار ... 

مع برنامج الاكسس

برنامج لتحويل البيانات الى باركود تتراماكس

ثم حفظها على شكل صورة لجميع السجلات في مجلد خاص 

يتم استدعاء تلك الصورة في مكانها اما في التقرير او النموذج زيها زي اي صورة موظف ... لانها محفوظة برقم I'd

 

رابط هذا التعليق
شارك

  • 1 month later...

السلام عليكم  ورحمه الله 

اخواني عندي فاتورة في اكسس بحاول اني اجمع معلومات حقول في حقل واحد اسم العميل بيجي رقم مش الاسم نفسه كما هو ظاهر في الصورة ارجو المساعدة

بدون عنوان.jpg

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information