Excel vba ile accesden sorgulama yapmak hakkında.

[erdemdag34]

Merhabalar değerli ustalarım.

Aşağıdaki kodlar ile accese kaydedilen parça numaralarını liste halinde, kayıtlarda en son kayıt edilen tarihli parça numarasına göre; tanımı, satıcısı, alış ve satış fiyatı ve kayıt tarihi olacak şekilde sorgulama yapabiliyorum.

Sorgulama sonucu gelen satırın yanına adetlerini göstermeyi bir türlü yapamadım yardımınızı rica ederim sayın ustalarım.


Sub stok_benzersiz_liste()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Stok_listesi_özet").Select
ActiveSheet.Unprotect "7777"
Range("b8:l100000").Select
Selection.ClearContents
Range("C3").Select

sorgu = "SELECT parça_kodu, parça_adı, satıcı, parça_alış_fiyatı, parça_satış_fiyatı, işlem_kayıt_tarihi FROM stok WHERE işlem_kayıt_tarihi=(SELECT MAX(işlem_kayıt_tarihi) FROM stok AS T1 WHERE T1.parça_kodu=stok.parça_kodu) ORDER BY parça_kodu"

Call database_open
Set DataKayitlari = DataBaglan.OpenRecordset(sorgu, dbOpenSnapshot)
Cells(8, "b").CopyFromRecordset DataKayitlari
Call database_close
Set DataKayitlari = Nothing
Set DataBaglan = Nothing

Sheets("Stok_listesi_özet").Select
ActiveSheet.Protect "7777"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True
End Sub