• 0
lost_6000

[ تمت الإجابة ] كيف يعمل الكومبو بوكس بواسطة الإسم و ليس الرقم

سؤال

أخواني المهندسين

لدي سؤال قد يكون بسيط و لكني لا أعرف إجابته

بالنسبة للكمبوبوكس أنا أعرف كيف أبحث فيه بواسطة الرقم عن طريق الأكواد

و لكن عندما حاولت أبحث بواسطة الإسم لم أتمكن و ظهر لي خطأ

أرجو منكم مساعدتي بواسطة الأكواد للبحث بواسطة الإسم

مرفق مع هذه الرسالة البرنامج المطلوب تعديله

و لكم مني جزيل الشكر

أخوكم في الله / أمجد

Test.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

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

أخي الكريم الكود الذي أنت واضعه في حدث مابعد التحديث لـ Text8 إستبدله بالتالي

Private Sub Text8_AfterUpdate()
Text8 = DLookup("item", "StoreData", "Item = '" & Text8 & "'")
Combo6 = DLookup("snum", "StoreData", "Item = '" & Text8 & "'")
Text13 = DLookup("descr", "StoreData", "Item = '" & Text8 & "'")
Text11 = DLookup("upric", "StoreData", "Item = '" & Text8 & "'")
Text9 = DLookup("rentp", "StoreData", "Item = '" & Text8 & "'")
Text15 = DLookup("quant", "StoreData", "Item = '" & Text8 & "'")
Text4 = DLookup("snote", "StoreData", "Item = '" & Text8 & "'")
End Sub

وترى أنني لم أستخدم If الدالة الشرطية .. التي إستخدمتها لعدم الحاجة لها .. لأن ما يظهر في مربع التحرير والسرد .. أكيد موجود في الجدول .. لأن مصدر بياناته .. من الجدول.

وسبب الخطأ ألذي وقعت به هو التالي

إذا إستخدمت متغير أو قيمة أداة كمربع نص أو غيره في عباراة مثل Dlookup أو Dmax أو عبارات SQL فيجب أن تنتبه لنوع الحقل الذي سنلحق قيمة المتغير أو الأداة له

فلو كان نوع الحقل رقم فيكون إستخدامك كالتالي

DLookup("item", "StoreData", "Item = " & Text8 & "")

أما إذا كان من نوع نص

DLookup("item", "StoreData", "Item = '" & Text8 & "'")

اما اذا كان من نوع تاريخ

DLookup("item", "StoreData", "Item = #" & Text8 & "#")

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي / Koao

أشكرك شكرا جزيلا علي سرعة ردك و إستوفاء شرحك للموضوع

جربت الكود و إشتغل معايا جيدا جدا

أشكرك مرة أخري

أخوكم / أمجد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .