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

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


sweet1
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

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

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

اخوان الكرام

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

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

الشق الاول : صممت قاعدة بينات لقرائة الباركود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

تحياتي

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

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

تحياتي

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

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

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

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

    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

.

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

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

 

جعفر

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

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