+- 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ığı: ListBox'taki Verilerin İstenilen Metin Kutusuna Aktarılması (/konu-listbox-taki-verilerin-istenilen-metin-kutusuna-aktarilmasi.html)
ListBox'taki Verilerin İstenilen Metin Kutusuna Aktarılması - durkheim - 27/02/2011
Arkadaşlar, örnekteki Liste0'da 1.sıradaki TC Kimlik No'ya(1111) çift tıklandığında 1.TC Metin Kutusuna,2.sıradaki TC Kimlik( No'ya(2222) çift tıklatıldığında 2.TC Metin kutusuna ve diğerlerinide aynı şekilde 3,4 ve 5. metin kutularına nasıl aktarabilirim?
Cvp: ListBox'taki Verilerin İstenilen Metin Kutusuna Aktarılması - Hayri16 - 27/02/2011
Sayın durkheim;
Tek bir çift tıklamada hepsi sırayla kutulara mı aktarılsınlar, yoksa 1 ve 2 yi boş geçip 3.yü tıkladığınızda 3.ye mi yerleşsin?
Şöyle daha anlaşılır sorayım;
Listede diyelimki ilk olarak 3.sıradaki veriyi tıkladım. Bu ilk metin kutusuna mı yerleşecek, yoksa 3.metin kutusuna mı?
Cvp: ListBox'taki Verilerin İstenilen Metin Kutusuna Aktarılması - durkheim - 27/02/2011
Sayın Hayri16 Hocam, tek bir tıklama ile hepsinin sırayla aktarılması daha kullanışlı olur diye düşünüyorum.
Listede diyelimki ilk olarak 3.sıradaki veriyi tıkladım. Bu ilk metin kutusuna mı yerleşecek, yoksa 3.metin kutusuna mı?
C: 3.Sıradaki 3.Metin kutusuna aktarılacak.
Cvp: ListBox'taki Verilerin İstenilen Metin Kutusuna Aktarılması - Hayri16 - 27/02/2011
Private Sub Liste0_DblClick(Cancel As Integer)
If Liste0.ListIndex = 0 Then Me.tc1 = Liste0.Column(1, 0)
If Liste0.ListIndex = 1 Then Me.tc2 = Liste0.Column(1, 1)
If Liste0.ListIndex = 2 Then Me.tc3 = Liste0.Column(1, 2)
If Liste0.ListIndex = 3 Then Me.tc4 = Liste0.Column(1, 3)
If Liste0.ListIndex = 4 Then Me.tc5 = Liste0.Column(1, 4)
End SubKodunuz yukarıdaki gibi. Deneyip sonucu bildirebilir misiniz?
Cvp: ListBox'taki Verilerin İstenilen Metin Kutusuna Aktarılması - durkheim - 27/02/2011
Sayın Hayri16 Hocam, nezaketiniz, yardımseverliğiniz ve vermiş olduğunuz isabetli ve hızlı çözümler için teşekkür ederim. Sorun çözülmüştür.
