MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Ajuda com implementação de códigos

    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  OLDRIVG em 4/12/2018, 10: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 100%

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

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

    Mensagem  thiagomcosta em 4/12/2018, 11: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 100%

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

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

    Mensagem  OLDRIVG em 4/12/2018, 12: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: 18/6/2019, 16:29