تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة استعلام textbox1 عن رقم مثل 10/20/1000/0
#1
السلام عليكم
قمت بانشاء فورم فى برنامج الاكسل يقوم واضافة وترحيل البيانات الى ملف الشيت
ويقوم text box1 ( رقم الحساب ) بعمل استعلام داخل الشيت للبحث في العمود الخاص برقم الحساب لمعرفة رقم الحساب المراد اضافتة موجود مسبقا ام لا في شيت العمل
المشكلة هي صيغة رقم الحساب . فمثلا ارقام الحساب التى اعمل عليها تكون بصورة  10/20/100/0 لا يقوم بجلب البيانات من الشيت مع العلم بان رقم الحساب موجود فعلا
مع العلم ان الكود يعمل اذا كان  رقم الحساب ( عدد صحيح) متل 10000
الكود المستخدم
Private Sub TextBox1_Change()
lr = WorksheetFunction.CountIf(Range("c2:c10000"), Val(TextBox1.Value))
If TextBox1.Value <> "" And lr = 1 Then
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 2, 0)
TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 3, 0)
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 4, 0)
ComboBox1.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 5, 0)


Else
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox1.Value = ""

End If

End Sub
ارجو المساعدة ولكم جزيل الشكر


الملفات المرفقة
.rar   برنامج الاستعجال ver3.rar (الحجم : 804.17 ك ب / التحميلات : 2)
الرد
تم الشكر بواسطة:
#2
(24-12-20, 10:54 PM)moodyfy كتب : السلام عليكم
قمت بانشاء فورم فى برنامج الاكسل يقوم واضافة وترحيل البيانات الى ملف الشيت
ويقوم text box1 ( رقم الحساب ) بعمل استعلام داخل الشيت للبحث في العمود الخاص برقم الحساب لمعرفة رقم الحساب المراد اضافتة موجود مسبقا ام لا في شيت العمل
المشكلة هي صيغة رقم الحساب . فمثلا ارقام الحساب التى اعمل عليها تكون بصورة  10/20/100/0 لا يقوم بجلب البيانات من الشيت مع العلم بان رقم الحساب موجود فعلا
مع العلم ان الكود يعمل اذا كان  رقم الحساب ( عدد صحيح) متل 10000
الكود المستخدم
Private Sub TextBox1_Change()
lr = WorksheetFunction.CountIf(Range("c2:c10000"), Val(TextBox1.Value))
If TextBox1.Value <> "" And lr = 1 Then
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 2, 0)
TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 3, 0)
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 4, 0)
ComboBox1.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 5, 0)


Else
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox1.Value = ""

End If

End Sub
ارجو المساعدة ولكم جزيل الشكر

أخي رقم الحساب بهذه الهيئة ( 10/20/100/0) هو عبارة عن نص وأنت تستخدم الدالة val التي تحول النص الي رقم لذي فأن الدالة vlookup تبحث عن


كود :
val("10/20/100/0")


الذي سيعطي قيمة مختلفة تماما عن النص الذي أدخلته جرب أن تضع هذه الكود داخل شاشة الـ Immedate واضغط علي انتر وانظر القيمة الناتجة كيف هي 


كود :
?val("10/20/100/0")



وباختصار قم بازالة الدالة val من الكود وستنتهي المشكلة ان شاء الله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الفاصلة الرقمية لحقل العملة عبدالكريم برشدان 1 105 20-01-22, 09:18 PM
آخر رد: ابراهيم ايبو
  مشكلة كل ماأعرض الصور يتم عرض الصور التي قبلها دون افراغ listview ماهو السبب cordava 1 198 19-01-22, 01:37 AM
آخر رد: رضوان الجماعي
Lightbulb [VB.NET] الرجاء المساعدة أخوتي عندي مشكلة DATA_GRID_VIEW RADOS 4 276 19-01-22, 12:41 AM
آخر رد: رضوان الجماعي
  مشكلة في توليد arabic qr code osmana2005 8 5,554 15-01-22, 02:59 PM
آخر رد: sh.alq
  [VB.NET] مشكلة لم استطع اضافة print form للفيجوال 2019 ولا 2022 bilgacim 0 124 10-01-22, 10:24 PM
آخر رد: bilgacim
  مشكلة في ترقيم الصور cordava 0 217 21-12-21, 09:07 AM
آخر رد: cordava
Photo مشكلة حفظ الصور في مجلد cordava 3 336 18-12-21, 10:07 PM
آخر رد: ابراهيم ايبو
  اريد عمل استعلام الكود يعمل على SQL server اريد يعمل على vb.net new_programer 17 757 17-12-21, 04:41 AM
آخر رد: new_programer
  استفسار عن استعلام في اوراكل مهم اليوم معي اختبار لغدا غدير الصليحي 2 218 14-12-21, 03:19 AM
آخر رد: غدير الصليحي
  [سؤال] مشكلة في screenshot Hatem Zahran 2 331 30-11-21, 09:44 PM
آخر رد: Hatem Zahran

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم