troubleshooting Question

Access VBA widen ListBox columns to fit data

Avatar of Murray Brown
Murray BrownFlag for United Kingdom of Great Britain and Northern Ireland asked on
Microsoft AccessVBA
4 Comments1 Solution13 ViewsLast Modified:
Hi
I am using the following code to fill a listbox in Access but the columns are not wide enough. How do I widen the columns to automatically fit the data

Private Sub Report_Open()

    Dim Query As DAO.QueryDef

    Debug.Print oReportSQL
    If oReportSQL <> "" Then
        Set Query = CurrentDb.CreateQueryDef("", oReportSQL)
        Me!ListSql.ColumnCount = Query.Fields.Count
        Me!ListSql.RowSource = oReportSQL
        Query.Close
    End If

End Sub

Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros