VBA aansturen Controls werkt niet in gesplitst formulier

[Matjes]

Bij subformulieren gebruik ik de volgende VBA code om de kolommen van het gegevensblad passend te maken op de inhoud:

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 Sub

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?

 

[OctaFish]

Doe er eens een voorbeeldje bij, zou ik zeggen.

 

[Matjes]

Bij deze een voorbeeldje. Bekijk bijlage Gesplitst_Form.zip

Ook het toevoegen van een nieuw record met cmdNieuw werkt niet bij een gesplitst formulier (althans in het sub gedeelte).

 

[Matjes]

Hi OctaFish, heb je nog naar het voorbeeldje gekeken en wellicht een oplossing paraat?

 

[OctaFish]

Nog niet. Maar ik werk ook nooit met gesplitste formulieren dus ik moet er echt voor gaan zitten.