ربط غياب الطالب بتاريخ ومادة الامتحان

[saffar]

السلام عليكم

شاشة بحث عن طالب وادخال الغياب المطلوب ربطها بجدول الامتحان بحيث عند البحث عن طالب واختيار التاريخ الامتحان تظهر المادة في نفس التاريخ في خانة رمز المقرر

Gyab1.rar

[ابوخليل]

عليكم السلام

Dim i As String
todd.Requery
i = DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#")
Me.crs_cd = i

 

Gyab2.rar

[saffar]

 

يظهر الخطا كما في الصورة

 

[ابوخليل]

الرسالة هذه تفيد عدم وجود بيانات

تم اضافة سطر لتوضيح الحالة

ملحوظة حتى تظهر المادة يجب ادخال تاريخ موجود في الجدول ExamTimeTable

Dim i As String
todd.Requery
i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "")
If i = "" Then
MsgBox "لا يوجد اختبار في هذا التاريخ", , ""
Else
Me.crs_cd = i
End If

اذا لا تريد الرسالة والتنبيه يظهر تكتفي بهذه

Dim i As String
todd.Requery
i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "")
Me.crs_cd = i

Gyab3.rar

[saffar]

احسنت ابو خليل 🌹

توجد بيانات

تبين ان تنسيق التاريخ في جدول الامتحانات مختلف عن تنسيق التاريخ في الفورم

 

تمت الاجابة

 

تم تعديل الجمعة at 07:42 بواسطه saffar