Skip to main content

AccessTr.neT


Musteri Limiti Uyarısı

Ebru Gıdak Akay
Ebru Gıdak Akay
8
1798

Musteri Limiti Uyarısı

#7
Verdiğiniz kodlarla denedim. Ama olmadı Limiti -500 olan -3000 borcu olan bir müşteride hata vermedi. Bende şöyle bir yöntem denedim. Metin kutuları ile limiti ve borcu -1 ile çarptırıp  limit2 ve borc 2 olarak iki metin kutusuna değerleri + ya çevirdim. Boş olan limite de sorguda 0 değerini verdim. Sonra şu kodu kulllandım
If limit = 0 Then
         
               Me.Metin20 = Me.Liste3.Column(0)
               Me.Metin129 = Me.Liste3.Column(1)
               Me.Metin0 = harf & Format(Me.Metin7, "00000")
         
          ElseIf limit2 < borc2 Then

MsgBox ("Müşteri limitini aşmış! Yine de Satış yapmak istediğinize eminmisiniz? !......")

Me.Metin20 = Me.Liste3.Column(0)
               Me.Metin129 = Me.Liste3.Column(1)
               Me.Metin0 = harf & Format(Me.Metin7, "00000")
               


End If
Koddaki liste ve bazı metin kutusu adlarının farklı olması asıl çalışmamdan aldığımdandır.
Bu şekilde hem istediğim gibi oldu. Yardımlarınız ve ilginiz için çok teşekkür ederim ozan bey.
Son Düzenleme: 16/02/2018, 13:40, Düzenleyen: Ebru Gıdak Akay.
Cevapla
#8
Merhaba,

Dim harf As String
harf = "F"

Me.borc = Me.Liste0.Column(3)
Me.limit = Me.Liste0.Column(2)


If (Sgn(Me.limit) = -1 And Sgn(Me.borc) = -1) And Int(Me.limit) > Int(Me.borc) Then
   
   MsgBox ("Müşteri limitini aşmış! Yine de Satış yapmak istediğinize eminmisiniz? !......")
   
End If

           
Me.Metin12 = Me.Liste0.Column(0)
Me.Metin8 = Me.Liste0.Column(1)
Me.Metin0 = harf & Format(Me.Metin7, "00000")

şeklinde de kullanabilirsiniz. 

Tabloda limit alanında bazı veriler negatif, bazı veriler pozitif. Pozitif değerlere göre de koşul eklemek gerekli.
Cevapla
#9
Verdiğiniz kod ile denedim daha güzel oldu sade ve uğraştırıcı değil. Çok teşekkür ederim yardımlarınız için. Sorunum çözülmüştür.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task