+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Musteri Limiti Uyarısı (/konu-musteri-limiti-uyarisi.html)
Sayfalar:
1
2
Cvp: Musteri Limiti Uyarısı - Ebru Gıdak Akay - 16/02/2018
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 IfBu şekilde hem istediğim gibi oldu. Yardımlarınız ve ilginiz için çok teşekkür ederim ozan bey.
Cvp: Musteri Limiti Uyarısı - ozanakkaya - 16/02/2018
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.
Cvp: Musteri Limiti Uyarısı - Ebru Gıdak Akay - 16/02/2018
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.