İlgin için teşekkür ederim, aradığım tam olarak buydu, sağolasın.
Lakin bu uygulamayı aldım kendi veritabanıma uyarladım, fakat kodlarda hatayla karşılaştım. Önce kodu yazayım;
Alıntı: Private Sub ListeyiYukle(KaynakAdi As String)Ben açılan kutudan ilgili tablo adını seçtiğimde "Dim lstItem As ListItem" satırında compile error: user-defined type not defined hatası veriyor.
Dim s As String
Dim i As Integer
Dim SutunSay As Integer
Dim lstItem As ListItem
If Len(KaynakAdi & "xx") <= 2 Then Exit Sub
TabloAdi = KaynakAdi
s = "Select * from " & KaynakAdi
If Not AdoAc1(s) Then
MsgBox "Tablo/Sorgu açılamadı", vbInformation
Exit Sub
End If
With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.Checkboxes = True
.ColumnHeaders.Add , , "Alan", .Width - 200
End With
SutunSayisi = Rs1.Fields.Count - 1
For i = 0 To SutunSayisi
Set lstItem = ListView1.ListItems.Add()
lstItem.Text = Nz(Rs1.Fields(i).Name, "-")
Next
AdoKapa 1
End Sub
Bu konuda sanırım bu kodların sahibi Bilgisayarcı bana yardımcı olacak.
Saygılarımla,
Kadir