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

    definir propriedades de varios controles no fornmulario ao mesmo tempo

    Compartilhe

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  tuga38 em Seg 29 Set 2014, 13:06

    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

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  LiveBrain em Seg 29 Set 2014, 15:38

    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


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    Ola

    Mensagem  tuga38 em Seg 29 Set 2014, 16:24

    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

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  LiveBrain em Seg 29 Set 2014, 16:44

    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


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    Resposta

    Mensagem  tuga38 em Seg 29 Set 2014, 17:22

    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?

    rdrck
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 983
    Registrado : 11/03/2014

    Re: definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  rdrck em Seg 29 Set 2014, 17:32

    Olá,
    Um pitaco:

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


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    Ola

    Mensagem  tuga38 em Seg 29 Set 2014, 17:42

    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!

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    ola

    Mensagem  tuga38 em Seg 29 Set 2014, 17:45

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

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

    Pois aparece listada a amarelo quando faço o Debug

    Abc

    rdrck
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 983
    Registrado : 11/03/2014

    Re: definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  rdrck em Ter 30 Set 2014, 12:39

    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


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  LiveBrain em Ter 30 Set 2014, 14:38

    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.


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    rdrck
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 983
    Registrado : 11/03/2014

    Re: definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  rdrck em Qui 30 Out 2014, 13:06

    Olá,
    Como anda este tópico?


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

      Data/hora atual: Sex 09 Dez 2016, 13:30