Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Güncelleme

Güncelleme
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.779 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#7
14-02-2024, 15:58
(13-02-2024, 20:16)metınaycıcek demiş ki: Sayın Hocam
Allah cc razı olsun 
Geç cevap verdiğim için de kusura bakmayın.
sorguya Tarihler arası nasıl ekleye bilirim

Visual Basic
  1. ... SET [HESAPLAR LİSTESİ].bakiye=Nz(DSum(|[tutari]|,|[GELİR/GİDER]|,|bolum='Gelir' And onayi='Ödendi' And [hesap Id]=" & Me.[hesap Id] & " And [islem tarihi] Between #" & Format(Me.Metin139, "mm\/dd\/yyyy") & "# And #" & Format(Me.Metin136, "mm\/dd\/yyyy") & "#|),0)- ...



VBA da Güncelleme prosedürünün Gelir kısmını önerdim, Gider kısmını değiştirebilirsiniz. Dönem güncellemesini de örneğe göre değerlendirmelisiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
metınaycıcek
Aktif Üye 100-150

*
Kayıt Tarihi: 02.02.2015
Toplam 16 konu açtı.
Toplam 100 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 13 / 1
#8
14-02-2024, 21:25 (En son düzenleme: 14-02-2024, 22:26 metınaycıcek.)
Sayın Hocam 
Allah cc razı olsun 
hakikaten ilgilendiğiniz için çok teşekkür ederim.
cv geç verdiğim içinde özür dilerim
Hocam göndermiş olduğunuz koda
And grup='Taksit'  bunu araya ekleyerek denedim bu sefer bütün
hesaplara o ayki  DönÖdeBekTaksit ekliyor ne yapmam lazım 
şimdiden Allah cc razı olsun.


Eklenti Dosyaları
.rar   GÜNCELLE-13-02-2024-ORN-1.rar (Boyut: 122,08 KB / İndirilme: 7)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.779 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#9
14-02-2024, 22:45
Sn metınaycıcek,
Uygulamanızı bilemediğimden, sizin yapmak istediğinizi tahmin ile önerimi yapıyorum. Boşlukları tamamlayabilirsiniz sanırım.
Güncelleme sorgusu sonuna WHERE (((Hesap_Id) = " & Me.[hesap Id] & "))" koşulu ekleyebilirsiniz.

Daha kısa yoldan

Visual Basic
  1. Me.Parent.[KREDİ KARTI-ALT].Form.DönÖdenenTaksit = Nz(DSum("[tutari]", "[GELİR/GİDER]", "bolum='Gelir' And onayi='Ödendi' And grup='Taksit' And [hesap Id]=" & Me.[hesap Id] & " And [islem tarihi] Between #" & Format(Me.Metin139, "mm\/dd\/yyyy") & "# And #" & Format(Me.Metin136, "mm\/dd\/yyyy") & "#"), 0) - Nz(DSum("[tutari]", "[GELİR/GİDER]", "bolum='Gider' And onayi='Ödenmedi' And grup='Taksit' And [hesap Id]=" & Me.[hesap Id] & " And [islem tarihi] Between #" & Format(Me.Metin139, "mm\/dd\/yyyy") & "# And #" & Format(Me.Metin136, "mm\/dd\/yyyy") & "#"), 0)



yapılabilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
metınaycıcek
Aktif Üye 100-150

*
Kayıt Tarihi: 02.02.2015
Toplam 16 konu açtı.
Toplam 100 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 13 / 1
#10
15-02-2024, 00:03
Sayın Hocam 
Allah cc razı olsun
inşallah oldu



  Bul
  Alıntı
Bu mesajı beğenenler:
metınaycıcek
Aktif Üye 100-150

*
Kayıt Tarihi: 02.02.2015
Toplam 16 konu açtı.
Toplam 100 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 13 / 1
#11
16-02-2024, 02:05 (En son düzenleme: 16-02-2024, 02:54 metınaycıcek.)
Sayın Hocam 
hakkınızı helal edin 

DönÖdenenTaksit = Nz(DSum("[tutari]", "[GELİR/GİDER]", "bolum='Gelir' And onayi='Ödendi' And grup='Taksit' And [hesap Id]=" & Me.[hesap Id] & " And [islem tarihi] Between #" & Format(Me.Metin139, "mm\/dd\/yyyy") & "# And #" & Format(Me.Metin136, "mm\/dd\/yyyy") & "#"), 0) - Nz(DSum("[tutari]", "[GELİR/GİDER]", "bolum='Gider' And onayi='Ödenmedi' And grup='Taksit' And [hesap Id]=" & Me.[hesap Id] & " And [islem tarihi] Between #" & Format(Me.Metin139, "mm\/dd\/yyyy") & "# And #" & Format(Me.Metin136, "mm\/dd\/yyyy") & "#"), 0)WHERE (((Hesap_Id) = " & Me.[hesap Id] & "))"
vb değilde sorguda nasıl kulanacam 
gönderdiğim vt bakarsanız güncelle sorgusun içinde DonOdncekToplTaksıt ,birde o ay değilde sonraki ay ödenecek taksit(SonraAyÖdenTaksit) hesaplamasını yardımcı olursanız hocam olacak inşalah


Eklenti Dosyaları
.rar   GÜNCELLE6.rar (Boyut: 103,51 KB / İndirilme: 6)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.779 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#12
16-02-2024, 09:07
Where olan satır sorgu kosul bolumunde olmalı.

SQL
  1. UPDATE [HESAPLAR LİSTESİ] SET [HESAPLAR LİSTESİ].KulanılanHesapLimiti = 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)+Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gelir' And onayi='Ödendi' And grup='Taksit' And [hesap Id]= " & [hesap_Id]),0)-Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gider' And onayi='Ödenmedi' And grup='Taksit' And [hesap Id]= " & [hesap_Id]),0)+Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gelir' And onayi='Ödendi' And grup='Daimi' And [hesap Id]= " & [hesap_Id]),0)-Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gider' And onayi='Ödenmedi' And grup='Daimi' And [hesap Id]= " & [hesap_Id]),0), [HESAPLAR LİSTESİ].DonemBakıyesı = 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İ].TopTaksKalbakiye = Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gelir' And onayi='Ödendi' And grup='Taksit' And [hesap Id]= " & [hesap_Id]),0)-Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gider' And onayi='Ödenmedi' And grup='Taksit' And [hesap Id]= " & [hesap_Id]),0), [HESAPLAR LİSTESİ].DönÖdenenDaimi = Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gelir' And onayi='Ödendi' And grup='Daimi' And [hesap Id]= " & [hesap_Id]),0)-Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gider' And onayi='Ödenmedi' And grup='Daimi' And [hesap Id]= " & [hesap_Id]),0), [HESAPLAR LİSTESİ].DonOdncekToplTaksıt = Nz(DSum("[tutari]","[GELİR/GİDER]","bolum='Gider' And onayi='Ödenmedi' And grup='Taksit' And [hesap Id]= " & [hesap_Id] AND [Forms]![KREDİ KARTI İŞLEMLERİ]![Alt482].[Form]![Metin139] AND [Forms]![KREDİ KARTI İŞLEMLERİ]![Alt482].[Form]![Metin136]),0)
  2. WHERE ((([HESAPLAR LİSTESİ].Hesap_Id)=[Forms]![KREDİ KARTI İŞLEMLERİ]![Alt482].[Form].[hesap Id]))



dönem kastınızı işlem tarihinde neyi hedefleniyorsa And İşlem_tarihi between format(tar1,"mm/\dd/\yyyy") and format(tar2,"mm/\dd/\yyyy") şeklinde dsum(... bölümüne eklemelisiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  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 186 13-02-2024, 15:51
Son Mesaj: dsezgin
  Güncelleme metınaycıcek 16 293 04-02-2024, 08:13
Son Mesaj: metınaycıcek
  [VBA] Sürekli Formda Combobox Güncelleme Sorunu benuva 6 215 20-11-2023, 11:56
Son Mesaj: benuva
  [SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma yahyamacit 2 148 10-11-2023, 13:22
Son Mesaj: yahyamacit
access-sql-9 Acces Dosya Güncelleme mesut250 1 197 08-12-2022, 00:56
Son Mesaj: dsezgin
  Listbox'dan Güncelleme Ve Log Kaydı benuva 36 1.133 20-07-2022, 14:32
Son Mesaj: halily
  Birden Fazla Alanı Güncelleme tarkanaykın 9 410 07-04-2022, 20:41
Son Mesaj: tarkanaykın
  [TABLO] Toplu Güncelleme kyskys_1 7 483 28-01-2022, 12:38
Son Mesaj: kyskys_1

Foruma Git:


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