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

Microsoft Access ile ilgili soru ve cevaplarınızı bu alandan paylaşabilirsiniz.
Cevapla
erdemdag34
Mesajlar: 15
Kayıt: Pzt Haz 26, 2023 10:57 pm
Lokasyon: MERSİN- YENİŞEHİR
Meslek: Depo İşçisi (Elleçleme)
Adınız: Erdem
Soyadınız: DAĞ

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

Mesaj gönderen 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
Kullanıcı avatarı
Tarkan VURAL
Doğrulandı
Site Admin
Mesajlar: 59
Kayıt: Prş Haz 22, 2023 12:03 am
Lokasyon: İstanbul
Web Sitesi: http://www.tarkanvural.com.tr
Meslek: Yazılım ve Veri Tabanı Uzmanı
Adınız: Tarkan
Soyadınız: VURAL
İletişim:

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

Mesaj gönderen Tarkan VURAL »

Merhaba,
Gruplama kısmına barkod ekleyip denediniz mi ?
erdemdag34
Mesajlar: 15
Kayıt: Pzt Haz 26, 2023 10:57 pm
Lokasyon: MERSİN- YENİŞEHİR
Meslek: Depo İşçisi (Elleçleme)
Adınız: Erdem
Soyadınız: DAĞ

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

Mesaj gönderen 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.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj