İyi akşamlar,  bir tablom var,  sıfır değerli satırları silmek istiyorum, makro ile yaptığımda tek tek tümünü siliyor.
filtreleme ile yaptığımda ise aradaki dolu satırlarıda siliyor,
benim isteiğim seçili (Bakiye) sütununda (0) değer içeren satırların silinmesini istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

İyi Günler

Öncelikle Access i yeni yeni öğrenmeye çalışıyorum. Takıldığım bir nokta var. Yardımlarını bekliyorum.

Sorguda gelen iki sütun var biri tarih diğeri adet. ben üçüncü bir sütun oluşturup bunların toplayarak gitmesini istiyorum.

Örnek olarak

TARİH------------ADET------TOPLAM ADET
01.01.2021--------5--------------5
02.01.2021--------3--------------8
03.01.2021--------7-------------15
04.01.2021--------2-------------17

KOLAY GELSİN,
EKTE GÖNDERDİĞİM TABLODA SIFIR BAKİYELİ SATIRLARI SİLMEK İSTİYORUM, BUNU "BUL DEĞİŞTİR" YÖNTEMİ İLE YAPTIM VE BUNU MAKROYA ATADIM OLDU ANCAK MAKRO HER ÇALIŞTIRILDIĞINDA SIFIR DEĞERİ İÇERMEYEN EN ÜSTTEKİ SATIRI SİLİYOR. UNU NASIL ÇÖZEBİLİRİM

Kolay gelsin,
daha öncede bu konuyu açtım ancak istediğim sonuçları alamadım ben kendi yapmaya çalıştım, ancak
Hesap No ile silme düzgün çalışıyor, ancak Sıfır Bakiyeli satırları sil macrosu çalıştırıldığında sıfır değeri içeren hücreler kayboluyor ancak 0 sıfır değerini içeren tüm Tablo  satırlarının silinmesi gerekiyor.
bunu yapan kodu uygulama içine yapabilirimsiniz.
şimdiden teşekkürler

Sevgili Feraz hocam uygulama dosyasını eklememi yazmıştı, ben de ekledim.

Hayırlı günler

Acceste Aşağıdaki kod ile tablodaki satırları bir metin kutusunda birleştiriyorum ama satır kaynağı tablo yerine sorgu yapınca kod çalışmıyor bu konuda bana yardım edebilirmisiniz.

---

Private Sub Komut9_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim birlik As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from T_SIPARİŞ")
birlik = ""
With rst
Do While Not .EOF
birlik = birlik + !SiparişNu & ", "
.MoveNext
Loop
End With
Me.SraYaz = birlik
End Sub