طريقة إظهار QR CODE فى تقارير أكسيس (شرح و ملفات )

[helmy_foad]

اليوم أقدم لكم موضوع يبحث عنة الكثيرين

الموضوع هو كيفية إظهار بيانات محددة فى التقرير على هيئة 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

تم تعديل فبراير 12, 2014 بواسطه helmy_foad

[helmy_foad]

33 مشاهدة و 8 تحميلات للمرفقات

و لا تعليق واحد

واضح اننى الوحيد المهتم بهذا الموضوع

[أبا عمر]

السلام عليكم ورحمة _الله_ وبركاته
أخي الحبيب جزاك _الله_ خيرا ونفع ربي بك
ولا تزعل لو ما رد عليك أحد لعل عندهم عذر
وأقول لك إن شاء _الله_ تجد ثواب ما قدمته ولو بعد حين  حين يستفيد منها من يقرأها من الآن الى أن يشاء الله فلا تبتأس
طبعا لا تزعل مني
 

[ابوخليل]

جزاك الله خيرا

درس جديد  اظن لم يطرق في هذا المنتدى

وسؤالي : هل قارىء الباركود الأحادي يقرأ هذا النوع

ولو تكرمت باعادة رفع قاعدة البيانات المرفقة على الاصدار 2003

[helmy_foad]

ال QR Codes  تتميز بانه أصبح من السهل الان على أى شخص معة هاتف يعمل بنظام الاندرويد

و به كاميرا ان يقوم بمسح الكود و إظهار محتوياته

و يتميز ال QR Codes عن الاكواد الاحادية بانه من الممكن ان يحتوى على سطور متعددة

و روابط انترنت و إحداثيات مواقع و غير ذلك

و يمكنك تحميل برنامج قارئ من متجر الاندرويد

و افضلهم هو هذا القارئ https://play.google.com/store/apps/details?id=la.droid.qr

[أبا عمر]

[helmy_foad]

نسخة mdb أوفيس 2003

Database.rar

[غوتشي]

السلام عليكم يعطيك العافيه انا جدا مهتمه بهالموضوع ومن شهرين كنت احاول اني اصمم برنامج اكسس باللغه العرربية

ولكن خطوط اللي نزلتها ومرفقات لـ QReader لايدعم اللغه العربيه

اتمنى تعلمني طريقة دعم اللغه العربيه لبرنامج اكسس ^_^

 

و في نقطه مافهمتها بشرحك تقصد بفيجول بيسك:

أنه لما افتح النموذج اللي فيها زر للتقرير وين اضيف الفيجول بيسك؟؟

في خصائص الزر و لا بالتقرير بخصائص المربع تكست 1 اتمنى تساعدني فيه لان عندي مشروع

وشكرااااا

[SAROOK]

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

مجهود طيب اخي حلمي سهل ممتنع

اضم صوتي لغوتشي راجيا خط يدعم اللغة العربية

والسلام عليكم

[SAROOK]

السلام عليكم 

ياريت ان يتم فتح الموضوع مره اخرى بخصوص دعم اللغة العربية

والسلام

[أبو عبدالله الحلوانى]

جزاك الله مجهود طيب

[SAROOK]

السلام عليكم 

لم اصل لحل في موضوع دعم اللغة العربية --- فعندما يتم استعمال مدخل عربي يظهر اثناء قراءته باي قارئ كيوار كود كاربج---

ولاادري هل هناك من استطاع التغلب على هذه المشكلة 

ادعو الجميع للمساهمة في الحل ومشكورين 

[shereen_eg_1]

بارك الله فيك و جزاك خيرا علي البرنامج الجميل

[SAROOK]

للرفع

[SAROOK]

للرفع

[SAROOK]

السلام عليكم 

لم اصل لحل في موضوع دعم اللغة العربية --- فعندما يتم استعمال مدخل عربي يظهر اثناء قراءته باي قارئ كيوار كود كاربج---

ولاادري هل هناك من استطاع التغلب على هذه المشكلة 

ادعو الجميع للمساهمة في الحل ومشكورين 

[حامد عبد الكريم]

هذا برنامج بسيط يدعم التحويل لباركود باللغة العربية
هل يمكن تفككيكه والاستفادة منه ؟

https://www.dropbox.com/s/aq517b32wy5yqd3/qrko-setup.rar?dl=0

[SAROOK]

مشكور جدا اخي حامد جاري تجربة البرنامج

وتحياتي

تم تعديل يناير 28, 2016 بواسطه SAROOK
تسرع في الحكم

[SAROOK]

لقد قمت يتحميل البرنامج وبعد التحميل قمت بانشائه ومن تم  لم اجد البرنامج ربما لم افهم طريقة التعامل معه اخي حامد

تم تعديل يناير 28, 2016 بواسطه SAROOK

[حامد عبد الكريم]

عذرا أخي فالبرنامج لم يعمل على جهازي أيضا 
لا أدري ما السبب بالضبط وهو يعمل على جهاز آخر بدون اشكال 
وهذا برنامج آخر أصغر حجما يقوم بنفس المهمة
https://www.dropbox.com/s/c884etdhaotc592/FreeQRCreator.exe?dl=0

[SAROOK]

اشكرك اخي حامد للاهتمام والرد بارك الله فيك

حملت البرنامج وجربته وهو ممتاز تعرف على الغة العربية واظهرها سليمة عند تجربته واظهاره بقارئ الكيوار كود الخارجي 

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

اعتقد ان المشكلة تتمثل في نوع الخط فالخط المستعمل في المثال وهو MW6 Matrix  الذي لايدعم اللغة العربية

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

شكرا لك مره اخرى اخي حامد 

[Barna]

للرفع هل تم التوصل لحل اللغة العربية وqr code بارك الله فيكم ...

[Barna]

للرفع بارك الله فيكم ...

[Barna]

UP

[MAK4]

Up