Skip to main content

AccessTr.neT


Giriş ve Çıkış tarihlerinin çakışması.

Giriş ve Çıkış tarihlerinin çakışması.

Çözüldü #1
Slm,arkadaşlar bir sorum olacak yardımcı olursanız memnun olurum,
Sorum şu,Rezervasyon diye bir formum var ve bu form içerisin de ise
verileri Oda kayıt formundan alan ve dolu odalar ile çıkış tarihlerini gösteren bir liste kutsu var.
1-Rezervasyon formunda rezervasyon yaparken 101 nolu odayı verdik müşterinin otele giriş tarihi 05.05.2014
olarak belirledik ,ancak oda (101 nolu oda) dolu ve çıkış tarihi 08.05.2014
Rezerve yaparken tarihlerin çakışması durumunda karışıklığı önlemek ve kusursuz ne gibi önlem alabiliriz.
Herkese şimdiden çok teşekkür ederim.
Not:Örnek eklemiyorum çünkü sitenin kotasını aşmak istemiyorum,zaten önceki sorularımda
Otel Yönetim eklenmiş durumda.
Cevapla
Çözüldü #2
Eklemeden önce o odanın o tarihte dolu olup olmadığını kontrol etmiyor musun?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
Her iki durumda da liste var amaç dalgınlık veya dikkatsizlik sonucu kazaya sebep olmamak kişinin değilde sistemin sağlam olması.Hocam.
Cevapla
Çözüldü #4
Liste olup olmadığını sormadım. Hangi denetimi kullanırsanız kullanın bir kayıt işlemi yapıyorsunuz. "Kayıt işlemi yapmadan önce o tarihte o odanın dolu olup olmadığını kontrol etmiyor musunuz?" bunu sordum.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
Sizi anlıyorum Sayın Alpeki,fakat iki ayrı form var 1-Oda Kayıt 2 ci ise Rezervasyon,Rezervasyonda zaten her iki durumunda listesi var,ancak benim amacım hiç kontrol ettim veya etmedim meselesi olmsaın,yani mazereti ortadan kaldırmak
Cevapla
Çözüldü #6
Merhaba,
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.
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task