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] Percorrer colunas de um subformulário

    Compartilhe
    avatar
    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
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    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?
    avatar
    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
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    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) ?
    avatar
    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: Qui 24 Ago 2017, 02:01