Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
06/07/2012 01:38
Konu Sahibi
zetyu
Yorumlar
2
Okunma
1453
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

zetyu

Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
29/05/2017,03:40
Çözüldü 
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 .

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

Ek Dosyalar
if saate göre olurmu.rar


zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.789
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,13:38
Çözüldü 
ö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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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


Cevapla

zetyu

Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
29/05/2017,03:40
Çözüldü 
Elinize sağlık.
Teşekkür ederim ilginize.
Konu kapanmıştır


zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü IT Envanter programı için ön çalışma mengok 4 2.322 12/09/2017, 15:01 team_quash
Çözüldü Envanter - Demirbaş Kayıt Programı [Bilgi İşlem Departmanı İçin] zlatan.ibo 3 2.389 09/09/2017, 14:34 anlezgn
Çözüldü Rapor Saat Toplamı KAZIMS 3 252 30/05/2017, 16:16 atoz112
Çözüldü Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler uMits 10 742 17/04/2017, 19:42 uMits
Çözüldü Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme uMits 35 1.582 12/04/2017, 19:21 uMits

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.