Excel vba; accesden veri çağırmak hakkında.

[erdemdag34]

Merhabalar değerli ustalarım.

Excelde hücredeki değere fatura numarasına göre accesden veri çekiyorum; fatura numarası girince accesden veriler geliyor ama aynı faturada aynı barkod örneğin 6 defa geçtiyse ben bunu tek satırda tek barkod tek tanım tek adet sayısı ve tek toplam tutarı ile görmek çabasındayım sizlerden ricam ustalarım


Kodlar.

Kod: Tümünü seç

Sub FATURA_cagır()
    Application.ScreenUpdating = False
    On Error Resume Next
    Range("I6:L100000").Clear
    
    Fatura_No = Range("I3").Text
    
     sorgu = "SELECT ana_data.barkod, Last(ana_data.tanım) AS SonTanım, Last(ana_data.FİYAT) AS SonFİYAT, COUNT(ana_data.BARKOD) AS KAÇBARKODAVAR, SUM(ana_data.FİYAT) AS TOPLAMFİYAT, Max(ana_data.TARİH) AS EnÇokTARİH, FROM ana_data GROUP BY ana_data.fatura_no; where [Fatura_No]= & Fatura_No & " '"

    Call database_open
    Set DataKayitlari = DataBaglan.OpenRecordset(sorgu, dbOpenSnapshot)
    Cells(6, "I").CopyFromRecordset DataKayitlari
    Call database_close
    Set DataKayitlari = Nothing
    Set DataBaglan = Nothing
    Application.ScreenUpdating = True
End Sub

[Tarkan VURAL]

Merhaba,
Gruplama kısmına barkod ekleyip denediniz mi ?

[erdemdag34]

Merhaba Tarkan bey abi.

sorgu = "SELECT ana_data.barkod, Last(ana_data.tanım) AS SonTanım, Last(ana_data.FİYAT) AS SonFİYAT, COUNT(ana_data.BARKOD) AS KAÇBARKODAVAR, SUM(ana_data.FİYAT) AS TOPLAMFİYAT, Max(ana_data.TARİH) AS EnÇokTARİH, FROM ana_data GROUP BY ana_data.barkod; where [Fatura_No]= & Fatura_No & " '"

denedim becermedim değerli ustam.