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
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