önceki örnekteki kod değiştirildi öncekinde stun aralıkları ayarlı değildi bunda ayarlandı
Private Sub Metin0_AfterUpdate()
Me.Liste2.RowSource = ""
Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim say As Integer
Dim sd As String
sql = Me.Metin0
Dim fld As ADODB.Field
Rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
say = 0
sd = 3000
For Each fld In Rs.Fields
say = say + 1
sd = sd & ";3000"
Next fld
Me.Liste2.ColumnCount = say
Me.Liste2.ColumnWidths = sd
Rs.Close
Me.Liste2.RowSource = Me.Metin0
End Sub
ayar 3000 normalda 5280 e ayarlı
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz