AccessTr.neT
etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması (/konu-etiket-kutusuna-cikis-tarihine-gore-ucuncu-bir-rengin-atanmasi.html)

Sayfalar: 1 2

Cvp: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması - ozanakkaya - 10/01/2012

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.

Cvp: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması - fascioğlu - 10/01/2012

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
Otel Yönetim-deneme.rar(420.07 KB)


Cvp: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması - fascioğlu - 10/01/2012

Hocam dediğiniz gibi uyguladım yine olmadı,bakarmısınız .
Tşk.saygılarımla.
Ek Dosyalar
Otel Yönetim-deneme.rar(417.44 KB)


Cvp: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması - fascioğlu - 10/01/2012

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

Cvp: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması - ozanakkaya - 10/01/2012

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

Cvp: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması - fascioğlu - 10/01/2012

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.