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?