Autosize columns in datasheet
I have always used Stephen Lebans AutoColumnWidth to resize datasheet columns, but from recent discussion in Access MVPs email list I found a native Access property to autosize columns. According to KB article ACC: How to Use the ColumnWidth Property it was there since Access 1.1! So you just need to loop through all controls and set ColumnWidth property to -2:
Dim ctl As Control
For Each ctl In Me.CustomersDS.Form.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
ctl.ColumnWidth = –2
End Select
Next ctl
Very easy! And set it back to default width you can use .ColumnWidth = -1.
You can also autosize table and query datasheet using same way and Screen.ActiveDatasheet form object
Labels: Access