Hocam emeğinize ve elinize sağlık mutlaka doğrudur,ama ne yazıkki ben kodlar konusunda yetersizim buda böyle olsun olsaydı iyi olacaktı ama olmadı vaktinizi aldım,diğer arkadaşlarında hakkını gasp etmek istemiyorum.Tşk.ederim.
Saygılarımla.
![Çözüldü](images/icons/cozuldu.png)
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
Call Kontrol
kodunu ekle,
(10/01/2012, 15:58)yunusotel yazdı: Hocam emeğinize ve elinize sağlık mutlaka doğrudur,ama ne yazıkki ben kodlar konusunda yetersizim buda böyle olsun olsaydı iyi olacaktı ama olmadı vaktinizi aldım,diğer arkadaşlarında hakkını gasp etmek istemiyorum.Tşk.ederim.
Saygılarımla.