اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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
تم تعديل بواسطه أبو آدم
:احتواء الكود
  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information