Liste Kutusundan Seçtiğim Verinin Aynısını 2. Listeden De Seçtirme

01/12/2021, 21:20

husem

merhaba arkadaşlar,
aşağıda eklediğim resimde,
1. listeden seçtiğim verinin tezgah türü ve makine numarası kaç ise
2. listeden de aynı kayda uyan veriyi seçtirmek istiyorum, seçtiğim verinin değerini metin kutusuna almak istiyorum,
yardımcı olabilirmisiniz?

[img]
[/img]
01/12/2021, 23:20

berduş

aşağıdaki kodu dener misiniz?
Private Sub Liste100_Click()
Me.TEZGAH_TURU = Me.Liste100.Column(8)
Me.HAVLU_COZGU_TEL_SAYISI = Me.Liste100.Column(11)
Me.HAV_IPLIK_NO = Me.Liste100.Column(2)
xSQL = "SELECT IPLIK_COZGU_GIDEN_GELEN.ID, IPLIK_COZGU_GIDEN_GELEN.COZGUCU_FIRMA AS [Çözgü Firması], IPLIK_COZGU_GIDEN_GELEN.IPLIK_NO AS [İplik No], " & _
"IPLIK_COZGU_GIDEN_GELEN.ISTENEN_HAV_ZEMIN AS [Kullanım Yeri], IPLIK_COZGU_GIDEN_GELEN.IPLIK_TURU AS [İplik Türü], " & _
"IPLIK_COZGU_GIDEN_GELEN.IPLIK_MARKA AS [İplik Menşei], IPLIK_COZGU_GIDEN_GELEN.IPLIK_FIRMASI AS [İplik Firması], " & _
"IPLIK_COZGU_GIDEN_GELEN.GELEN_KG AS [Gelen Kg], IPLIK_COZGU_GIDEN_GELEN.TEZGAH_TURU AS [Tezgah Türü], IPLIK_COZGU_GIDEN_GELEN.MAKINA AS Mak, " & _
"IPLIK_COZGU_GIDEN_GELEN.EBAT AS Ebat, IPLIK_COZGU_GIDEN_GELEN.TEL AS TelSay, IPLIK_COZGU_GIDEN_GELEN.LEV AS LevAçı, " & _
"IPLIK_COZGU_GIDEN_GELEN.DURUMU AS Durumu FROM IPLIK_COZGU_GIDEN_GELEN " & _
"WHERE (((IPLIK_COZGU_GIDEN_GELEN.ISTENEN_HAV_ZEMIN)=""ZEMİN"") " & _
"AND ((IPLIK_COZGU_GIDEN_GELEN.TEZGAH_TURU)='" & Liste100.Column(8) & "') AND ((IPLIK_COZGU_GIDEN_GELEN.MAKINA)=" & Liste100.Column(9) & "))" & _
"ORDER BY IPLIK_COZGU_GIDEN_GELEN.TEZGAH_TURU, IPLIK_COZGU_GIDEN_GELEN.MAKINA, IPLIK_COZGU_GIDEN_GELEN.EBAT;"
Me.Liste101.RowSource = xSQL

End Sub
01/12/2021, 23:50

husem

sn halil bey merhaba,
sizin yazdığınız koda ilave olarak
listeyi seçtirmek için aşagıdaki kodu ekledim,
sorun çözüldü,
teşekkür ederim,
Private Sub listeyisec()
Dim i As Integer
For i = 0 To Me.Liste101.ListCount
Me.Liste101.Selected(i) = True
Next
End Sub
01/12/2021, 23:54

berduş

rica ederim
iyi çalışmalar