💥 التحدي 3 : ونعم ، يمكنك الاستعانة بالذكاء الاصطناعي لعمل الباركود Code128 و QR

[Foksh]

5 ساعات مضت, منتصر الانسي said:

لو كان بإمكان الأخ @Foksh إضافة هذه الخيارات كمعلمة لإختيار أحدها وتنفيذ الأمر مباشرة سيكون أفضل

تفضل اخي منتصر .. التعديلات التي تمت :-

• الدالة DrawAndSaveBarcode أصبحت :-

Public Sub DrawAndSaveBarcode(txt As TextBox, img As Image, barcodeType As String, Optional bVertical As Boolean = False)
    Dim saveDir As String
    Dim fullPath As String
    Dim parentReport As Report
    Dim saveMode As String
    Dim shouldSave As Boolean

    On Error Resume Next
    Set parentReport = img.Parent
    If parentReport Is Nothing Then Set parentReport = img.Parent.Parent
    On Error GoTo 0

    saveMode = "NoSave"
    If Not parentReport Is Nothing Then
        saveMode = Nz(parentReport.OpenArgs, "NoSave")
    End If

    shouldSave = False
    If saveMode = "SaveAll" Or saveMode = "SavePage" Then
        shouldSave = True
    End If

    If shouldSave Then
        saveDir = CurrentProject.Path & "\QRImg\"
        If Dir(saveDir, vbDirectory) = "" Then MkDir saveDir
        fullPath = saveDir & barcodeType & "_" & txt.Value & ".bmp"
    Else
        fullPath = ""
    End If

    If LCase(barcodeType) = "qr" Then
        Call drawQuickResponseToImage(txt, img, savePath:=fullPath)
    ElseIf LCase(barcodeType) = "code128" Then
        Call drawCode128(txt, img, , bVertical, savePath:=fullPath)
    End If
End Sub

• الإستدعاءات في الأزرار أصبحت :-

 

Private Sub cmdOpenWNavSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SavePage"
End Sub

Private Sub cmdOpenWOSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "NoSave"
End Sub

Private Sub cmdOpenWSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SaveAll"
End Sub

Private Sub cmdSave_Click()
    DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , acHidden, "SaveAll"
    DoCmd.Close acReport, "rpt_BG_img_Barcode", acSaveNo
    MsgBox "بنجاح QRImg تم توليد وحفظ جميع الصور في مجلد", vbInformation + vbMsgBoxRight, ""
End Sub

• وفي التقرير أصبحت التمرير كالآتي :-

Private Sub Report_Open(Cancel As Integer)
    On Error Resume Next
    If Nz(Me.OpenArgs, "") = "SaveAll" Then
        Me.TxtPages.ControlSource = "=[Pages]"
    Else
        Me.TxtPages.ControlSource = ""
    End If
    On Error GoTo 0
End Sub

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR4, "Code128")
    Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR5, "Code128", True)
    Call DrawAndSaveBarcode(Me.FieldQRCode, Me.ImgQR2, "QR")
End Sub

أتمنى أن يلبي ها التعديل المطلوب . طبعاً بالإستعانة بنموذجك أخي منتصر 😉 .

 

 

 

QR_Barcode - 5.accdb

[jjafferr]

16 ساعات مضت, Foksh said:

يعني انت تريد تنظيف الأكواد من الاعتماد على Tag كلياً ؟

فقط سنقوم بإزالة الجملة الشرطية التي تختص بالـ Tag ، من المديول ModulQRCode

شكرا جزيلا

لاحظت ، هذه المرة تم تعبئة كائن الصورة بخطوط اثخن.

انا استخدم قراءة الباركود من الشاشة بواسطة الموبايل فقط للتأكد ان القيمة صحيحة ،

وللتأكد النهائي ، فاني ارسلها لأحد المؤسسات حتى يطبعوها على الهوية البلاستيك بأبعادها الحقيقية والباركود بالحجم المناسب ، ثم نقارن حجم النتيجة الحالية بحجم النتيجة الاصلية التي لدينا ، والاهم هو نتائج سرعة قراءة الباركود. طبعنا حسب كود مرفقك السابق والنتيجة كانت ممتازة ، وسنطبع اعتقد غدا ان شاء الله نتائج هذه المرفق QR_Barcode-3 ان شاء الله واوافيك بالنتيجة

[jjafferr]

14 ساعات مضت, منتصر الانسي said:

هذا يمكن حله بتعديل خاصية Size Mode للصورة بدل Zoom إجعلها Stretch

انا اجرب قبل ان اضع رد 🙂

عندنا كائن الصورة في التقرير والذي به يمكن عمل تعديل الخاصية كما تفضلت ، ولكن هذا يعتمد 100% على الصورة نفسها ، ولكن هذه المسافة البيضاء هي جزء من الصورة ، فلا تصلح الخاصية ، ولا يمكنك محاذات الصورة في الكائن ايضا ، لان العيب في الصورة.

 

وفكرة ممتازة في تقسيم العمل حسب حاجة المستخدم ، وتقليل وقت التنفيذ 🙂

[jjafferr]

12 ساعات مضت, أبو عبدالله الحلوانى said:

الفكرة هو تحويل الكتابة من التقرير الي الكتابة علي كائن صورة

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

البعض قد يعتقد ان طلباتي كثيرة ، ولكني اضطر لهذه الطلبات حتى يكون المنتج النهائي خالد لأعوام وعقود.

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

 

مرفقك يعطي التقرير الاول المفرد , وعند طلب الصفحة التالية حصلت على هذا الخطأ:

.

وفي الواقع هذا الخطأ يظهر اذا كان هناك اكثر من سجل

 

[jjafferr]

9 ساعات مضت, Foksh said:

فضل اخي منتصر .. التعديلات التي تمت :-

• الدالة DrawAndSaveBarcode أصبحت :-

متابع