Skip to main content

AccessTr.neT

Kayıt Ol

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

4'lü If kullanımı hakkında

merter
merter
Access Cevaplanmış Soruları
6
4328

4'lü If kullanımı hakkında

Çözüldü #1
merter
Üye
merter
Bul
Üye
Adı Soyadı:
Yaşı: 41
Konum: Bursa
Ofis Versiyonu: Ofis XP
Son Oturumu: 31/10/2023,10:14
Yorumları: 20
Konuları: 6
Kayıt Tarihi: 22/12/2008
Teşekkür Puanı: 0
arkadaşlar fiyat listesinde ödeme gününe göre değerler var örnek peşin 15 TL. 15 gün 18 TL. 30 gün 20 TL. Kredi kartı 16 TL.
bunları aşağıdaki gibi yaptım oam olmadı yardımlarınıza şimdiden teşekkürler.


Private Sub List18_AfterUpdate()
If ODE = 0 < 15 Then
Me.FIYAT = List18.Column(2)

ElseIf ODE = 15 < 30 Then
Me.FIYAT = List18.Column(3)

ElseIf ODE = 30 < 100 Then
Me.FIYAT = List18.Column(4)

ElseIf ODE = KK Then
Me.FIYAT = List18.Column(5)
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: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Bir de bu şekilde deneyin.
Kod:
Private Sub List18_AfterUpdate()
If ODE Between 0 And 15 Then
    Me.FIYAT = List18.Column(2)
ElseIf ODE Between 16 And 30 Then
    Me.FIYAT = List18.Column(3)
ElseIf ODE Between 31 And 100 Then
    Me.FIYAT = List18.Column(4)
ElseIf ODE = "KK" Then
    Me.FIYAT = List18.Column(5)
End If
End Sub
Örneğiniz olmadığı için Kredi Kartı için kullandığınız KK alanının
bir değişken mi veya bir değer mi olduğu anlaşılmıyor.
Ben değerdir diye tahmin ederek "KK" olarak değiştirdim.
Bu durumda ODE alanı metin ise, üstteki kontrolleri de CInt(ODE) olarak değiştirmek gerekebilir.

Bir deneyin, olmazsa örneğinizi eklemeniz gerekmektedir.
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
merter
Üye
merter
Bul
Üye
Adı Soyadı:
Yaşı: 41
Konum: Bursa
Ofis Versiyonu: Ofis XP
Son Oturumu: 31/10/2023,10:14
Yorumları: 20
Konuları: 6
Kayıt Tarihi: 22/12/2008
Teşekkür Puanı: 0
sayın seruz ilginize teşekkürler denedim ama olmadı hata veriyor örnek ekte
.rar YEM_SATIŞ.rar (Dosya Boyutu: 803,33 KB | İndirme Sayısı: 11)
Cevapla
Çözüldü #4
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
* Alt form'da kontrol koyup, üst formdaki nesneye ulaşmak için me.parent kullandım (Forms!SIPARIS.ODEME de kullanılabilirdi).
* ODE olan ismi ODEME olarak, list18 olan ismi KKOD olarak değiştirdim.
* Açılan kutu ayarlarını fiyatları düzgün gösterecek şekilde düzelttim.
* Ödeme bilgisinin düzgün girildiğini kontrol eden kontrol ekledim.
* ElseIf yerine Select Case kullandım, daha kullanışlıdır.

Kod:
Private Sub KKOD_AfterUpdate()
If IsNull(Me.Parent.ODEME) Then
    MsgBox "Ödeme günü bilgisi giriniz"
ElseIf Not IsNumeric(Me.Parent.ODEME) And Me.Parent.ODEME <> "KK" Then
    MsgBox "Kredi Kartı için KK giriniz"
ElseIf Me.Parent.ODEME < 0 Or Me.Parent.ODEME > 100 Then
    MsgBox "Ödeme günü bilgisi 0 ile 100 arasında olmalıdır"
End If
'-----------------------------------
Select Case Me.Parent.ODEME
    Case 0 To 15
        Me.FIYAT = Me.KKOD.Column(2)
    Case 16 To 30
        Me.FIYAT = Me.KKOD.Column(3)
    Case 31 To 100
        Me.FIYAT = Me.KKOD.Column(4)
    Case "KK"
        Me.FIYAT = Me.KKOD.Column(5)
    Case Else
        Me.FIYAT = 0
End Select
End Sub


Bu aralar Sql Server'da SP ve Trigger'lar ile uğraştığım için (+oruç) if içinde Between kullanmışım, özür Img-grin
.rar YEM_SATIS_Seruz.rar (Dosya Boyutu: 345,72 KB | İndirme Sayısı: 19)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #5
merter
Üye
merter
Bul
Üye
Adı Soyadı:
Yaşı: 41
Konum: Bursa
Ofis Versiyonu: Ofis XP
Son Oturumu: 31/10/2023,10:14
Yorumları: 20
Konuları: 6
Kayıt Tarihi: 22/12/2008
Teşekkür Puanı: 0
sayın seruz ilginiz için çok çok teşekkürler.
hayırlı ramazanlar.
Cevapla
Çözüldü #6
assenucler
Aktif Üye
assenucler
Bul
Aktif Üye
Adı Soyadı: A..... Se.... Şe....
Konum: İstanbul
Ofis Versiyonu: -
Son Oturumu: 03/08/2022,13:36
Yorumları: 2.057
Konuları: 125
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 66
Emek ve katkı için teşekkürler..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task