ragnorak
Altın Üye
- Katılım
- 4 Haziran 2016
- Mesajlar
- 204
- Excel Vers. ve Dili
- Excel 2021
- Altın Üyelik Bitiş Tarihi
- 03-09-2026
Kod:
Sorgu = "Select [STOK_KODU],[URUN_KODU],[URUN_ADI],[URUN_GRUBU] from [URUN_DOSYALARI] where [STOK_KODU] ='" & ListBox1.LIST(ListBox1.ListIndex, 0) & "' union all " & _
"Select DISTINCT ST.[STOK_KODU],ST.[IS_KODU],IE.[FIRMA_ADI],IE.[IS_KODU] from [SATINALMA_LISTE] as ST left join [" & qfx & "] as IE on ST.[IS_KODU]=IE.[IS_KODU]" & _
"where ST.[STOK_KODU] ='A.H.1001.1127'"
RS.Open Sorgu, con, 1, 3
Do Until RS.EOF
With ListBox1
.AddItem
.LIST(i, 0) = RS.Fields(1).Value
.LIST(i, 1) = RS.Fields(2).Value
.LIST(i, 2) = "Tablo Adı"
End With
RS.movenext
Loop