Boa tarde Alexandre!
"DEUS SEJA LOUVADO"
Fiz as alterações como você sugeriu, funcionou perfeitamente no procedimento ao clicar do btnAg700 (só fiz neste por enquanto), adaptei o código para um procedimento público (genérico) para utilizar em todos os botões (btnAg...). No entanto ao chamar o procedimento ocorre um erro 13 tipos incompatíveis. Poderia por gentileza dar uma olhada e ver o que fiz errado? pois no botão btnAg700 os tipos são os mesmos e não ocorre este erro.
Segue o arquivo.
Sobre a função que você sugeriu para habilitar os botões seria assim? Porque tentei desta forma e não funcionou, e fiquei na dúvida pelo fato da função chamar a propriedade Me.btn..., esta propriedade não seria exclusiva do formulário aberto?
Public Function HabilitaBotoes(a, b, c, d, e, f, g, h, i, j, k, l )
Me.btnPrimeiro.Enabled = a
Me.btnAnterior.Enabled = b
Me.btnProximo.Enabled = c
Me.btnUltimo.Enabled = d
Me.btnLocalizar.Enabled = e
Me.btnNovo.Enabled = f
Me.btnSalvar.Enabled = g
Me.btnCancelar.Enabled = h
Me.btnEditar.Enabled = i
Me.btnFechar.Enabled = j
Me.btnEncerrar.Enabled = k
Me.btnExcluir.Enabled = l
End Function
Tentei também sem sucesso.
Public Function HabilitaBotoes(a, b, c, d, e, f, g, h, i, j, k, l As Boolean).
Public Sub HabilitaBotoes(a, b, c, d, e, f, g, h, i, j, k, l )
Sub HabilitaBotoes(a, b, c, d, e, f, g, h, i, j, k, l )
Grato.
- Anexos
- SteticSysMaximo.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (378 Kb) Baixado 2 vez(es)