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

örnek eklermisiniz

(05/02/2019, 22:45)ozguryasin yazdı: örnek eklermisiniz

Ek olarak resimde bulunan Sol taraftaki ok işaretli yerin sebebi ne olabilir?

özellikler bölümünden 
kayıt seçicileri  
hayır 
yapın düzelir. ok işareti kaybolur.

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