AccessTr.neT
Musteri Limiti Uyarısı - Baskı Önizleme

+- 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


Musteri Limiti Uyarısı - Ebru Gıdak Akay - 15/02/2018

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?


Cvp: Musteri Limiti Uyarısı - ozanakkaya - 15/02/2018

Merhaba, 

limit borçtan büyük olunca limiti aşmış mı oluyor acaba?


Cvp: Musteri Limiti Uyarısı - Ebru Gıdak Akay - 15/02/2018

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ı?


Cvp: Musteri Limiti Uyarısı - ozanakkaya - 15/02/2018

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.


Cvp: Musteri Limiti Uyarısı - Ebru Gıdak Akay - 15/02/2018

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.


Cvp: Musteri Limiti Uyarısı - ozanakkaya - 16/02/2018

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