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

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

أخي الكريم الكود الذي أنت واضعه في حدث مابعد التحديث لـ 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 & "#")

أخي / Koao

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

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

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

أخوكم / أمجد