(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.
(14/01/2019, 12:07)haliliyas yazdı: her 2 kontrol için mi (hem aktif hem de pasif )
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
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, 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