Merhabalar değerli ustalarım.
Aşağıdaki kodlar ile accese kaydedilen parça numaralarını liste halinde, kayıtlarda en son kayıt edilen tarihli parça numarasına göre; tanımı, satıcısı, alış ve satış fiyatı ve kayıt tarihi olacak şekilde sorgulama yapabiliyorum.
Sorgulama sonucu gelen satırın yanına adetlerini göstermeyi bir türlü yapamadım yardımınızı rica ederim sayın ustalarım.
Sub stok_benzersiz_liste()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Stok_listesi_özet").Select
ActiveSheet.Unprotect "7777"
Range("b8:l100000").Select
Selection.ClearContents
Range("C3").Select
sorgu = "SELECT parça_kodu, parça_adı, satıcı, parça_alış_fiyatı, parça_satış_fiyatı, işlem_kayıt_tarihi FROM stok WHERE işlem_kayıt_tarihi=(SELECT MAX(işlem_kayıt_tarihi) FROM stok AS T1 WHERE T1.parça_kodu=stok.parça_kodu) ORDER BY 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
Sheets("Stok_listesi_özet").Select
ActiveSheet.Protect "7777"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True
End Sub
Excel vba ile accesden sorgulama yapmak hakkında.
-
- 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Ğ
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 1 Cevaplar
- 1744 Görüntüleme
-
Son mesaj gönderen islakates
-
- 0 Cevaplar
- 96 Görüntüleme
-
Son mesaj gönderen incsoft
-
- 3 Cevaplar
- 1882 Görüntüleme
-
Son mesaj gönderen erseldemirel
-
- 1 Cevaplar
- 2273 Görüntüleme
-
Son mesaj gönderen sahin
-
- 1 Cevaplar
- 2328 Görüntüleme
-
Son mesaj gönderen sahin