Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/04/2010 11:20
Konu Sahibi
gardean
Yorumlar
8
Okunma
4780
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

gardean

Üye
Üye
 31
9
3
20/03/2010
0
İzmir
Ofis 2007
18/01/2016,16:13
Çözüldü 
Arkadaşlar iç içe iki tane if döngüsü kullanmak istiyorum. Eğer X belirli bir aralıktaysa ve eğer Y şuna eşitse Metin kutusunun değeri Şu olmalı şeklinde ama ne yazdıysam komut olarak hata veriyor. Yardımcı olursanız sevinirim.

Kod:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Açılan_Kutu17_AfterUpdate()
If Açılan_Kutu17.Value = "Vodafone" Then
    If Metin36.Text > 5399999999# And Metin36.Text < 5500000000# Then
        Metin83.Value = "DIP"
    Else
        Metin83.Value = ""
    End If
Else
    Metin83.Value = ""
End If
End Sub


gardean, 20-03-2010 tarihinden beri AccessTr.neT

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 46
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
04/07/2018,16:07
Çözüldü 
metin36'nın kontrolünde sayıların sonuna koyduğunuz # işareti problem yaratır.
Eğer metin36 nümerik bir alan ise sonunda # olmaz, nümerik değil de bir metin alanı ise tırnak içinde yazmalısınız.

Kod:
If Metin36.Text > "5399999999#" And Metin36.Text < "5500000000#" Then


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
 58
1.010
12/11/2009
294
Bursa
Ofis 2007
10/04/2018,10:30
Çözüldü 
Sayın gardean ;
Sizin bir açılan kutunuz var. Bu kutuda sanırım Vodafone, Turkcell ve Avea değerleri var. Bunlardan seçiyorsunuz ve metin36 kutusuna numara giriyorsunuz. Bu numaranın değerine göre Metin83 e "DIP" giriyorsunuz veya boş bırakıyorsunuz. Eğer böyleyse kodlarınızı Açılankutunun güncelleme sonrasına değil Metin36 nın güncelleme sonrasına yazın. Çalışacaktır.

Kod:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Metin36_AfterUpdate()
If Açılan_Kutu17.Value = "Vodafone" Then
    If Metin36.Text > 5399999999# And Metin36.Text < 5500000000# Then
        Metin83.Value = "DIP"
    Else
        Metin83.Value = ""
    End If
Else
    Metin83.Value = ""
End If
End Sub

şeklinde olacak.
Saygılarımla...


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

gardean

Üye
Üye
 31
9
3
20/03/2010
0
İzmir
Ofis 2007
18/01/2016,16:13
Çözüldü 
Sayın Hayri16 teşekkür ederim ancak şöyle bir durum var kullanıcılar önce numarayı yazıyor sonra operatörü seçiyor. Bu durumda metin 36 ya değer girildiğinde açılır kutu 17 de herhangi bir değer olmuyor bunu nasıl çözücem ?


gardean, 20-03-2010 tarihinden beri AccessTr.neT

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Uzman
ME.... B.....
 46
3.120
29/10/2008
944
Ankara
Yazılım
Ofis 2010 32 Bit
Bugün,01:11
Çözüldü 
Sayın garden bundan böyle lütfen sorularınız ile birlikte örneginizide ekleyin,bundan sonra uyarı cezası alacaksınız..

şu yekilde bir kodu deneyin,yani numara girilen yere girmeden önce operatör girilen yer boş ise uyarsın,ve oraya gitsin değilse devam gibi kodlar ile destekleyebilirsiniz......

If IsNull(Me.Kutu17.) Then
MsgBox "Önce Operatör seçin", 36, "K A Y D E T"
Me.Kutu17.SetFocus
End If



Kullanici Avatari

gardean

Üye
Üye
 31
9
3
20/03/2010
0
İzmir
Ofis 2007
18/01/2016,16:13
Çözüldü 
Örnek Dosya ektedir.


Ek Dosyalar
.rar   VKS.rar(Dosya Boyutu: 258,83 KB / İndirme Sayısı: 43)
gardean, 20-03-2010 tarihinden beri AccessTr.neT


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü for next döngüsü ve değişken problemi erdem55 2 1.484 09/04/2012, 21:09
Son Yorum: POWER
Çözüldü web browser döngüsü muradoglu 2 1.199 20/10/2011, 08:15
Son Yorum: esrefigit
Çözüldü textbox combobox for next döngüsü hasankorkmaz45 8 5.849 21/09/2009, 20:17
Son Yorum: Puletin
Çözüldü saat ve for next döngüsü accessman 2 1.705 02/04/2009, 13:16
Son Yorum: accessman
Çözüldü for next step döngüsü accessman 6 3.351 25/03/2009, 17:24
Son Yorum: accessman

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.