[Resolvido] Percorrer colunas de um subformulário

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.

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?

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?

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

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
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!