Listbox a veri ekleme

[okanpolat]

Arkadaşlar ben şöle bişey yapmak istiyorum.Üstte 3 tane adı soyadı ve tckimlik şeklinde textbox var bunları ekle butonuna tıklayarak textboxa eklemek istiyorum ama bu işlemi defalarca yapıcam hepsi sırayla textboxa eklenecek additem metodu ile yapıyorum fakat sadece listbox in 1. sütununa bilgi yazdırabiliyorum.
Not:Verilerin her biri ayrı sütuna yazılcak

 

[Orion1]

Arkadaşlar ben şöle bişey yapmak istiyorum.Üstte 3 tane adı soyadı ve tckimlik şeklinde textbox var bunları ekle butonuna tıklayarak textboxa eklemek istiyorum ama bu işlemi defalarca yapıcam hepsi sırayla textboxa eklenecek additem metodu ile yapıyorum fakat sadece listbox in 1. sütununa bilgi yazdırabiliyorum.
Not:Verilerin her biri ayrı sütuna yazılcak

Hangi textboxlara eklenecek?

 

[metinozlu]

Private Sub UserForm_Initialize()
ListBox1.RowSource = "veritabani!a23000" 'bu kodlarda kendnizine göre değişiklik yapınız
ListBox1.ColumnCount = 18
ListBox1.ColumnHeads = True


ListBox1.ColumnWidths = 50 & ";" & 50 & ";" & 0 & ";" & 100 & ";" & 100 & ";" & 100 & ";" & 80 & ";" & 50 & ";" & 0 & ";" & 0 & ";" & 120 & ";" & 40 & ";" & 0 & ";" & 90 & ";" & 150 & ";" & 0 & ";" & 0 & ";" & 0
enh sub

 

[Orion1]

Eğer listbox'a aktarılacaksa Aşağıdaki kodları kendi nesnelerinize göra uyarlarsanız istediğiniz olur.
Kodları istediğiniz bir yere atayabilirsiniz.Size kalmış.

Dim i As Byte
ListBox1.ColumnCount = 3
ListBox1.AddItem
For i = 1 To 3
    ListBox1.Column(i - 1, ListBox1.ListCount - 1) = Controls("TextBox" & i)
Next

 

[okanpolat]

İkinizede teşekkür ederim sanırım Sayın Evren Gizlen'in yaptığı yöntem işimi yaricak ben bi daneyeyim sorun çıkarsa tekrar yardımınızı rica edicem.