Skip to main content

AccessTr.neT


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

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

Çözüldü #7
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.
Cevapla
Çözüldü #8
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)
Cevapla
Çözüldü #9
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)
Cevapla
Çözüldü #10
Hocam teşekkür ederim sanırım şimdi oldu,emeğine sağlık.Çok tşk ederim.
Saygılarımla.
Cevapla
Çözüldü #11
rica ederim, sanırım siz çıkış tarihi 09/01/2012'i arıyorsunuz. Şu anda ayın 10'u
Cevapla
Çözüldü #12
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task