[Resolvido]bloquear botão através de código vba

boa tarde eu estou desenvolvendo um sistema com vários formulários e estou usando para bloquear o botão o comando me.nomedobotao.enabled=false porém gostaria de saber se tem como fazer um módulo ou algo para todo formulário eu ñ precisar fazer todos processos

obrigado e um bom fim de semana a todos

Se entendi direito, vc usa esse codigo em cada botao certo? Crie uma funcao no modulo do formulario e depois a chame em cada botao de acordo com a necessidade.

declare function Habilita()
me.botao1.enabled=true
me.botao2.enabled=false
end function

declare function desabilita()
me.botao1.enabled=false
me.botao2.enabled=true
end function

boa tarde Tauron ,muito obrigado pela ajuda criando esse código no módulo eu posso chamar ele em todos os formulários se necessário (call habilitar )

Marcelo


Se para fazer isso em todos os formulários, não simultaneamente, o ideal é

que os botões tenham o mesmo nome ( se for o caso) em todos os formulários.

Assim, poderemos utilizar  Screen.ActiveForm para ativar/desabilitar os botões do formulário ativo no momento:


Declare function ativaDestiva botoes()

If  Screen.ActiveForm!botao1.enabled=false  then 'Verifica se está ativo, então desativa.
     Screen.ActiveForm!botao1.enabled=true
     Screen.ActiveForm.botao2.enabled=true

else
     Screen.ActiveForm!botao1.enabled=false
     Screen.ActiveForm.botao2.enabled=false

end if


end function

Como pode ver isso economiza trabalho braçal

[ }'s

obrigado noobezinho e tauron pela ajuda irei testa e retorno
obrigado e um abraço

boa noite noobezinho e tauron eu tentei seguir os exemplos de vocês, mais como sou iniciante não consegui adaptar o código veja o código do noobezinho eu ate tinha feito alguns formulários como estes com o código repetindo em todos os botões e também em todos os formulários mais se alguém puder me ajudar nesta questão veja o módulo (novobotao)o problema e q se eu continuar assim vai ficar muito extenso porém resolvi pedir ajuda, exemplo a cada formulário ao executar eu apenas chamar o código para bloquear os botões d também ao clicar no novo assim por adiante.

muito obrigado pela ajuda

Marcelo

Pode disponibilizar parte do teu aplicativo para a gente fazer um modelo?

boa noite veja exemplos

Marcelo

Eu só fiz no formulário frm_Clientes, deixei o resto para que

alem de aprender, configure conforme o desejado.

Lembre-se que o que vc definir para um formulário, se outros tiverem os

mesmos nomes de controles também sofrerão a definição.

Para testar, abra o frm_Clientes e clique na caixa de seleção ativar/desativar e observe

o botão novo.

[ ]'s

bom dia muito obrigado noobezinho é isso mesmo que desejava foi resolvido


grato bom domingo pra todos.

Que bom que pude ajudar

Bom FDS pra vc tbm!

Boa sorte !!