Mükerrer olayı için:
Mükerrer satışı engelleme
Mükerrer kayıt engelleme hakkında
Mükerrer Kayıtlar
mükerrer kayıt
Mükerrer Kayıtların Engellenmesi
2. soru izin yeni konu açmanız gerekiyor, ancak cevaplamaya çalışayım
Yeni bir modül oluşturun ve
Global GeciciOdaNo As String
kodu ekleyin.
oda bilgileri formundaki konaklama süresi metin kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştir.
Private Sub Konaklamasuresi_AfterUpdate()
GeciciOdaNo = Me.odano
Me.Cıkıstarihi = Me.CT
Me.Odatipi = Me.Oda_tipi
Me.Odafiyati = Me.Oda_fiyati
Me.KONTOP = Me.Oda_fiyati * Me.Konaklamasuresi
Me.Yetiskinsayısı = Me.Yetiskinsayısı + Me.Kisisayisi
Me.CS = Me.CS + Me.Cocuksayisi
Me.Bosoda = Me.Bosoda - 1
Me.Doluoda = Me.Doluoda + 1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "frm_musteri", , , , acFormAdd
Call ODADURUM
Call ODARENK
End Sub
Müşteri formunun YÜKLENDİĞİNDE olayına aşağıdaki kodu ekle
Private Sub Form_Load()
If IsNull(Me.odano) Then
Me.odano = GeciciOdaNo
End If
End Sub