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


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

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



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

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







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

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



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

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



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

Hocam yine beni unuttunuz,sanırım.


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

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