AccessTr.neT
Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. - 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ığı: Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. (/konu-rezervasyon-tarih-ve-saat-kriterine-gore-ilgili-etiketi-renklendirme.html)

Sayfalar: 1 2


Cvp: Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. - Oğuz Türkyılmaz - 14/01/2019

(14/01/2019, 12:07)haliliyas yazdı: her 2 kontrol için mi (hem aktif hem de pasif )

Pasif için düşündüm aklıma aktif kontrolü gelmedi aktifide içine alsa ne değişir mevcut durumda bilemiyorum.


Cvp: Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. - berduş - 14/01/2019

zamanlama kodunu aşağıdaki kodla değiştirip dener misiniz
gerçi bu kod da her yarım saatte bir aynı soruna sebep oluyor ama şimdilik yapabildiğim bu maalesef
Private Sub Form_Timer()
Me.txtSaat.Requery

If Format(Time(), "HH:mm") = Format(Time(), "HH:00") Or Format(Time(), "HH:mm") = Format(Time(), "HH:30") Then
Call LblRezerv
Me.txtTarih.Requery
End If
End Sub



Cvp: Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. - berduş - 14/01/2019

kodu güncelledim 1 defa kontrol edip bırakıyor
Private Sub Form_Timer()
Me.txtSaat.Requery
If Me.txtSaat.Value = Format(Me.txtSaat.Value, "HH:00:00") Or Me.txtSaat.Value = Format(Me.txtSaat.Value, "HH:30:00") Then
Call LblRezerv
Me.txtTarih.Requery
End If
End Sub
 ayrıca formgirişin load olayına da aşağıdaki kodu ekleyin end sub kısmından hemen önceye

Call LblRezerv



Cvp: Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. - Oğuz Türkyılmaz - 14/01/2019

(14/01/2019, 14:15)haliliyas yazdı: kodu güncelledim 1 defa kontrol edip bırakıyor
Private Sub Form_Timer()
Me.txtSaat.Requery
If Me.txtSaat.Value = Format(Me.txtSaat.Value, "HH:00:00") Or Me.txtSaat.Value = Format(Me.txtSaat.Value, "HH:30:00") Then
Call LblRezerv
Me.txtTarih.Requery
End If
End Sub
 ayrıca formgirişin load olayına da aşağıdaki kodu ekleyin end sub kısmından hemen önceye

Call LblRezerv

Tamamdır halil bey elinize sağlık titremede kesildi böylece.