• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

erdem dağ

Yeni Üye
Katılım
25 Mar 2023
Mesajlar
134
Çözümler
1
Aldığı beğeni
27
Excel V
Office 2007 TR
Konu Sahibi
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:

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çö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
Ornek bir dosya eklerseniz yardımcı olmaya çalışırız
Iyi çalışmalar
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
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
Sayfa1.Range("b8").CopyFromRecordset Rs yandaki satır altına aşağıdakileri ekleyin. 20 Deneme yaptım sorun olmadı

Rs = Nothing
Con.Close
Con = Nothing
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
Sayfa1.Range("b8").CopyFromRecordset Rs yandaki satır 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
hayır onunla alakası yok. benim yazdığım kodları kullanın sorun olmaması gerekiyor
 
Olumlu oy 0 Negatif oyla
Sağlıcakla kalın. Başarı ve mutluluklar senin olsun
 
Olumlu oy 0 Negatif oyla
Merhaba.
DAO yerine ADO ile alternatih kod eklenmiştir.
Koddaki access sütun başlıklarındaki bozuk harfleri düzeltin.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst