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