14/01/2019, 12:41
Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme.
1 2
14/01/2019, 13:29
berduş
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
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
14/01/2019, 14:15
berduş
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 önceyeCall LblRezerv
14/01/2019, 15:55
Oğuz Türkyılmaz
(14/01/2019, 14:15)haliliyas yazdı: kodu güncelledim 1 defa kontrol edip bırakıyor
ayrıca formgirişin load olayına da aşağıdaki kodu ekleyin end sub kısmından hemen önceyePrivate 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
Call LblRezerv
Tamamdır halil bey elinize sağlık titremede kesildi böylece.
1 2