السلام عليكم ورحمة الله وبركاته
اولا احب اشكر الله انه رزقنى معرفة هذا المنتدى ثم كل القائمين على هذا المنتدى والذى استفدت منهم كثيرا
لاننى فى البداية مبرمج ولكن بلغة الكوبول وبحب المجال دا جدا جدا
فشكرا جزيلا لكم
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
