Private Sub Form_Load()



Dim rs As DAO.Recordset

Dim intLoop As Integer

Dim strSQL As String

Dim Genislik



Me.Visible = True

DoCmd.Maximize

strSQL = "SELECT MAX(LEN(Field1)) as Len1, MAX(LEN(Field2)) as Len2, " _

              & "MAX(LEN([Field3])) as Len3, MAX(LEN([Field4])) as Len4, " _

             & "MAX(LEN([Field5])) as Len5, MAX(LEN([Field6])) as Len6, " _

              & "MAX(LEN([Field7])) as Len7, MAX(LEN([Field8])) as Len8, " _

              & "MAX(LEN([Field9])) as Len9 , MAX(LEN([Field10])) as Len10, " _

              & "MAX(LEN([Field11])) as Len11, MAX(LEN([Field12])) as Len12 FROM [OgrenciListesi]"

Set rs = CurrentDb.OpenRecordset(strSQL, , dbFailOnError)



For intLoop = 0 To rs.Fields.Count - 1

    '.05 value assumes 10 characters per inch for your font/fontsize

    Genislik = Genislik & ";" & rs(intLoop) * 0.1 & Chr$(34)

Next

Genislik = Mid(Genislik, 2)



Me.OgrList.ColumnWidths = Genislik



End Sub

 

Yukarıdaki kodlarla listbox sütun genişliğini otomatik yapmak istiyorum fakat