+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste Kutusundan Seçtiğim Verinin Aynısını 2. Listeden De Seçtirme (/konu-liste-kutusundan-sectigim-verinin-aynisini-2-listeden-de-sectirme.html)
Liste Kutusundan Seçtiğim Verinin Aynısını 2. Listeden De Seçtirme - husem - 01/12/2021
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]
RE: Liste Kutusundan Seçtiğim Verinin Aynısını 2. Listeden De Seçtirme - berduş - 01/12/2021
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 SubRE: Liste Kutusundan Seçtiğim Verinin Aynısını 2. Listeden De Seçtirme - husem - 01/12/2021
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
RE: Liste Kutusundan Seçtiğim Verinin Aynısını 2. Listeden De Seçtirme - berduş - 01/12/2021
rica ederim
iyi çalışmalar