Sub KutuRenk()

On Error Resume Next

  

    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

    Next

  If Me.ÇIKIŞ_TARİHİ = Date Then

        Controls("Etiket" & Me.ODA_NO).BackColor = vbGreen

        Controls("Etiket" & Me.ODA_NO).ForeColor = 16777215

       End If

End Sub

KONAKLAMA SÜRESİ, güncelleştirme sonrasında olayına

call kuturenk

kodu ekle