AccessTr.neT

kayıt silme kodunu aşağıdaki ile değiştir.

    DoCmd.SetWarnings False

    DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE ((odano)=[Forms]![ODA KAYIT]![ODA NO])")

    Controls("Etiket" & [Forms]![ODA KAYIT]![ODA NO]).BackColor = 12632256

    Controls("Etiket" & [Forms]![ODA KAYIT]![ODA NO]).ForeColor = 0

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    Form.Requery

    DoCmd.SetWarnings True

Hocam silme kodunu nereye ekleyeceğimi anlayamadım..

Kayıt Sil butonunun, yani Komut334'ün tıklandığında olayına.

Sizi bu gün çok yorum ama lütfen affedin,Hocam ekledim ama bu seferde hata veriyor,formu tekrar ekledim.Teşekkürle.

Ek Dosyalar

oda_kayıt_son.rar(67.46 KB)

Herhangi bir hata vermeden çalıştı. Kayıt silerken verdiği kayıt silme uyarısından bahsediyorsanız 10. mesaja eklediğim kodu kullanmanız gerekiyor.

10. mesajda "kayıt silme kodunu aşağıdaki ile değiştir." yazdım, mevcut koda ekleme yapmışsınız, kodu 10. mesajdaki kod ile, yani aşağıdaki kod ile değiştireceksiniz, kodun tamamı aşağıdaki gibi olacak.

Private Sub Komut390_Click()

On Error GoTo Err_Komut390_Click

  

    DoCmd.SetWarnings False

    DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE ((odano)=[Forms]![ODA KAYIT]![ODA NO])")

    Controls("Etiket" & [Forms]![ODA KAYIT]![ODA NO]).BackColor = 12632256

    Controls("Etiket" & [Forms]![ODA KAYIT]![ODA NO]).ForeColor = 0

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    Form.Requery

    DoCmd.SetWarnings True



Exit_Komut390_Click:

    Exit Sub



Err_Komut390_Click:

    MsgBox Err.Description

    Resume Exit_Komut390_Click

    

End Sub

Ayrıca, kayıt silmek sizce doğru mu?

Eli öpülesi muhterem hocam yardımlarınız için tşk ederim,silme kodunu ekledim formda kayıt olmamasına rağmen 304 ve 401 nolu etiket kutuları dolu gözüküyor ve silme msj farklı geliyor.formu tekrar ekliyorum mümkünse o değerli vede gecenin şu saatindeki kıymetli vaktinizi ayrırabilirseniz beni bu azaptan kurtarmış olursunuz.Ayrıca silme tabiki doğru değil yani müşteri çıkışı yapıldığında odanın boş gözükmesi gerekiyor,işte burada asıl olan önceki kaydın saklanabilmesidir.Silme deki kastım buydu,yanlış telefuz etmişim özür dilerim.saygılarımla.

Ek Dosyalar

oda_kayıt_son.rar(58.54 KB)