Musteri Limiti Uyarısı

1 2
15/02/2018, 10:53

Ebru Gıdak Akay

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?
15/02/2018, 11:44

ozanakkaya

Merhaba, 

limit borçtan büyük olunca limiti aşmış mı oluyor acaba?
15/02/2018, 11:49

Ebru Gıdak Akay

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ı?
15/02/2018, 12:09

ozanakkaya

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.
15/02/2018, 22:50

Ebru Gıdak Akay

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.
16/02/2018, 11:10

ozanakkaya

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")
               
1 2