Biraz kendinizin uğraşıp çözüm bulmanızı bekledim.

Yapılmaması gereken ölümcül hatalar konusunu daha önce hatırlatmamıza rağmen tablo alan adlarının neredeyse tümü hatalı.
Liste363'ün satır kaynağını aşağıdaki ile değiştir.

SELECT tbl_odalistesi.odano, [GİRİŞ TARİHİ]+[KONAKLAMA SÜRESİ] AS İfade1 FROM tbl_odabilgileri RIGHT JOIN tbl_odalistesi ON tbl_odabilgileri.[ODA NO] = tbl_odalistesi.odano WHERE (((tbl_odalistesi.bosdolu)=True)); 

Sub KutuRenk() kodlarını aşağıdaki ile değiştir.

Sub KutuRenk()

On Error Resume Next

Dim i As Integer

Dim x As Date

x = Date

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    For i = 0 To Me.Liste363.ListCount - 1

        Controls("Etiket" & Me.Liste363.ItemData(i)).BackColor = 213

        Controls("Etiket" & Me.Liste363.ItemData(i)).ForeColor = 16777215

    If x = Me.Liste363.Column(1, (i)) Then

        Controls("Etiket" & Me.Liste363.ItemData(i)).BackColor = vbGreen

        Controls("Etiket" & Me.Liste363.ItemData(i)).ForeColor = 16777215

    End If

    Next



End Sub

GİRİŞ TARİHİ ve KONAKLAMA SÜRESİ metin kutularının güncelleştirme sonrasında olayına

call kuturenk

kodu ekle.