Solda bulunan nesne penceresini daralttım. Tekrar genişlemiyor. Üzerine gelince tutamaç oluşmuyor. Evdeki bilgisayarda da denedim olmadı.

[vb]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 L