AccessTr.neT

Hayırlı Geceler, Hayırlı Sahurlar.
Listboxta 11 sütun veri var. Aynı zamanda da 11 Tane textbox var.

TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0) formatı ile değil de Listboxa çift tıklama ile bir kerede döngü kurarak aktarılabilmesi mümkün müdür?

For x=0 to 10

Controls("TextBox" &  x +1).value=listbox1.list(0,x)

Next x

Şeklinde bir kod işinize yarayabilir

Ustam
Could Not Find the specified object "Belirtilen nesne Bulunamadı" diye bir hata verdi


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For x = 0 To 10
Controls("TextBox" & x + 1).Value = ListBox1.List(0, x)
Next x
End Sub

(25/04/2021, 01:09)berduş yazdı: [ -> ]list(0,x)

0 yerine
ListBox1.ListIndex olacak sanki içimden bir his öyle dedi

ListBox1.List(0, x) yerine ListBox1.List(x,0) dener misiniz

(25/04/2021, 01:19)malatyalı yazdı: [ -> ]Could Not Find the specified object "Belirtilen nesne Bulunamadı" diye bir hata verdi

Textbox adları textbox1,2,....11 gibi değilse hata vermiştir büyük ihtimalle.