Skip to main content

AccessTr.neT


Döngü İle Aktarma

Döngü İle Aktarma

Çözüldü #1
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?
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
For x=0 to 10
Controls("TextBox" &  x +1).value=listbox1.list(0,x)
Next x
Şeklinde bir kod işinize yarayabilir
Cevapla
#3
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
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
(25/04/2021, 01:09)berduş yazdı: list(0,x)

0 yerine
ListBox1.ListIndex olacak sanki içimden bir his öyle dedi Img-grin
Cevapla
#5
ListBox1.List(0, x) yerine ListBox1.List(x,0) dener misiniz
Cevapla
#6
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da