Oda Kayıt formunda vb penceresinde en alta aşağıdaki kodu ekle

Sub Kontrol()

Dim RezervGirisTarihi, RezervCikisTarihi As Date

RezervGirisTarihi = Dlookup ("[Giriş Tarihi]", "[tbl_rezervasyon]", "[odano]=" & "'" & Me![Oda No] & "'")

RezervCikisTarihi = Dlookup ("[Çıkış Tarihi]", "[tbl_rezervasyon]", "[odano]=" & "'" & Me![Oda No] & "'")

'Me.Metin441 = RezervCikisTarihi



If (Me.GİRİŞ_TARİHİ > RezervGirisTarihi And RezervCikisTarihi > Me.GİRİŞ_TARİHİ) Or (Me.ÇIKIŞ_TARİHİ > RezervGirisTarihi And RezervCikisTarihi > Me.ÇIKIŞ_TARİHİ) Then

MsgBox ([Oda No] & " numaralı oda" & RezervGirisTarihi & "-" & RezervCikisTarihi & "tarihli arası rezervli")

End If



End Sub

Daha sonra "GİRİŞ TARİHİ" ve "KONAKLAMA SÜRESİ" metin kutularının (bu isimde metin kutusu olmaz, mtn_giristarihi ve mtn_konaklamasuresi olmalı) güncelleştirme sonrasında olayına

Call Kontrol

kodunu ekle,