definir propriedades de varios controles no fornmulario ao mesmo tempo

Ola amigo

Precisava de uma ajuda para definir a propriedade visivel em 20 controles (sim/não) num formulario com um simples botão de comando.
Do tipo: Me.C1.Visible = True (mas para vários ao mesmo tempo... do tipo:

Me.C1;C2;C3;C4;C5;C6;C7;C8;C9;C10.Visible = True

Existe essa possibilidade?
Talvez antes definir um range com esses campos...
Agradecia ajuda urgente!
Abraço a todos
Obrigado

Opa Tuga, eu faria da seguinte forma

Código:

   
    Dim Controle As Access.Controls
    Set Controle = Me.Controls
   
    For i = 1 To 20
        Controle.Item("C" & i).Visible = True
    Next


Não era bem isso que queria...
vou explicar melhor...
tenho 20 controles de uma tabela no formulário que são do tipo sim/não... e eu quero um procedimento que me mostre no formulário apenas os que tem o valor sim e esconda os que tem "nao"
Assim, os controles chamam-se de "C1" a "C10" e de "F1" a "F10"
Consegue me ajudar?
Obrigado pela atenção
abraço

bom, se for para deixar visivel ou não, basta fazer uma alteração no código


For i = 1 To 10
if Controle.Item("C" & i).Value = True
Controle.Item("C" & i).Visible= True
Else
Controle.Item("C" & i).Visible= False
end if
Next

Bom... ficaria assim então...

Private Sub Comando73_Click()
Dim Controle As Access.Controls
Set Controle = Me.Controls
For i = 1 To 10
If Controle.Item("C" & i).Value = True Then
Controle.Item("C" & i).Visible = True
Else
Controle.Item("C" & i).Visible = False
End If
Next
End Sub

Só que dá erro " Object doesn't support this property or Method"

O que fazer?

Olá,
Um pitaco:

If Controle.Item("C" & i).Value = -1 Then
...

Lol... isso já eu tinha visto... lol... e já tinha emendado... esta assim...

Private Sub Comando73_Click()
Dim Controle As Access.Controls
Set Controle = Me.Controls
For i = 1 To 10
If Controle.Item("C" & i).Value = -1 Then
Controle.Item("C" & i).Visible = True
Else
Controle.Item("C" & i).Visible = False
End If
Next
End Sub


E dá esse erro na mesma!

Pressupostamente é nesta linha que dá erro....

Controle.Item("C" & i).Visible = False

Pois aparece listada a amarelo quando faço o Debug

Abc

Estranho.
Faça o seguinte, para testar se funciona:
Substitua seu código por este:

If Me.C1.Value = -1 Then
Me.C1.Visible = True
Else
Me.C1.Visible = False
End If

Qual a mensagem de erro?

Se está dando erro na linha pode ser que o controle esteja com foco.

Antes de iniciar o For, mande o foco por exemplo para algum botão.

Olá,
Como anda este tópico?