if then saat için kullanabilirmiyim
Tarih
06/07/2012 01:38
Konu Sahibi
zetyu
Yorumlar
2
Okunma
1254
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
05/05/2017,23:42
Çö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.556
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,07:40
Çözüldü 
Sponsor Reklam
ö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
05/05/2017,23:42
Çö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
  Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler uMits 10 226 17/04/2017, 19:42 uMits
  Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme uMits 35 475 12/04/2017, 19:21 uMits
  Access İle Gsm Operatörü Çalışanı İçın Program NONAMEBES 4 119 15/02/2017, 04:44 ozanakkaya
  Subform icin Arama butonu broiling 22 1.867 07/02/2017, 02:37 broiling
  saat ücreti hesaplama dsmelbistan 5 331 12/01/2017, 13:01 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status