Skip to main content

AccessTr.neT


Musteri Limiti Uyarısı

Ebru Gıdak Akay
Ebru Gıdak Akay
8
1796

Musteri Limiti Uyarısı

Çözüldü #1
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?
.rar limit1.rar (Dosya Boyutu: 21,33 KB | İndirme Sayısı: 16)
Cevapla
#2
Merhaba, 

limit borçtan büyük olunca limiti aşmış mı oluyor acaba?
Cevapla
#3
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ı?
Cevapla
#4
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.
Cevapla
#5
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.
Cevapla
#6
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")
               
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da