Yardım Excel; kolondaki değerlere göre accesden veri çekmek.

Merhaba, sizden bir ricam olacaktı değerli ustalarım

Excel ile accese veri gönderip alabiliyorum ancak yapmak istediğim şey şu şekilde:

A kolununda kaç satır veri varsa karşılığını accesden aşağdaki gibi almak maksadındayım sizden ricam.

B kolonuna accesden tanım gelmesi
C kolonuna accesden fiyat gelmesi
D kolonuna accesden miktar gelmesi; aynı artikel birden fazla kaydı var, toplamda kaç miktar var onun gelmesi sizden ricam ustalarım.
E kolonuna ise miktar çarpı fiyat yani tutarın gelmesi
F kolonuna ise datadaki tarih

NOT: Satır sayısı değişmektedir.




Accese veri göndermede kullandığım kodlar ise:

Sub artikel_işlemleri()
On Error Resume Next
Range("E3").Value = Now
Call database_open
Set DataKayitlari = DataBaglan.OpenRecordset("ARTİKEL")
DataKayitlari.AddNew
DataKayitlari.Fields("ARTİKEL") = Range("a3").Value
DataKayitlari.Fields("TANIM") = Range("b3").Value
DataKayitlari.Fields("SATICI") = Range("c3").Text
DataKayitlari.Fields("FİYAT") = Range("d3").Value
DataKayitlari.Fields("TARİH") = Range("E3").Value
DataKayitlari.Update
Call database_close
MsgBox "iŞLEM TAMAM"
End Sub