AccessTr.neT

Çıkış tarihi ile ilgili olarak,

vba sayfasında checkout butonunun yani Komut145'in tıklandığında olayındaki kodda,

strSQL = strSQL & "SELECT tbl_odabilgileri.Odano, tbl_odabilgileri.Odatipi.........

şeklinde başlayan satırdaki

, tbl_odabilgileri.Cikistarihi,

kodunu aşağıdaki ile değiştir

, IIf([Cıkıstarihi] = Date(),[Cıkıstarihi],Date()),

çıkış tarihi bugün ise çıkış tarihi verisini aktarır, bugün değil ise bugüne ait tarihi aktarır.

Not: Karışık gelebilir, biraz uğraşın..

Sayın Ozan Hocam,
Emeğiniz için çok teşekkür ederim,çok sağolun.
Sorun çözülmüştür.
Saygılarımla