Bir önceki mesajımı yeniledim. Daha önce silmenizi istediğim tırnakları geri ekleyip veya o satırları silip yerine önceki mesajımı uygulayınız. Yani;

    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])")