Bij subformulieren gebruik ik de volgende VBA code om de kolommen van het gegevensblad passend te maken op de inhoud:
Bij een gesplitst formulier werkt dit niet. Waarschijnlijk omdat dit dan verwijst naar de controls op het normale formulier. Is er andere mogelijkheid om de Controls op het sub gedeelte te besturen?
Code:
Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me.Controls
On Error Resume Next
ctl.ColumnWidth = -2
Next ctl
Me.txtStandaardID.ColumnWidth = 0 'verbergen
End SubBij een gesplitst formulier werkt dit niet. Waarschijnlijk omdat dit dan verwijst naar de controls op het normale formulier. Is er andere mogelijkheid om de Controls op het sub gedeelte te besturen?
