MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Percorrer colunas de um subformulário

    Compartilhe

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    [Resolvido] Percorrer colunas de um subformulário

    Mensagem  Gabriel Brunichaki em Ter 01 Mar 2016, 17:05

    Boa tarde! Preciso setar a propriedade ColumnHidden de todas as colunas de um subformulário para False ao carregar meu formulário principal. Tenho 54 colunas no sub e para não gastar 54 linhas codificando a mesma propriedade, tentei:

    Código:

    Dim ctl As Control

    For Each ctl In Forms![FRM_CUSTOMERS]![BOX_SUBFORM].Form.Controls
     ctl.Properties("ColumnHidden") = False
    Next ctl

    Porém, retorna:

    Erro em tempo de execução '2455':

    Você inseriu uma expressão que contém uma referência inválida à propriedade ColumnHidden.


    Utilizo Windows 7, Access 2013 64bits, arquivo .mdb
    Alguma solução?

    OBS: Não estou com acesso ao banco no momento.


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    philipp.moreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 05/02/2016

    Re: [Resolvido] Percorrer colunas de um subformulário

    Mensagem  philipp.moreira em Ter 01 Mar 2016, 17:15

    Ao utilizar controls, vc recupera a lista de todos os tipos de controles no form, seja, label, textbox, combobox.

    E se vc tentar fazer um if dentro do laço for each para verificar o tipo e quando necessario ocultar o controle?

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido] Percorrer colunas de um subformulário

    Mensagem  Gabriel Brunichaki em Ter 01 Mar 2016, 17:27

    E aí, Philipp!

    Pensei nisso, mas como referencio as colunas? Tentei assim:

    Código:

    Dim ctl As Control

    For Each ctl In Forms![FRM_CUSTOMERS]![BOX_SUBFORM].Form.Controls
     If ctl.ControlType = acTextBox Then
      ctl.Properties("ColumnHidden") = False
     End If
    Next ctl

    Porém, nada muda... Tem algo mais específico que acTextBox?


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    philipp.moreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 05/02/2016

    Re: [Resolvido] Percorrer colunas de um subformulário

    Mensagem  philipp.moreira em Ter 01 Mar 2016, 17:51

    tem como postar seu BD aqui pelo fórum ou eml algum site de compartilhamento (google drive, dropbox) ?

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido] Percorrer colunas de um subformulário

    Mensagem  Gabriel Brunichaki em Ter 01 Mar 2016, 18:26

    Estou sem acesso a ele, mas a princípio resolvi o problema alterando algumas linhas mais acima e adicionando o ControlType = acTextBox.
    Só depois que tu falou pra especificar que me dei conta de que na verdade as colunas são campos de texto em formato folha de dados Razz
    Sem a especificação estava pegando os rótulos também...

    Enfim, acho que agora consigo me virar. Valeu a ajuda e o tempo disponibilizado!
    Abraço!


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

      Data/hora atual: Qua 07 Dez 2016, 18:18