frm_rezervasyon-Giris_tarihi-Odaklanma Sonlandığında-"Olay Yordamına"
On Error Resume Next
Dim CTarih As Date
CTarih = Dlookup ("[Cıkıstarihi]", "tbl_odabilgileri", "OdaNo=" & Me.Odano)
If Me.Giris_tarihi <= CTarih Then
MsgBox "Oda Doludur, Rezarvasyon yapamazsınız"
Me.Giris_tarihi = ""
Me.Konk_gun = 0
Me.Requery
Me.Giris_tarihi.SetFocus
olarak değiştirirseniz sorunuz çözülür.