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

Bölümü bende hata veriyordu kodu bu bölümü silip kontrol ettim çalışıyor.
Daha sonra ilk örneğine kodu ekledim, kendi makinende bir kontrol edersin.

Ek Dosyalar

Otel Yönetim iscinar.rar(416.13 KB)