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