Mohamed Elsherif قام بنشر أبريل 21, 2013 مشاركة قام بنشر أبريل 21, 2013 (معدل) السلام عليكم ورحمة الله وبركاته اولا احب اشكر الله انه رزقنى معرفة هذا المنتدى ثم كل القائمين على هذا المنتدى والذى استفدت منهم كثيرا لاننى فى البداية مبرمج ولكن بلغة الكوبول وبحب المجال دا جدا جدا فشكرا جزيلا لكم 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 بواسطه أبو آدم :احتواء الكود 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 25, 2013 مشاركة قام بنشر أبريل 25, 2013 اذاكانت الحقول نصية فيكون الشرط هكذا : strfilter = "[Length]='" & [Length] & "'" & " and [Type]='" & [Type] & "'" رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.