Nasıl olduğu yukarıda zaten?
ö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ı
Sayin esrefigit elinize ve yureginize saglik . Yalniz benim bir sorum olacak bende ADODB.Recordset taninmiyor sanirsam surekli hata veriyor ne yapmam gerekiyor bilgisi olan var mi ? Hatanin resmini ekliyorum incelerseniz sevinirim
Saygilarimla.
sütün genişliklerini ortalama 2 cm vermiştim isterseniz
liste2.rowwidth=2 yerine 3, 4 veya başka bir numara yazabilirsiniz
(04/05/2009, 19:15)dengesiz yazdı: Sayin esrefigit elinize ve yureginize saglik . Yalniz benim bir sorum olacak bende ADODB.Recordset taninmiyor sanirsam surekli hata veriyor ne yapmam gerekiyor bilgisi olan var mi ? Hatanin resmini ekliyorum incelerseniz sevinirim
Saygilarimla.
Sanırım ADO referanslardan ekli değil. Onu kjontrol edin. Değilse ADO ekleyin projeye..
Sayin mehmetdemiral tesekkur ederim eklentiyi kurmadigim icin boyle bir hata ile karsilasiyormusum butun arkadaslara ilgilerinden dolayi tesekkur ederim.
Saygilarimla.