mdb dosyasına makro ile sumif uygulama

[musa_23]

Kolay gelsin
Ben mdb dosyasına kayıt ekleme rapor ve silme işlemi yapabiliyorum.Ben sum if uygulayamadım yardıcı olursanız çok sevinicem.

tablo
ID Ad Adet
1 BOYA 5
2 ÇİVİ 10
3 BOYA -3

Bu tabloda textboxt4'te yazan kısıta göre ad alanında arayıp Adet alanında çarşılık gelenleri toplamasını istiyorum.Özet tablo oluşturmadan

 

[Muzaffer Ali]

Bu soruya cevap alabilmeniz için kullandığınız veritabanı bağlantı türünüde belirtmelisiniz.

 

[musa_23]

Tam olarak anlayamadım ama ben mdb uzantılı microsoft access veritabanı olark kullanıyorum

Örnek silme işlemini
bu kodla hallettim
Dim rs As New ADODB.Recordset
If ListBox1.ListIndex < 0 Then
MsgBox "seçim yapılmalı.", vbCritical, "dikkat"
Exit Sub
End If
Set rs = New ADODB.Recordset
If ListBox1.ListCount < 0 Then
MsgBox "seçim yapılmadı.", vbCritical, "UYARI"
Exit Sub
End If
Set rs = conn.Execute("Delete * from Tbkayıt Where ID =" & CDbl(ListBox1.Column(0)))
Call listele
MsgBox "silme işlemi gerçekleşti", vbOKOnly
Set rs = Nothing

Gibi şimdiden teşekkürler