Musteri Limiti Uyarısı

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.

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.

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.