<div>
<div class="content wysiwyg-content">
I have a sub report in a report. &nbsp;I want to change the column widths property based on blank vs populated in columns from right to left 
 
This code does not seem to update the report, how can I make this work 
 
Private Sub Detail_Paint() 
If Trim(Me!cboVariety.Column(3)) &lt;&gt;&nbsp;&quot;&quot; Then 
&nbsp; &nbsp; Me!cboVariety.ColumnWidths = &quot;0;0;0;1&quot; 
ElseIf Trim(Me!cboVariety.Column(2)) &lt;&gt;&nbsp;&quot;&quot; Then 
&nbsp; &nbsp; Me!cboVariety.ColumnWidths = &quot;0;0;1;0&quot; 
Else 
&nbsp; &nbsp; Me!cboVariety.ColumnWidths = &quot;0;1;0;0&quot; 
End If 
 
&nbsp; 
 
&nbsp; 
 
End Sub
</div>
</div>

I have a sub report in a report. I want to change the column widths property based on blank vs populated in columns from right to left

This code does not seem to update the report, how can I make this work

Private Sub Detail_Paint()
If Trim(Me!cboVariety.Column(3)) <> "" Then
 Me!cboVariety.ColumnWidths = "0;0;0;1"
ElseIf Trim(Me!cboVariety.Column(2)) <> "" Then
 Me!cboVariety.ColumnWidths = "0;0;1;0"
Else
 Me!cboVariety.ColumnWidths = "0;1;0;0"
End If

 

 

End Sub

Microsoft Access 2010 - set dynamic columnwidth based on data

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.