if then saat için kullanabilirmiyim

06/07/2012, 01:38

zetyu

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

if saate göre olurmu.rar
06/07/2012, 03:33

ozanakkaya

ö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
06/07/2012, 14:27

zetyu

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