Skip to main content

AccessTr.neT


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

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

Çö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

Bu Konudaki Yorumlar
Cvp: Giriş ve Çıkış tarihlerinin çakışması. - Yazar: KJS - 06/05/2014, 16:05
Task