AccessTr.neT

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, 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.

(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.

olmadi renklenmedi bi zahmet baka bilirmisin

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.

(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