طلب كود عدم الوجود

[blue sea]

السلام عليكم ..

ارجو عمل كود بحيث عند اختيار تاريخ غير موجود في الجدول تظهر رسالة( التاريخ الذي اخترته غير موجود) في البرنامج المرفق

12 august 2024.accdb

[ابوخليل]

تفضل

Dim x As Date
x = Nz(DLookup("dat", "tabl", "dat=[dd]"), 0)
If x = Me.dd Then
Me.t4.Requery
Me.t4.Visible = True
Else
Me.t4.Requery
Me.t4.Visible = False
MsgBox " التاريخ الذي اخترته غير موجود", , "تنبيه"
End If

 

122024.rar

[blue sea]

شكرا اخي الكريم