Çözüldü Excel vba ile accesden last kullanımı hakkında.

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
65
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
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 bazen çekiyor çekmiyor örnek: 120 nolu parça 5 defa kaydedilmiş olsun, en son kayıtlı tanım ve fiyatı çekmesi çabasındayım 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:

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çözüm
Adnan
Dosyanızda module8 içerisine kodu yazdım. Tabii olarak yolu değiştirmen gerekiyor. Ayrıca Sorguları excelde yapmak zorunda değilsin. Accese sorgunu yaz ve kaydet sonra tabloymuş gibi çağır.
sorgu kodu
SELECT stok.parça_kodu, Last(stok.parça_adı) AS parçaadı, Last(stok.parça_alış_fiyatı) AS Sonparça_alış_fiyatı, Last(stok.parça_satış_fiyatı) AS Sonparça_satış_fiyatı, Last(stok.satıcı) AS Sonsatıcı, Sum(stok.adet) AS toplamadet, Sum(stok.kar) AS toplamkar, Last(stok.işlem_türü) AS Sonişlem_türü, Last(stok.aktif_pasif) AS durum, Max(stok.İŞLEM_KAYIT_TARİHİ) AS EnÇokTARİH, Last(stok.parça_alış_fiyatı)*Sum(stok.adet) AS İfade1
FROM stok
WHERE (((stok.[işlem_türü]) In ('mal girişi','mal çıkışı','düzeltme','iade')))
GROUP BY stok.parça_kodu;
Tarihe göre sırala Oylara göre sırala
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
Ornek bir dosya eklerseniz yardımcı olmaya çalışırız
Iyi çalışmalar
 
Olumlu oy 0 Negatif oyla
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
65
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
halily' Alıntı:
Ornek bir dosya eklerseniz yardımcı olmaya çalışırız
Iyi çalışmalar
Genişletmek için tıkla...
Değerli ustam merhaba. Dosya ekledim sayın ustam. Şimdiden size ve tüm değerli ustalarıma teşekkürlerimi sunarım :)
 

Ekli dosyalar

  • ACCESS.zip
    572.3 KB · Gösterim: 4
Olumlu oy 0 Negatif oyla
Adnan

Adnan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
1,513
Çözümler
267
Aldığı beğeni
1,523
Excel Versiyonu
Office 365 TR
Dosyanızda module8 içerisine kodu yazdım. Tabii olarak yolu değiştirmen gerekiyor. Ayrıca Sorguları excelde yapmak zorunda değilsin. Accese sorgunu yaz ve kaydet sonra tabloymuş gibi çağır.
sorgu kodu
SELECT stok.parça_kodu, Last(stok.parça_adı) AS parçaadı, Last(stok.parça_alış_fiyatı) AS Sonparça_alış_fiyatı, Last(stok.parça_satış_fiyatı) AS Sonparça_satış_fiyatı, Last(stok.satıcı) AS Sonsatıcı, Sum(stok.adet) AS toplamadet, Sum(stok.kar) AS toplamkar, Last(stok.işlem_türü) AS Sonişlem_türü, Last(stok.aktif_pasif) AS durum, Max(stok.İŞLEM_KAYIT_TARİHİ) AS EnÇokTARİH, Last(stok.parça_alış_fiyatı)*Sum(stok.adet) AS İfade1
FROM stok
WHERE (((stok.[işlem_türü]) In ('mal girişi','mal çıkışı','düzeltme','iade')))
GROUP BY stok.parça_kodu;
 

Ekli dosyalar

  • Form1.zip
    2.8 MB · Gösterim: 9
Olumlu oy 1 Negatif oyla
Çözüm
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
65
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
Adnan bey abi desteğiniz için çok teşekkürler.
Sayın abim yine aynı durum oldu; bazen en son veriyi çekiyor bazen çekmiyor.
Dediğiniz gibi accesde de sorgulama yaptım ordada aynı durum oldu efendim.
 
Olumlu oy 0 Negatif oyla
Adnan

Adnan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
1,513
Çözümler
267
Aldığı beğeni
1,523
Excel Versiyonu
Office 365 TR
Sayfa1.Range("b8").CopyFromRecordset Rs yandaki SATIR altına aşağıdakileri ekleyin. 20 Deneme yaptım sorun olmadı

Rs = Nothing
Con.Close
Con = Nothing
 
Olumlu oy 0 Negatif oyla
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
65
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
Adnan' Alıntı:
Sayfa1.Range("b8").CopyFromRecordset Rs yandaki SATIR altına aşağıdakileri ekleyin. 20 Deneme yaptım sorun olmadı

Rs = Nothing
Con.Close
Con = Nothing
Genişletmek için tıkla...
Adnan bey abi şuan çalışıyor ellerinize sağlık sağ olun var olun değerli ustam :) bazen en son verileri çekmemesi office 2007 kullanıyorum bundan kaynaklı olabilir mi sayın abim ?
 
Olumlu oy 0 Negatif oyla
Adnan

Adnan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
1,513
Çözümler
267
Aldığı beğeni
1,523
Excel Versiyonu
Office 365 TR
hayır onunla alakası yok. benim yazdığım kodları kullanın sorun olmaması gerekiyor
 
Olumlu oy 0 Negatif oyla
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
65
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
Adnan' Alıntı:
hayır onunla alakası yok. benim yazdığım kodları kullanın sorun olmaması gerekiyor
Genişletmek için tıkla...
Adnan bey çok çok teşekkür ediyorum; sizin kodlarınızla devam ediyor olacağım. Hoş çakalın, sağlıcakla kalın efendim. İyi geceler :)
 
Olumlu oy 0 Negatif oyla
Adnan

Adnan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
1,513
Çözümler
267
Aldığı beğeni
1,523
Excel Versiyonu
Office 365 TR
Sağlıcakla kalın. Başarı ve mutluluklar senin olsun
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,177
Çözümler
497
Aldığı beğeni
3,913
Excel Versiyonu
Office 2021 TR
Merhaba.
DAO yerine ADO ile alternatih kod eklenmiştir.
Koddaki access sütun başlıklarındaki bozuk harfleri düzeltin.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst