How to set ALL of columns width in "Best fit" in VBA Access 2010
<p>I know for set the column width in best fit for a field with "Title" name the below code works:</p>

<pre><code>Private Sub Form_Load()

Forms![Contacts]![Title].ColumnWidth = -2

End sub
</code></pre>

<p>is there any solution for ALL columns in datasheet view into one or two lines VBA Code?</p>

<p>Many Thanks ...</p>