[Resolvido] Ajustar colunas de todos os Sub-Formulários

Viva a todos,

Estou a tentar ajustar todas as colunas de todos os Sub-Forms existentes num Formulário.

O código que estou a usar é este, mas sem sucesso:

Código:

Dim ctl As control
For Each ctl In Me.Controls
    If ctl.ControlType = acSubform Then
            If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
              'Largura -2 é auto ajustável
              ctl.ColumnWidth = -2
              'Ou definindo a largura em centimetros.  exemplo 3 cm
              'ctl.columnWidth = 3 * 567
            End If
    End If
Next ctl

Podem me ajudar a redefinir o código?

Cumprimentos

Bruno Gordino

boa tarde

'crie a seguinte função

Código:

Private Sub controlSub(subForm As subForm)
Dim ctl As control

For Each ctl In subForm.Controls
     If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
    'Largura -2 é auto ajustável

    ctl.ColumnWidth = -2
    'Ou definindo a largura em centimetros.  exemplo 3 cm
    'ctl.columnWidth = 3 * 567
    End If
Next ctl

End Sub

'para usar

Código:

Private Sub Comando50_Click()
'teste
Dim ctl As control
Dim ctlSub As control
For Each ctl In Me.Controls
    
    If ctl.ControlType = acSubform Then
        controlSub ctl
    End If
Next ctl

End Sub

Viva Ronaldo Junior,
Parece que foi a 1ª vez que nos encontramos aqui no 'Forum'.
Já experimentei e funcionou.
Muito obrigado pela atenção que me dispensou, obrigado mesmo.
Cumprimentos

Bruno Gordino

Sim, acho q é nossa primeira vez. rs
que bom que funcionou.
O fórum agradece o retorno.