12-02-2024, 23:53 (En son düzenleme: 12-02-2024, 23:54 metınaycıcek.)
Sayın Hocalarım göndermiş olduğum vt içinde bulunan
KREDİ KARTI İŞLEMLERİ form açıldığında güncelleme(HESAPGUNCELLE) sorgusunun çalışması HESAPLAR LİSTESİ güncellemesini yapmaya uğraştımsa da olmadı yardımcı olursanız sevinirim.
Allah cc razı olsun.
UPDATE[HESAPLAR LİSTESİ]SET[HESAPLAR LİSTESİ].bakiye = Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gelir' And onayi='Ödendi' And [hesap Id]= " & [hesap_Id]),0)-Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gider' And onayi='Ödendi' And [hesap Id]= " & [hesap_Id]),0),[HESAPLAR LİSTESİ].donem_bakiyesi = Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gelir' And onayi='Ödendi' And [hesap Id]= " & [hesap_Id]),0)-Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gider' And onayi='Ödendi' And [hesap Id]= " & [hesap_Id]),0);
Hesaplama yöntemini güncelleme sorgusundan bakarak tahmin etmeye çalıştım.
Dsum, dcount, dlookup fonksiyonları sorgular gibi çalışır, koşul bölümünde birden fala kriteri and veya or ile belirleyebilirsiniz.
Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gelir' And onayi='Ödendi' And [hesap Id]= " & [hesap_Id]),0)
(13-02-2024, 03:49)metınaycıcek demiş ki: Sayın Hocam
benim asıl derdim HESAPLAR LİSTESİ 'nin devamlı güncellemesini sağlamak onu yapamıyorum
KREDİ KARTI-ALT-2 formu geçerli olay yordamında sorgu çalıştırılabilir.
Visual Basic
PrivateSub Form_Current()
Dim SQLa AsString
SQLa = "UPDATE [HESAPLAR LİSTESİ] SET [HESAPLAR LİSTESİ].bakiye =Nz(DSum(|[tutari]|,|[GELİR/GİDER]|,|bolum='Gelir' And onayi='Ödendi' And [hesap Id]= | & [hesap_Id]),0)-Nz(DSum(|[tutari]|,|[GELİR/GİDER]|,|bolum='Gider' And onayi='Ödendi' And [hesap Id]= | & [hesap_Id]),0), [HESAPLAR LİSTESİ].donem_bakiyesi = Nz(DSum(|[tutari]|,|[GELİR/GİDER]|,|bolum='Gelir' And onayi='Ödendi' And [hesap Id]= | & [hesap_Id]),0)-Nz(DSum(|[tutari]|,|[GELİR/GİDER]|,|bolum='Gider' And onayi='Ödendi' And [hesap Id]= | & [hesap_Id]),0)"