afa

نعم الفكرة جميلة والكاتب اجمل
حاولت ومشى الحال ولكن لايمكن اضافة اكثر من تاريخ واحد!! فهل من الممكن اضافة اكثر من تاريخ في الجدول لاتمكن من اختيار التاريخ الذي اريد؟
الكود الذي ااستخدمته كالتالي:
 
Private Sub Text15_AfterUpdate()
Dim max_num_res As Integer
Dim max_res_date As Date
max_num_res = DLookup("MaxNumReserv", "reservation_dates_max")
max_res_date = DLookup("MaxNumDate", "reservation_dates_max")
If max_res_date = Text15.Value Then
Text13 = max_num_res
Else
Text15.Value = Date
Text13.Value = 3
End If
End Sub
 
ودمتم بخير