Güncelleme
#1
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.


Eklenti Dosyaları
.rar   GUNC10-02-2024YENI.rar (Boyut: 110,65 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#2
SQL
  1. 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)



  Alıntı
Bu mesajı beğenenler:
#3
Sayın Hocam Bakıp döneyim
bu saate ilgilendiğiniz için Allah cc razı olsun.



  Alıntı
Bu mesajı beğenenler:
#4
Sayın Hocam 
benim asıl derdim HESAPLAR LİSTESİ 'nin devamlı güncellemesini sağlamak  onu yapamıyorum 



  Alıntı
Bu mesajı beğenenler:
#5
(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
  1. Private Sub Form_Current()
  2. Dim SQLa As String
  3. 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)"
  4. CurrentDb.Execute Replace(SQLa, "|", Chr(34))
  5. End Sub





  Alıntı
Bu mesajı beğenenler: metınaycıcek
#6
Sayın Hocam
Allah cc razı olsun 
Geç cevap verdiğim için de kusura bakmayın.
sorguya Tarihler arası nasıl ekleye bilirim



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Form üzerinde Bulunan Sorguda Değişiklik Yaparak Kayıt Güncelleme geneclean 5 179 13-02-2024, 15:51
Son Mesaj: dsezgin
  Güncelleme metınaycıcek 16 284 04-02-2024, 08:13
Son Mesaj: metınaycıcek
  [VBA] Sürekli Formda Combobox Güncelleme Sorunu benuva 6 195 20-11-2023, 11:56
Son Mesaj: benuva
  [SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma yahyamacit 2 139 10-11-2023, 13:22
Son Mesaj: yahyamacit
access-sql-9 Acces Dosya Güncelleme mesut250 1 191 08-12-2022, 00:56
Son Mesaj: dsezgin
  Listbox'dan Güncelleme Ve Log Kaydı benuva 36 1.116 20-07-2022, 14:32
Son Mesaj: halily
  Birden Fazla Alanı Güncelleme tarkanaykın 9 403 07-04-2022, 20:41
Son Mesaj: tarkanaykın
  [TABLO] Toplu Güncelleme kyskys_1 7 476 28-01-2022, 12:38
Son Mesaj: kyskys_1

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi