If Then Else Kullanımı ile Hesap Kontrolü

gogoli01 · **Kayıt Tarihi:** 04.09.2010

Merhabalar, yapmış olduğum bir projede If Then Else şartlarını ve bu şarta bağlı olarak sorgu çalıştırmayı tabloya kayıt yapmayı düşünüyorum. İkili şartta herhangi bir sorun yaşamıyorum ancak şart 3 lü olunca kod bir türlü çalışmıyor.

1. ödeme tam yapıldığında uyarı mesajı verip (ÖDEMENİZ KAYIT EDİLDİ) tabloya kayıt etsin

2. ödeme eksik yapıldığında uyarı versin (EKSİK ÖDEME YAPTINIZ) kalan bakiyeyi aktarsın

3. fazla ödeme yapıldığında uyarı versin (FAZLA ÖDEME YAPTINIZ) fazla ödemeyi aktarsın.

yazdığım kodlar şöyle;

If Forms![F_TAHSILAT]![KALAN] = 0 tHEN

Forms![F_TAHSILAT]![ODENDI] = True

Else

If Forms![F_TAHSILAT]![KALAN].Value < o Then
If MsgBox ("Borcun tamamını Ödemediniz. Yine de Devam etmek istiyor musunuz?", 36,,"Prg") =6 Then
Forms![F_TAHSILAT]![ODENDI] = True

Else

If Forms![F_TAHSILAT]![KALAN].Value > o Then

If MsgBox ("Fazla Ödeme Yaptınız. Yine de Devam etmek istiyor musunuz?", 36,,"Prg") =6 Then
Forms![F_TAHSILAT]![ODENDI] = True

dsezgin · 28-08-2019, 07:58

Visual Basic
Private Sub Odeme_AfterUpdate()
Me.KALAN = Me.Toplam - Me.Odeme
If Forms![F_TAHSILAT]![KALAN] = 0 Then
    If MsgBox("Borcun tamamini Ödediniz. Yine de Devam etmek istiyor musunuz?", vbCritical, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True
ElseIf Forms![F_TAHSILAT]![KALAN].Value < 0 Then
    If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Fazla Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbCritical, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True
ElseIf Forms![F_TAHSILAT]![KALAN].Value > 0 Then
    If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Eksik Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbCritical, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True
End If
End Sub

Ornek VT olmadigindan tahmini alan adlari ile prosedur olusturuldu.
If ..... ElseIf.....end Sub gibi degerlendirilmelidir.

TARUZ Üstadın onerisine gore

Visual Basic
Private Sub Odeme_AfterUpdate()
Me.KALAN = Me.Toplam - Me.Odeme
Select Case Forms![F_TAHSILAT]![KALAN]
Case 0
           MsgBox "Borcun tamamini Ödediniz."
           Forms![F_TAHSILAT]![ODENDI] = True
Case <0
           If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Eksik Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbCritical, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = true else  Forms![F_TAHSILAT]![ODENDI] = false
Case Else
           If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Fazla Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbCritical, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True else  Forms![F_TAHSILAT]![ODENDI] = false
End Select

Taruz · 28-08-2019, 14:00

İlaveten select case karar yapısı da kullanılabilir.. Hatta karmaşık şartlar için daha da efektif olduğunu söyleyebilirim..

Basit anlatımı için inceleyebilirsiniz..:

https://www.access-sql.com/Konu-SELECT-C...rar-Yapisi

gogoli01 · 09-09-2019, 15:22

Sayın üstatlar, bir süre şehir dışında olduğum için çözüm önerilerinizi deneyemedim. bugün yaptığım denemelerde ise bir türlü başarılı olamadım.
kodlarım şöyle;

Visual Basic
KALAN = ODENEN - TOPLAM
If Forms![F_TAHSILAT]![KALAN] = 0 Then
    If MsgBox("Borcun Tamamını Ödediniz. Ödeme Kayıtlara Aktarıldı..", vbInformation, "Site Gelir / Gider Takip Programı") Then
    Forms![F_TAHSILAT]![ODENDI] = True
    DoCmd.Close acForm, "F_TAHSILAT"
    Forms!F_ALACAK.Refresh
    Forms!F_ALACAK.Metin86 = Nz(DSum("TUTAR", "S_ALACAK"), 0)
    Forms!F_ALACAK.sayac.Caption = DCount("TUTAR", "S_ALACAK")
 
End
    
    
    
If Forms![F_TAHSILAT]![KALAN] < 0 Then
    If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Fazla Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbYesNo, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True
    DoCmd.Close acForm, "F_TAHSILAT"
    Forms!F_ALACAK.Refresh
    Forms!F_ALACAK.Metin86 = Nz(DSum("TUTAR", "S_ALACAK"), 0)
    Forms!F_ALACAK.sayac.Caption = DCount("TUTAR", "S_ALACAK")
    
    Else
    DoCmd.Close
End If
 
ElseIf Forms![F_TAHSILAT]![KALAN].Value > 0 Then
    If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Eksik Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbYesNo, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True
    DoCmd.SetWarnings 0 '/////////////////////
    DoCmd.OpenQuery "S_KALANBAKIYE" '///////////////////////
    DoCmd.SetWarnings -1 '//////////////////
 
    Forms![F_TAHSILAT]![ODENDI] = True
    MsgBox "Kalan Bakiye Aktarıldı.", vbOKOnly, "Site Gelir / Gider Takip Programı" '////////////
    DoCmd.Close acForm, "F_TAHSILAT"
    Forms!F_ALACAK.Refresh
    Forms!F_ALACAK.Metin86 = Nz(DSum("TUTAR", "S_ALACAK"), 0)
    Forms!F_ALACAK.sayac.Caption = DCount("TUTAR", "S_ALACAK")
    
    Else
    DoCmd.Close
    
End If
End If
End If

1. Tam ödeme yapılınca kod çalışıyor. (sıkıntı yok)

2. Eksik ödeme yapınca kod çalışıp uyarı mesajı verecek
- evet seçildiğinde  S_KALANBAKIYE sorgusunu çalıştıracak,
- hayır seçildiğinde F_TAHSILAT formunda düzeltme yapmaya izin verecek.

3. fazla ödeme yapınca kod çalışıp uyarı mesajı verecek
  - evet seçildiğinde işleme devam edilecek ödemeyi kaydedecek.
  - hayır seçildiğinde F_TAHSILAT formunda düzeltme yapmaya izin verecek.

yardımlarınızı bekliyorum.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Dcount Kullanımı.	Satir	22	693	15-03-2024, 17:09 Son Mesaj: Satir
	Access Projesi Için Onedrive Kullanımı	ccollezium	2	146	14-02-2024, 16:53 Son Mesaj: ccollezium
	[FORM] form klasör içinde dosya kontrolü	obaysal42	4	2.181	29-12-2023, 10:24 Son Mesaj: burhanb
	[SORGU] ııf Ve ıs Not Null Birlkite Kullanımı	Samih KARSLI	11	318	05-12-2023, 12:14 Son Mesaj: halily
	Autoexec Kullanımı	ates2014	8	212	12-11-2023, 17:42 Son Mesaj: BeyTor
	Text Kutusundaki Rakamı Alt Formda Bulan Hesap Sutunun Tüm Satırlarına Nasıl Eklenir	bilservisci	7	273	29-08-2023, 22:19 Son Mesaj: bilservisci
	Boş Alan Kontrolü (taruz) : Rapor Butonu	prtkl	5	272	31-05-2023, 22:48 Son Mesaj: hnakis
	Sql Satırında Değişken Kullanımı Hakkında Yardım	programmer67	3	179	26-04-2023, 12:02 Son Mesaj: halily

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL