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.

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,

(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.

Sn yunusotel, bir önceki mesajda sorunuza cevap yazdım ama bencede bu şekilde olmayacak, siz soruyorsunuz biz cevaplıyoruz, böyle olunca sizin access'i geliştirme şansınız sıfıra iniyor.
Alpeki'nin dediği gibi yazdığım kod hatalı form için olsada size fikir vermesi, verilen kodu doğru forma kendinizin uygulaması lazım.

Ayrıca birçok konunuzda cevap olarak Yapılmaması gereken ölümcül hatalar konusunu yazmamıza rağmen tablolarınız ve formlarınız felaket durumda.

Tüm hocalarıma emek ve göstermiş oldukları sabırdan dolayı çok teşekkür ederim
Saygılarımla.

Sayın hocam dediklerinizi uyguladım bu seferde Me.metin411 diye bir hata veriyor,ilgilenebirirseniz memun olurum
Saygılarımla.

Ek Dosyalar

Otel Yönetim-deneme - Kopya.rar(395.1 KB)

Çünkü formunuzda Me.Metin441 isminde bir alan yok. Bu durumu bir gözden geçirin.