metin kutusunun adını "Oda_no" olarak değiştirmişsiniz ancak kodda "odano" ve "ODANO" olarak duruyor, her ikisini de "Oda_no" yaparsanız düzelir
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])")
metin kutusunun denetim kaynağı "odano" ise, metin kutusu adını "mtn_odano" olarak kaydederseniz bu tip sorunlarla karşılaşmazsınız, ancak şu anki sorun sizi ileride yaşayacağınız daha büyük sorunlardan kurtaracak.