AccessTr.neT

Tam Versiyon: etiket kutusuna çıkış tarihine göre üçüncü bir rengin atanması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
 Otel Yönetim-deneme.rar(420.07 KB)
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)
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.
Sayfalar: 1 2