Habilitar botão somente se todos os campos estiverem Preenchidos.

Salve galera,

alguem sabe me dizer como faço para deixar um botão do Form habilitado somente quando todos os campos forem preenchidos?

Ex:

Tenho um Form de cadastro, desejo que o botão Incluir fique habilitado somente quando os campos do Form estiverem preenchidos.

Boa tarde..

Pode ser algo assim...

No último campo do teu formulário, colocar o seguinte código. evento em sujo

me.seubotão.enabled=true


Se ele estiver invisivel

me.seubotão.visible=true


Teste.....

Abraços.

Silvio não funfou...

Postei o BD para que vc veja....

abç

Olá.....onde você postou ??

segue ...

Leo seguinte....

No evento ao carregar do seu formulário:
Me.Command1.Visible = False

Não sei, qual será o seu último campo a ser preenchido, então coloquei ele na data de fechamento, evento após atualizar.
Me.Command1.Visible = true

funcionou certinho.

Teste e retorne.

Silvio, voce pode postar o que voce fez para que eu possa ver.Sou novo em VBA para acess.

vlw

Segue o mesmo....

Silvio

e se eu quiser esconder o botao novamente apos o cadastro para que um novo cadastro seja feito, como eu faria?

Todas as vezes que esse formulário é aberto, ele começa escondido. Mas caso queria:

a- criar um novo botão chamado....novo
b- evento ao clicar do botão:

DoCmd.GoToRecord , , acNewRec


Bem simples....

Qualquer coisa, ainda estou por aqui.

Abraços !

bom dia Silvio , rapaz incrivel ,, o meu access não quer desabilitar o botão ele gera o erro 0- na verdade esse erro não nãop descreve o problema. Ja tentei fazer pelo if pelo distry e nada

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.

Interessante essas tag

Leandro,

Referente ao sua dúvida:

alguem sabe me dizer como faço para deixar um botão do Form habilitado somente quando todos os campos forem preenchidos?

É comum em sistemas comerciais que os botões de comando de determinado formulário fiquem habilitados, indiferente do preenchimento dos campos.

Exemplo:



Enquanto os campos obrigatórios não forem preenchidos corretamente, o sistema não permite continuar a gravação dos dados.

Segue nova versão do exemplo.

Espero ter ajudado

Boa sorte.

Crysostomo

Geralmente, os sistemas possuem suas telas de cadastro, uma barra de ferramentas(toolbar) padrão de botões de comando.
- Novo: novo registro
- Gravar: gravar registro
- Excluir: excluir registro
- Cancelar: cancelar a edição de dados do formulário
- Pesquisar: abrir formulário de pesquisa
- Alterar: habilitar os campos para edição, quando estes estiverem desabilitados
- Imprimir: imprimir algum relatório referente ao cadastro

Essa barra de ferramentas pode ser manipulada com uma única função genérica, economizando tempo e linhas de código.

Boa sorte