Accesden last işlevi en son veriyi getirememe sorunu.

[erdemdag34]

Değerli büyüklerim, değerli ustalarım iyi akşamlar.
excel makro ile acces veri tabanından parça numarasına göre ilgili parça için en son kayıtlı veriyi çekiyorum ancak tanım ve fiyat en son kayıtlı parça numarasına göre veri çekmiyor ve order by desc komutu ile en son kayıt satırını en üste alamıyorum.

Saygı ve sevgiyle yardımınızı rica ederim değerli ustalarım

Sorgulama yaptığım kodlar:

Sub stok_listeleme_yap_benzersiz_tüm_listeme_metodu()
Application.ScreenUpdating = False
On Error Resume Next

sorgu = "SELECT stok.parça_kodu, last(stok.parça_adı), last(stok.parça_satış_fiyatı), sum(stok.adet), last(stok.işlem_türü), Max(stok.İŞLEM_KAYIT_TARİHİ) AS EnÇokTARİH FROM stok where işlem_türü in ('mal girişi', 'mal çıkışı', 'düzeltme') GROUP BY stok.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
Application.ScreenUpdating = True
End Sub

[islakates]

Bu şekilde denermisiniz,

Sub stok_listeleme_yap_benzersiz_tüm_listeme_metodu()
Application.ScreenUpdating = False
On Error Resume Next

sorgu = "SELECT stok.parça_kodu, stok.parça_adı, stok.parça_satış_fiyatı, sum(stok.adet), stok.işlem_türü, Max(stok.İŞLEM_KAYIT_TARİHİ) AS EnÇokTARİH FROM stok WHERE işlem_türü IN ('mal girişi', 'mal çıkışı', 'düzeltme') GROUP BY stok.parça_kodu;"

Call database_open
Set DataKayitlari = DataBaglan.OpenRecordset(sorgu, dbOpenSnapshot)

Do Until DataKayitlari.EOF
parça_kodu = DataKayitlari("parça_kodu")
sorgu2 = "SELECT TOP 1 parça_adı, parça_satış_fiyatı FROM stok WHERE işlem_türü IN ('mal girişi', 'mal çıkışı', 'düzeltme') AND parça_kodu='" & parça_kodu & "' ORDER BY İŞLEM_KAYIT_TARİHİ DESC;"
Set DataKayitlari2 = DataBaglan.OpenRecordset(sorgu2, dbOpenSnapshot)
Cells(8, "b").Value = DataKayitlari2("parça_adı")
Cells(8, "c").Value = DataKayitlari2("parça_satış_fiyatı")
DataKayitlari.MoveNext
Loop

Call database_close
Set DataKayitlari = Nothing
Set DataBaglan = Nothing
Application.ScreenUpdating = True
MsgBox "Sorgun Oluşturuldu.", vbInformation, "İşlem Tamamlandı", "Umarım sorununuz düzelmiştir."
End Sub

[erdemdag34]

Merhaba islakates değerli ustam.

Dediğiniz şekilde denedim bilgisayar dondu excel kapandı.
Ricam başka bir metodu varsa desteğinizi sizden ve değerli uslarımdan rica ediyorum

[islakates]

Şanslısın, veri tabanı da dona bilirdi, bilgisayarınız hiç açılmaya bilirdi..

sorgu = "SELECT stok.parça_kodu, Max(stok.parça_adı), Max(stok.parça_satış_fiyatı), Sum(stok.adet), Max(stok.işlem_türü), Max(stok.İŞLEM_KAYIT_TARİHİ) AS EnÇokTARİH FROM stok WHERE işlem_türü IN ('mal girişi', 'mal çıkışı', 'düzeltme') GROUP BY stok.parça_kodu ORDER BY Max(stok.İŞLEM_KAYIT_TARİHİ) DESC;"

[erdemdag34]

max ile en büyük değerler geldi olmadı değerli ustam.
İslakates bey desteğiniz için teşekkür ederim efendim.
Saygılar, iyi akşamlar.