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