Alexandre Fim 12/8/2020, 15:35
Bom dia Galera,
Passando aqui só pra deixar minha sugestão.
Você pode utilizar a propriedade "Marca" (Tag) dos botões de comando, conforme abaixo:
Exemplo de utilização no código:
- Código:
Private Sub cmdNovo_Click()
Call fncDefineComandos(Me, cmdNovo.Tag)
End Sub
Função pública que define o estado do comando:
- Código:
Public Function fncDefineComandos(nForm As Form, iCmd As Integer)
With nForm
Select Case (iCmd)
Case 1 'Novo
.cmdNovo.Enabled = False
.cmdGravar.Enabled = True
.cmdCancelar.Enabled = True
.cmdExcluir.Enabled = False
.cmdPesquisar.Enabled = False
.cmdSair.Enabled = True
Case 2, 3, 4 'Novo / Cancelar / Sair
.cmdNovo.Enabled = True
.cmdGravar.Enabled = True
.cmdCancelar.Enabled = True
.cmdExcluir.Enabled = True
.cmdPesquisar.Enabled = True
.cmdSair.Enabled = True
Case 4 'Excluir
Case 5 'Cancelar
Case 6 'Sair
End Select
End With
End Function
RESUMINDO:
Ao clicar no botão, executa a função fncDefineComandos, passando como parâmetro o Formulário e a propriedade ".tag" do botão acionado.
Desta forma, você economiza código...rsss
Espero ter ajudado
Boa sorte a todos.
- Anexos
- comandos.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (44 Kb) Baixado 19 vez(es)