Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

İç içe IF Döngüsü

gardean
gardean
Access Cevaplanmış Soruları
8
6394

İç içe IF Döngüsü

Çözüldü #1
gardean
Üye
gardean
Bul
Üye
Adı Soyadı:
Yaşı: 38
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 18/01/2016,16:13
Yorumları: 9
Konuları: 3
Kayıt Tarihi: 20/03/2010
Teşekkür Puanı: 0
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:
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
Cevapla
Çözüldü #2
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,11:30
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
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
Cevapla
Çözüldü #3
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 64
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
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:
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.
Cevapla
Çözüldü #4
gardean
Üye
gardean
Bul
Üye
Adı Soyadı:
Yaşı: 38
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 18/01/2016,16:13
Yorumları: 9
Konuları: 3
Kayıt Tarihi: 20/03/2010
Teşekkür Puanı: 0
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 ?
Cevapla
Çözüldü #5
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,13:56
Yorumları: 3.589
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
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
Cevapla
Çözüldü #6
gardean
Üye
gardean
Bul
Üye
Adı Soyadı:
Yaşı: 38
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 18/01/2016,16:13
Yorumları: 9
Konuları: 3
Kayıt Tarihi: 20/03/2010
Teşekkür Puanı: 0
Örnek Dosya ektedir.
.rar VKS.rar (Dosya Boyutu: 258,83 KB | İndirme Sayısı: 46)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task