Merhaba, kodda sorgu oluşturucuda Filed1, Field2 şeklinde alan tanımlaması yapılmış, ancak tablonuzda bu alanlar yok. Kodun aşağıdaki gibi değiştirilmesi gerekli.

  DoCmd.Maximize

' ReSizeForm Me



Dim rs As DAO.Recordset

Dim intLoop As Integer

Dim strSQL As String

Dim Genislik



Me.Visible = True

DoCmd.Maximize

strSQL = "SELECT MAX(LEN(SıraNo)) as Len0, MAX(LEN(Tc)) as Len1, MAX(LEN([Adı- Soyadı])) as Len2, " _

              & "MAX(LEN([Cep Telefonu])) as Len3, MAX(LEN([Servis Hattı])) as Len4, " _

             & "MAX(LEN([Anne Adı-Soyadı])) as Len5, MAX(LEN([Anne Cep Telefonu])) as Len6, " _

              & "MAX(LEN([Baba Adı Soyadı])) as Len7, MAX(LEN([Baba CepTelefon])) as Len8, " _

              & "MAX(LEN([CariKodu])) as Len9 , MAX(LEN([Borç])) as Len10, " _

              & "MAX(LEN([Alacak])) as Len11, MAX(LEN([Bakiye])) 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