Finding width of field in query programmatically

[Ed Ferrero]

If I open a query in Access, I can click on a coulmn and use the menu item
'Format --> Column Width' to obtain a value for the width of the column as
displayed in the datasheet view.

How can I get this value using VBA?

Ed Ferrero
Microsoft Excel MVP
http://www.edferrero.com

 

[Brendan Reynolds]

These lines are a bit long and may get broken in the newsgroup post, so
watch out for that ...

Public Function QueryColumnWidth(ByVal QueryName As String, ByVal ColumnName
As String) As Long

QueryColumnWidth =
CurrentDb.QueryDefs(QueryName).Fields(ColumnName).Properties("ColumnWidth")

End Function

Example of use, in Immediate Window ...

? QueryColumnWidth("qryTest", "TestDate")
2565

 

[Ed Ferrero]

Thanks Brendan,

Just what I needed!

Ed Ferrero