MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 188
    Registrado : 24/02/2013

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

    Mensagem  brunogor em 6/11/2018, 16:33

    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
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em 6/11/2018, 17:27

    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

    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 188
    Registrado : 24/02/2013

    Ajustar colunas de todos os Sub-Formulários

    Mensagem  brunogor em 7/11/2018, 12:11

    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
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em 7/11/2018, 13:14

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

      Data/hora atual: 16/11/2018, 04:01