Merhaba ekteki örnekte formda liste kutusuna çift tıklatıp yandaki kutulara veri akarılıyor. yalnız müşteri limitini aşmışsa uyarı vermesi gerekiyor. Yaptım ilk önceleri normaldi. Şimdi ne yapsam düzgün çalıştıramadım. Nerede hata yapıyorum?
Merhaba,
limit borçtan büyük olunca limiti aşmış mı oluyor acaba?
Evet şöyleki bir müşteri en fazla -1000 borç yapabilir -2000 olduğu zaman bakiyesi satış esnasında uyarı verecek
sorun acaba eksi olmasında mı?
Merhaba,
"limiti aşmışsa uyarı vermesi gerekiyor" şeklinde yazmışsınız, ancak neyin limiti aştığını belirtmemişsiniz. -1000 olayını yeni yazıyorsunuz.
Eklediğiniz örnek uygulamadaki verilere göre,
limit -1500, borç -2000 uyarı verecek,
limit 4000, borç 3000, uyarı verecek,
limit -1000, borç 3000 uyarı verecek gibi açıklama yazın.
Kusurabakmayın çıkmak zorunda kaldım. Cevap veremedim. Listeye çift tıklandığında bor ve limit bilgisi ilgili kutulara aktarılıyor. Her müşterinin limiti kendine göre değişecek. eksi bakiye olarak yazılacak. Yani a müşterisinin limiti -1000 diyelim. Borcu ise -2000. ben listeye çift tıkladığımda borcu limitini aştığı için "borcu var" gibi bir uyarı gelecek. eğer limit -500 müşterinin borcu 0 yada artıda ise yahut -499 ise uyarı vermeden işleme devam edecek. umarım anlatabilmişimdir.
Merhaba,
kodu aşağıdaki ile değiştirerek deneyiniz.
Dim harf As String
harf = "F"
Me.borc = Me.Liste0.Column(3)
Me.limit = Me.Liste0.Column(2)
If (Sgn(limit) = -1 And Sgn(borc) = -1) And limit < borc Then
MsgBox ("Müşteri limitini aşmış! Yine de Satış yapmak istediğinize eminmisiniz? !......")
ElseIf limit < 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")