if then saat için kullanabilirmiyim

Hayırlı cumalar

3 tane komut düğmesi var bu komut düğmelerinin belirli saat aralıklarında görülmesini diğer saatlerde görünmesini istemiyorum.aşağıdakı kod ile if ile denedim ama oldmadı hatam nerede olabilir.örnek ekte .

Private Sub Form_Current()

If Metin6 > #10:30:00 AM# And Metin6 < #12:30:00 AM# Then

Komut18.Visible = True

Komut19.Visible = False

Komut20.Visible = False

ElseIf Metin6 > #1:30:00 PM# And Metin6 < #3:30:00 PM# Then

Komut18.Visible = False

Komut19.Visible = True

Komut20.Visible = False

ElseIf Metin6 > #4:30:00 PM# And Metin6 < #7:30:00 PM# Then

Komut18.Visible = False

Komut19.Visible = False

Komut20.Visible = True

End If

End Sub

Şimdiden tüm emeği gecenlere teşekkür ederim

önce metin6'nın denetim kaynağındaki =Now() kodu yerine =Time() kodu yaz,
formun geçerli olduğunda olayındaki kodu aşağıdaki ile değiştir.

If Metin6 > "10:30" And Metin6 < "12:30" Then

Komut18.Visible = True

Komut19.Visible = False

Komut20.Visible = False





ElseIf Metin6 > "13:30" And Metin6 < "15:30" Then

Komut18.Visible = False

Komut19.Visible = True

Komut20.Visible = False



ElseIf Metin6 > "16:30" And Metin6 < "19:30" Then

Komut18.Visible = False

Komut19.Visible = False

Komut20.Visible = True



End If

Elinize sağlık.
Teşekkür ederim ilginize.
Konu kapanmıştır