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


2 participantes

    Ajuda com implementação de códigos

    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    Ajuda com implementação de códigos Empty Ajuda com implementação de códigos

    Mensagem  OLDRIVG 4/12/2018, 05:50

    Pfezados do Forum, bom dia.

    Estou um botão de comando "Bt_Consultar", estou usando a função abaixo para bloquear caixa txt, botões, combinações e grupos de opções em um formulário:

    Function BloqueioFrm(argFrm As Form)
         
       Dim ctl As Control
       
       For Each ctl In argFrm.Controls
           With ctl
               Select Case .ControlType
                                   
                   'Bloquear todas as caixas de texto
                   Case acTextBox
                           .Locked = True
                 
                   'Bloquear todas as caixas de combinação
                   Case acComboBox
                           .Locked = True
                         
                   'Bloquear todas as caixas de seleção
                   Case acCheckBox
                           .Locked = True
                       
                   'Deixar inativo todos os botões de comando
                   Case acCommandButton = True
                 
                   'Bloquear todos os botões de opção
                   Case acOptionButton
                           .Locked = True
                                   
                   'Bloquear todos os grupos de opção
                   Case acOptionGroup
                           .Locked = True
                       
               End Select
           End With
       Next ctl
                 
    End Function


    (Está função eu peguei na Web e não me recordo mais do criador)

    Ocorre que função bloqueia genericamente. Estou precisando de adaptá-la para bloquear objetos determinados (Bt_xxx, Txt_xxx, etc).

    Alguém saberia me informar como fazer este tipo de referencia na função citada ou alguma forma de realizar bloqueio deste tipo ao abrir o formulario? Desde já agradeço.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    Ajuda com implementação de códigos Empty Re: Ajuda com implementação de códigos

    Mensagem  thiagomcosta 4/12/2018, 06:29

    Utilize o nome do controle seguido de .locked=true

    Exemplo
    Código:
    CaixadeTexto1.locked = true
    BotãoDeOpção2.locked = false

    Isso fora do foreach(), pois citando os controles pelo nome não é necessário verificar em cada um deles.
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    Ajuda com implementação de códigos Empty Re: Ajuda com implementação de códigos

    Mensagem  OLDRIVG 4/12/2018, 07:33

    Bom dia, Thiagomcosta, agradeço-lhe pela a atenção.

    Não funcionou. Retorna erro de método ou membro não encontrado.

    Existe alguma maneira de referenciar os objetos na função que postei? Agradecido.

    Conteúdo patrocinado


    Ajuda com implementação de códigos Empty Re: Ajuda com implementação de códigos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:27