MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    definir propriedades de varios controles no fornmulario ao mesmo tempo

    avatar
    tuga38
    Novato
    Novato


    Respeito às regras : 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 Empty definir propriedades de varios controles no fornmulario ao mesmo tempo

    Mensagem  tuga38 29/9/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
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LiveBrain 29/9/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"
    avatar
    tuga38
    Novato
    Novato


    Respeito às regras : 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 Empty Ola

    Mensagem  tuga38 29/9/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
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LiveBrain 29/9/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"
    avatar
    tuga38
    Novato
    Novato


    Respeito às regras : 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 Empty Resposta

    Mensagem  tuga38 29/9/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
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rdrck 29/9/2014, 17:32

    Olá,
    Um pitaco:

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


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    avatar
    tuga38
    Novato
    Novato


    Respeito às regras : 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 Empty Ola

    Mensagem  tuga38 29/9/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!
    avatar
    tuga38
    Novato
    Novato


    Respeito às regras : 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 Empty ola

    Mensagem  tuga38 29/9/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
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rdrck 30/9/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 2010 - Windows 10.
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LiveBrain 30/9/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
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rdrck 30/10/2014, 13:06

    Olá,
    Como anda este tópico?


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:42