Önceki mesajda belirtmiştim, silmenizi istediğim tırnakları geri ekleyin veya o satırları komple silin.

Private Sub Komut145_Click()

On Error GoTo Err_Komut145_Click

 DoCmd.RunCommand acCmdSaveRecord

    DoCmd.SetWarnings False

    DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE ((odano)=[Forms]![frm_odabilgileri]![Oda_no])")

    DoCmd.RunSQL ("UPDATE tbl_odabilgileri SET bosdolu = 1 WHERE (([ODANO])=[Forms]![frm_odabilgileri]![Oda_no])")

    Controls("Etiket" & [Forms]![frm_odabilgileri]![Odano]).BackColor = 15130064

    Controls("Etiket" & [Forms]![frm_odabilgileri]![Odano]).ForeColor = 0

    Form.Requery

    DoCmd.SetWarnings True



Exit_Komut145_Click:

    Exit Sub



Err_Komut145_Click:

    MsgBox Err.Description

    Resume Exit_Komut145_Click

    Call KutuRenk

End Sub

butonun tıklanma kodu aşağıdaki gibi olacak.

Formun "tbl_odabilgileri" yazan kayıt kaynağını silip yerine aşağıdakini yapıştır.

SELECT tbl_odabilgileri.Kimlik, tbl_odabilgileri.Odano, tbl_odabilgileri.Odatipi, tbl_odabilgileri.Odafiyati, tbl_odabilgileri.Kisisayisi, tbl_odabilgileri.Cocuksayisi, tbl_odabilgileri.Giristarihi, tbl_odabilgileri.Konaklamasuresi, tbl_odabilgileri.Cıkıstarihi, tbl_odabilgileri.Tutari, tbl_odabilgileri.Konaklamatoplami, tbl_odabilgileri.Nakitodeme, tbl_odabilgileri.Kredikartiodeme, tbl_odabilgileri.Adisyontoplami, tbl_odabilgileri.Nakitodeme1, tbl_odabilgileri.Kredikartiodeme1, tbl_odabilgileri.Nakit_toplami, tbl_odabilgileri.Kredikartitoplamı, tbl_odabilgileri.Doluoda, tbl_odabilgileri.Bosoda, tbl_odabilgileri.Bugungidecekler, tbl_odabilgileri.Bugüngelecekler, tbl_odabilgileri.Kisisayisi1, tbl_odabilgileri.Cocuksayisi1, tbl_odabilgileri.bosdolu FROM tbl_odabilgileri WHERE (((tbl_odabilgileri.bosdolu)=False));

Konu başlığındaki soru cevaplandığı için konu taşınmıştır.

Ayrıca; her mesaja örnek eklemenize gerek yok ve veritabanınızı ara sıra sıkıştırıp onarın.