+- 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ığı: Formda Denetim Renklendirme (/konu-formda-denetim-renklendirme.html)
Sayfalar:
1
2
Formda Denetim Renklendirme - atamsinatamsin - 21/12/2018
Access de otel icin bir program yapiyorum bir yerde takili kaldim.
101 nolu oda dolu olarken kirmizi yansin
102 nolu oda rezerv olurken yasil yansin
103 nolu oda bos olurken kendi renginde kalsin
yardimci olursaniz sevinirim..
simdiden tesekkurler..
numune ektedir.
Cvp: Formda Denetim Renklendirme - ozanakkaya - 21/12/2018
Merhaba, eklediğiniz uygulamadaki kodlar @fascioğlu isimli üyemizin örneklerindeki kodlar.
Sizin istediğiniz işlemin stabil çalışması için formda tarih alanının olması gerekiyor. Tablodaki giris, cikis ve odadurum verilerine göre denetimlerin renklenmesi için
Private Sub ODARENK()
On Error Resume Next
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim D As Date
D = Date
Set db = CurrentDb()
'------------Odalar
strSQL = "SELECT * FROM tbl_odabilgileri"
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
Do Until rs.EOF
If rs!drumu = "dolu" And D >= rs!giristarihi And D <= rs!cikistarihi Then
Controls("Etiket" & rs!Odano).BackColor = vbRed
Controls("Etiket" & rs!Odano).ForeColor = 0
ElseIf rs!drumu = "rezerv" And D >= rs!giristarihi And D <= rs!cikistarihi Then
Controls("Etiket" & rs!Odano).BackColor = vbGreen
Controls("Etiket" & rs!Odano).ForeColor = 0
ElseIf rs!drumu = "bos" And D >= rs!giristarihi And D <= rs!cikistarihi Then
Controls("Etiket" & rs!Odano).BackColor = 15920614
Controls("Etiket" & rs!Odano).ForeColor = 0
End If
100
rs.MoveNext
Loop
End SubÖrneğinizdeki fonksiyon düzeltilmiştir. inceleyip olumlu/olumsuz bildirimde bulununuz.
Cvp: Formda Denetim Renklendirme - notrino - 21/12/2018
(21/12/2018, 11:51)atamsinatamsin yazdı: Access de otel icin bir program yapiyorum bir yerde takili kaldim.
101 nolu oda dolu olarken kirmizi yansin
102 nolu oda rezerv olurken yasil yansin
103 nolu oda bos olurken kendi renginde kalsin
yardimci olursaniz sevinirim..
simdiden tesekkurler..
numune ektedir.
Merhaba,
Kırmızı olanı ayarladım. Yeşil olanı da siz buna bakarak yapın. Sizin formunuz hata verdi. Ben kendi formumu hazırladım oradan inceleyin.
Cvp: Formda Denetim Renklendirme - atamsinatamsin - 21/12/2018
![[Resim: do.php?imgf=154538514850551.jpg]](https://accesstr.net/resim/do.php?imgf=154538514850551.jpg)
olmadi renklenmedi bi zahmet baka bilirmisin
Cvp: Formda Denetim Renklendirme - ozanakkaya - 21/12/2018
Eklediğim örnekte, tarih 21/12/2018,
tabloda giriş tarihi 21.12.2018, çıkış tarihi 23.12.2018 olduğu ve oda dolu olduğu için Etiket101 kırmızı renkli olur. tablodaki rezerv olan kayıttaki veri tarih arasında olmadığı için renklendirilmez.
Eklediğim uygulamada sorun göremedim.
Cvp: Formda Denetim Renklendirme - atamsinatamsin - 21/12/2018
(21/12/2018, 13:42)ozanakkaya yazdı: Eklediğim örnekte, tarih 21/12/2018,
tabloda giriş tarihi 21.12.2018, çıkış tarihi 23.12.2018 olduğu ve oda dolu olduğu için Etiket101 kırmızı renkli olur. tablodaki rezerv olan kayıttaki veri tarih arasında olmadığı için renklendirilmez.
Eklediğim uygulamada sorun göremedim.
Teamiveawer i acsam bakabilirmisin bi zahmet siz veren uygulamani actim olmadi bende :
resmide gozuktuyu gibi ayni duryor