listeye çoklu ekle çıkar kaydet

Selamlar. Liste kutusunun kolon sayısını kodlara göre uyarlayınız. İstenen sonucu doğru anlamışsam aşağıdak kodlar işinizi görecektir. Tabi ihriyacınıza göre uyarlamanız gerekecek.

Private Sub KMTEKLE_Click()
Dim intIstasyon As Long
Dim intUnvan As Long
Dim adiSoyadi As String
Dim strIstasyon As String
Dim strUnvan As String

intIstasyon = Nz(AKISTASYON)
strIstasyon = Nz(AKISTASYON.Column(1))
intUnvan = Nz(AKUNVAN)
strUnvan = Nz(AKUNVAN.Column(1))
adiSoyadi = Nz(MTNADSOYAD)

LSTKATILIMCI.AddItem "" & intIstasyon & "; " & intUnvan & " ;" & adiSoyadi & "; " & strUnvan & ";" & strIstasyon & " "

End Sub

Sayın karagöl, sanırım şu aşamada liste kutusuna ekleme işinin halledildiğini söyleyebilirim. Başlangıçta aradığımız liste kutusuna sütunlu veri ekleme kodları bunlar sanırım. Denemedim ancak şu anda verilerin liste kutusuna aktarımı değil, listeden tabloya aktarımı aşamasına gelindi.

Benim önerim tablo birleştirme olabilir. Zaman bulunca adoya ve sorguya gerek kalmadan sorunu halledeceğim.

Sanırım bu şekilde sorunsuz olarak aktarım sağlanıyor. İnceleyip dönerseniz sevinirim.

evet hocam for nexti yapamamıştım bu daha iyi olmuş teşekkürler...

kayıt yapılan tabloyu açıp istasyon yada ünvanı tıkladığımda kaydedilen değer bu alan için geçerli değil uyarısını nasıl çözebilirim...

dayday hocam sizede teşekkürler ekle kısmına sizin kodları uyguladım...

Bu da trafiği daha düzenlenmiş biçimidir. Kullanılması açısından kullanıcı dostu olan tercih edilebilir tabii ki...

teşekkür ederim hocam süper oldu... birde T_KATLIMCILAR tablosundaki UNVANID ve ISTASYONID tıklayınca verdiği hatayı çözersek bitmiş olacak...