sweet1 قام بنشر يونيو 13, 2021 مشاركة قام بنشر يونيو 13, 2021 السلام عليكم ورحمة الله وبركاتة اخوان الكرام لدي استفسار ارجو ان اجده له حل بحثت كثير فعجزه عن ايجاد الحل المناسب تماما ؛- السؤال من شقين الشق الاول : صممت قاعدة بينات لقرائة الباركودQR فعمله جدوله به مربع نص واحد فقط بحيث عند قرائة الباركود بجهاز القارئ تضهر فيه البيانات الاستفسار هنا اريد تقسيم البينات الموجوده بداخل هذا النص الى اعمده سواء بداخل الجدول نفسه او بداخل استعلام او جدول اخر ايا كان بحيث يكون ما قبل الفاصل وهي : نقطتان فوق بعض يكون عنوانا للحقل البينات دخل الباركود تكون بهذا الشكل Frisnam: mohd lastname: ali OBD:22/1/2005 ID:1111111 وهكذا. الشطر الثاني من السوال عند قارئة الباركود في الاحرف العربيه تضهر لي رموز غريبه ولغة غير مفهومه عجزة مع المحاوله بكل الطرق حلها. جربت تغيير اللغة وغيرها ما نفع معي فهل هناك حل برمجي او غيره. واعتذر عن الاطاله وتقبلو مروري ولكم تحياتي رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر يونيو 13, 2021 أفضل إجابة مشاركة قام بنشر يونيو 13, 2021 وعليكم السلام ورحمة الله وبركاته يمكن استخدام النص كمصفوفة واستخدام دالة 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 تحياتي 3 رابط هذا التعليق شارك More sharing options...
mrbakr قام بنشر يونيو 13, 2021 مشاركة قام بنشر يونيو 13, 2021 جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يونيو 13, 2021 مشاركة قام بنشر يونيو 13, 2021 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 تحياتي ماشاء الله لا قوة الا بالله فكرة ابداعية خارج الصندوق 1 رابط هذا التعليق شارك More sharing options...
sweet1 قام بنشر يونيو 13, 2021 الكاتب مشاركة قام بنشر يونيو 13, 2021 شكرا لك من القلب اخي محمد ابو عبد الله جزاك الله خيرا طبقت طريقتك ولكن انسحب معي بمربع النصح عنوان البيانات ايضا ارفق لط مثال لتوضيح الصوره QR.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 13, 2021 مشاركة قام بنشر يونيو 13, 2021 تفضل هذا التعديل: 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 . اما الشطر الثاني ، فرجاء عمل سؤال خاص به ، ورجاء وضع مثال او اي شيء آخر ، وصورة منه ، حتى نعرف كيف تم عمل الباركود 🙂 جعفر 2 رابط هذا التعليق شارك More sharing options...
sweet1 قام بنشر يونيو 13, 2021 الكاتب مشاركة قام بنشر يونيو 13, 2021 شكرا لكم جميعا على المساعدة كتب الله اجركم شكرا لك اخي جعفر ضبط معي الكود رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 13, 2021 مشاركة قام بنشر يونيو 13, 2021 تم فتح موضوع جديد للشق الثاني: جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.