كيفية تقسيم نص الى أعمده بالاكسس

[sweet1]

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

اخوان الكرام

لدي استفسار ارجو ان اجده له حل بحثت كثير فعجزه عن ايجاد الحل المناسب تماما ؛-

السؤال من شقين 

الشق الاول : صممت قاعدة بينات لقرائة الباركودQR فعمله جدوله به مربع نص واحد فقط بحيث عند قرائة الباركود بجهاز القارئ تضهر فيه البيانات

الاستفسار هنا اريد تقسيم البينات الموجوده بداخل هذا النص الى اعمده سواء بداخل الجدول نفسه او بداخل استعلام او جدول اخر ايا كان بحيث يكون ما قبل الفاصل وهي : نقطتان فوق بعض يكون عنوانا للحقل

البينات دخل الباركود تكون بهذا الشكل

Frisnam: mohd

lastname: ali

OBD:22/1/2005

ID:1111111

وهكذا.

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

واعتذر عن الاطاله وتقبلو مروري ولكم تحياتي

[محمد أبوعبدالله]

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

يمكن استخدام النص كمصفوفة واستخدام دالة Split وتقسيم النص كالتالي

    If Not IsNull(Me.txtQR) Then

        Dim X As String
        Dim Y() As String
        
        X = Me.txtQR
        Y = Split(X)
                
        Me.txtFrisnam = Y(0)
        Me.txtlastname = Y(1)
        Me.txtOBD = Y(2)
        Me.txtID = Y(3)
    End If

انظر المثال المرفق

db3.rar

تحياتي

[mrbakr]

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

[د.كاف يار]

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

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

يمكن استخدام النص كمصفوفة واستخدام دالة Split وتقسيم النص كالتالي

    If Not IsNull(Me.txtQR) Then

        Dim X As String
        Dim Y() As String
        
        X = Me.txtQR
        Y = Split(X)
                
        Me.txtFrisnam = Y(0)
        Me.txtlastname = Y(1)
        Me.txtOBD = Y(2)
        Me.txtID = Y(3)
    End If

انظر المثال المرفق

db3.rar 20.3 kB · 10 downloads

تحياتي

ماشاء الله لا قوة الا بالله

فكرة ابداعية خارج الصندوق

[sweet1]

شكرا لك من القلب اخي محمد ابو عبد الله جزاك الله خيرا

طبقت طريقتك ولكن انسحب معي بمربع النصح عنوان البيانات ايضا ارفق لط مثال لتوضيح الصوره

QR.rar

[jjafferr]

تفضل هذا التعديل:

    If Not IsNull(Me.txtQR) Then

        Dim X As String
        Dim Y() As String
        
        X = Me.txtQR
        Y = Split(X, vbcrlf)
                
        Me.txtFrisnam = trim(mid(Y(0),instr(Y(0),":")+1))
        Me.txtlastname = trim(mid(Y(1),instr(Y(1),":")+1))
        Me.txtOBD = trim(mid(Y(2),instr(Y(2),":")+1))
        Me.txtID = trim(mid(Y(3),instr(Y(3),":")+1))
    End If

.

اما الشطر الثاني ،

فرجاء عمل سؤال خاص به ، ورجاء وضع مثال او اي شيء آخر ، وصورة منه ، حتى نعرف كيف تم عمل الباركود 🙂

 

جعفر

[sweet1]

شكرا لكم جميعا على المساعدة كتب الله اجركم

شكرا لك اخي جعفر ضبط معي الكود 

[jjafferr]

تم فتح موضوع جديد للشق الثاني:

 

جعفر