etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması

Arkadaşlar,otel yönetim programında odaları gösteren etiket kutularım var bu etiketlerin gri renk boş,kırmızı dolu odaları göstermektedir.Ayrıca odanın çıkış tarihi olan yani o günkü tarih geldiğinde yeşil renge dönüşmesini nasıl sağlayabilirim.

---

Dosya yüklemeyi unutmuşum.

Ek Dosyalar

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

Hocam önceki kodu kaldıracakmıyım.

hocam ekledim çalışıyor ama bir sorun var,şöyleki çıkış tarihi oda noya geliyor yanı oysa örnektede görüleceği gibi çıkış tarinde kaç oda varsa boş dolu oda görünümü gibi yeşil olması gerekiyor.Saygılarımla

Ek Dosyalar

Hocam yine beni unuttunuz,sanırım.

Hocam soruma cevap alamadım henüz,ilgilenirseniz memnun olurum
Saygılarımla.