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