ارجو المساعدة لحل تلك المشكلة بdlookup

[Mohamed Elsherif]

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

اولا احب اشكر الله انه رزقنى معرفة هذا المنتدى ثم كل القائمين على هذا المنتدى والذى استفدت منهم كثيرا

لاننى فى البداية مبرمج ولكن بلغة الكوبول وبحب المجال دا جدا جدا

فشكرا جزيلا لكم

Private Sub Length_AfterUpdate()
Dim strfilter As String
strfilter = "[Length]='" & Me!Length & "' And [Type]=' & Me!Type&"
Me!Name = DLookup("Name", "Type_Table", strfilter)
Me!Cost_B = DLookup("Cost_B", "Type_Table", strfilter)
Me!Cost_W = DLookup("Cost_W", "Type_Table", strfilter)
Me!Selling_B = DLookup("Selling_B", "Type_Table", strfilter)
Me!Selling_W = DLookup("Selling_W", "Type_Table", strfilter)
End Sub

تم تعديل أبريل 25, 2013 بواسطه أبو آدم
:احتواء الكود

[ابوخليل]

اذاكانت الحقول نصية فيكون الشرط هكذا :

 strfilter = "[Length]='" & [Length] & "'" & " and [Type]='" & [Type] & "'"