02/11/2015, 18:57
ozanakkaya
Çı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
kodunu aşağıdaki ile değiştir
çı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..
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..