أرجو المساعدة في دالة DLookup

أضف هذا السطر

[ms] = DLookup("[mostawaM]", "prog", "t8=[رقم البرنامج]")

test_9.zip

بارك الله بك اخي ابو لميس

على المشاركة

ايضا اخي : ابو عبير

استخدم هذا الكود لإظهار البرنامج والمستوى

Private Sub t8_AfterUpdate()
If IsNull(DLookup("[Program]", "prog", "[ProgramNum]=" & [t8])) Then
  MsgBox "عفوا ! هذا البرنامج غير موجود"
DoCmd.CancelEvent
Else
[t2] = DLookup("[Program]", "prog", "[ProgramNum]=" & [t8])
[ms] = DLookup("[mostawam]", "prog", "[ProgramNum]=" & [t8])
End If

End Sub

za-test_9-UP.rar

بالتوفيق

بارك الله فيكم ورحم والديكم وأسكنكم الجنة

الله لا يحرمكم الأجر .

تقبلوا فائق تقديري واحترامي .