جعل الباركود QR يضيف بياناته الى مربعات نص متعددة

[Foksh]

السلام عليكم ورحمة الله وبركاته اخواني الكرام..

 

قرأت أكثر المواضيع التي تتعلق بموضوع الباركود والـ QR . إلا انني أبحث عن شيء محدد ، ولا أخفيكم أنني حاولت ابتكار فكرة تعمل بشكل عكسي تقوم على مبدأ أنه عند قراءة الباركود داخل آكسيس يقوم بإدراج البيانات من الباركود الى مربعات نص محددة.

على سبيل المثال ( تمت التجربة على QR ):-

( رقم المريض ، اسم المريض ، رقم الهاتف ، العمر ) هذه المعلومات تمت إضافتها في QR وانشاء صورة . المطلوب أنه عند قراءة هذا الـ OR في النموذج ان يتم ادراج القيم في مربعات النص التي يتم تحديدها ( علماً بأن النموذج هذا ليس له مصدر بيانات جدول او استعلام وغير مطلوب حفظ القيم داخل اي جدول .

وهذه صورة QRتحتوي العديد من البيانات للتجربة

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

 

المطلوب :-

طريقة تجعلني عند قراءة الباركود ان يتم ادراج البيانات التي يحملها في مربعات نص محددة !!

تم تعديل مارس 22 بواسطه Foksh

[ازهر عبد العزيز]

موضوع جميل 

[Foksh]

تقريباً تم إيجاد الحل 😎

 

سيتم ادراجه حال التأكد من جميع الاحتمالات 😅

[Foksh]

الحمد لله تم ايجاد الحل المناسب ،،

كود يقوم بتقسيم وتوزيع القيم الموجودة في الـ 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

 

[kkhalifa1960]

في 22‏/3‏/2024 at 16:04, Foksh said:

وهذه صورة QRتحتوي العديد من البيانات للتجربة

ومن اين ستأتي بالبيانات من الباركود (من سيقرأها ؟؟؟؟؟؟؟؟؟) وكيف ستأتي بها للأكسس .

[Foksh]

5 دقائق مضت, kkhalifa1960 said:

ومن اين ستأتي بالبيانات من الباركود (من سيقرأها ؟؟؟؟؟؟؟؟؟) وكيف ستأتي بها للأكسس .

QR Generator 2.zip

هذا مثال أستاذي الكريم 😊

[kkhalifa1960]

هذا لانشاء باركود . اما لقراءة بيانات الباركود الذي اشرت اليه بمشاركتك الاولى .؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[Foksh]

5 ساعات مضت, kkhalifa1960 said:

هذا لانشاء باركود . اما لقراءة بيانات الباركود الذي اشرت اليه بمشاركتك الاولى .؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أستاذ خليفة ، الـ QR في مثالي سيقوم بإدراج البيانات عند قراءتها بجهاز الباركود - ( تمت التجربة عن طريق برنامج QR Reader من الجوال ) - على شكل 

AAAA,BBBB,CCCC,DDDD

حيث AAAA,BBBB,CCCC,DDDD القيم التي تم حفظ الـ QR فيها.

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

 

ودمت 😊

تم تعديل مارس 23 بواسطه Foksh

[Lamyaa]

هذه طريقتي

    Dim QRLines As Variant
    QRLines = Split(Replace(QRText, Chr(13), ""), Chr(10)) ' يتم قراءة الأسطر من حقل QR ومن ثم تجزئتها إلى مصفوفة
    
' من ثم يتم إسناد القيم من المصفوفة إلى الحقول
    Textbox1 = QRLines(0)
    Textbox2 = QRLines(1)
    Textbox3 = QRLines(2)
    Textbox4 = QRLines(3)

 

تم تعديل مارس 25 بواسطه Lamyaa

[Foksh]

14 دقائق مضت, Lamyaa said:

هذه طريقتي

    Dim QRLines As Variant
    QRLines = Split(Replace(QRText, Chr(13), ""), Chr(10)) ' يتم قراءة الأسطر من حقل QR ومن ثم تجزئتها إلى مصفوفة
    
' من ثم يتم إسناد القيم من المصفوفة إلى الحقول
    Textbox1 = QRLines(0)
    Textbox2 = QRLines(1)
    Textbox3 = QRLines(2)
    Textbox4 = QRLines(3)

 

اشكرك على هذا التعليق اختنا @Lamyaa ، لكن الكود الذي ادرجته وجب ان يتحقق من عدد القيم في الباركود اضافة الى ذلك انه يتعامل مع القيم الفارغة في أحد خانات القراءة التي تم بناء الـ QR عليها .

وفعلاً كود حضرتك يحقق نفس الغاية تقريباً 😊