bak bu seferki sorun güzel ama şimdide örneğin garip
cevap Private Sub Metin0_AfterUpdate()
Dim Sql As String
sql = Metin0
Dim db As Database
Dim say As Integer
Dim rst As Recordset, intI As Integer
Dim fld As Field
say = 0
Set db = CurrentDb
Set rst = db.OpenRecordset(sql)
For Each fld In rst.Fields
say = say + 1
Next
Me.Liste2.RowSource = sql
Me.Liste2.RowSourceType = "table/query"
Me.Liste2.ColumnCount = say
Me.Liste2.ColumnWidth = 2
End Sub
ancak liste kutusunun satır kaynağı boş eleman sayısı default=1 de kalmalı
iyi çalışmalr
