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

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.

Sayın hocam tüm samimiyetimle beliretiyim ki VB.kodlarıyla hiç çalışmadım ve bu konuda çok yetersizim,bu yüzden beni bağışlayın.Örnek üzerinde uygulamasını yaparsanız memnun olurum.
Saygılarımla.

Ek Dosyalar

Hocam dediğiniz gibi uyguladım yine olmadı,bakarmısınız .
Tşk.saygılarımla.

Ek Dosyalar

Hocam teşekkür ederim sanırım şimdi oldu,emeğine sağlık.Çok tşk ederim.
Saygılarımla.

rica ederim, sanırım siz çıkış tarihi 09/01/2012'i arıyorsunuz. Şu anda ayın 10'u

Doğru hocam,aynen öyle oldu,kendimede biraz güldüm arada.Emeğine sağlık hocam.Engin bilginizden dolayı sizi kutlarım Bu arada benim yaşımda 57 öğrenmenin yaşı yoktur değilmi.
Saygılarımla.