[Resolvido]Problema: Botões (Salvar e Excluir).

Companheiros: Estou com problemas: No botão Salvar, quando clico, recebo a mensagem: (“Funcionário Cadastrado Com Sucesso”) mesmo que o registro esteja em branco. Tem como me retornar uma mensagem por exemplo (“Não há registros para Cadastrar”). E se houver um novo registro ai sim me retornasse a mensagem: (“Funcionário Cadastrado Com Sucesso”). Se for um registro novo mensagem: (“Funcionário Cadastrado Com Sucesso”).
Se for um formulário em branco: (“Não há registros para Cadastrar”)
O mesmo está acontecendo com o botão excluir, não tem nada para excluir, porém se clicar ele da a mensagem que foi excluído com sucesso, alguém pode dar uma força, e me ajudar?
Antecipadamente agradeço.
Segue anexado o aplicativo.

Veja se é isso:

Lupércio

No teu aplicativo no módulo do formulário tem dois botões para salvar, um com o nome
bt_salvar e outro com o nome Comando33.

Usarei o Command33
============================
Private Sub Comando33_Click()
If IsNull(Me.CódigoDoFuncionário) Then
MsgBox "Não existe registro a ser salvo.", vbCritical, "Aviso"
Exit Sub
End If
DoCmd.Save
MsgBox " Funcionário cadastrado com sucesso!", vbInformation + vbOKOnly, " PCH Marcol - Cadastros de Funcionários!"
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, "CadastroFuncionários"
DoCmd.OpenForm "CadastroFuncionários"

End Sub
==============
Não á necessidade de mostrar mensagem para quando quer cadastrar e quando é um registro novo mesmo porque cadastrar que dizer adicionar novo registro ao cadastro.

Siga esse mesmo exemplo para o outro botão.
Não esqueça de mudar o nome do botão no código

abraços

Eita "nóis" né Marcelo?

Tive que esperar pra postar porque você estava postando

Abraços

FIZ ESSE COMANDO PARA ATUALIZAR O FORMULÁRIO,QUANDO INSERIDO UM NOVO CADASTRO...
E QUANTO AO COMANDO EXCLUIR QUAL SERIA A ROTINA PODE ME ENSINAR?

Realmente não percebi isso também, valeu Norberto

If IsNull(Me.CódigoDoFuncionário) Then
MsgBox "Não existe registro a ser salvo.", vbCritical, "Aviso"
Exit Sub
End If
DoCmd.Save
MsgBox " Funcionário cadastrado com sucesso!", vbInformation + vbOKOnly, " PCH Marcol - Cadastros de Funcionários!"
DoCmd.GoToRecord , , acNewRec

End Sub

Dessa maneira ele irá para novo registro


Para o outro botão excluir basta você copiar e colar a parte em marron
Porém mude o nome do botão.
Um alerta:
Só copiar e colar, não vai aprender nunca a programar em Access
Leia o código e interprete-o , se não conhece a função, clique em cima da palavra e aperte F1.
abraços

É Belem, essas postagens ao mesmo tempo é bem recorrente...
Amigo Lupércio, o Belem está lhe dando o anzou, eu o peixe...
Use o peixe para para ver como ele foi fisgado com o anzou que o Belem lhe deu...

Fiz algumas alterações:
Retirei o abrir e fechar, pois ao ir para outro registro, de qualquer forma o registro já é atualizado...
Pus um if no excluir para ver se há registros. O mesmo fiz no salvar, porém acrescentei outro para ver se ouve alteração no registro e só assim disparar a MsgBox...

Usei a mesma lógica do Belem...

certo gostei e deu certo,,.
estou usando essa rotina pra excluir mas não ta dando certo,,,
veja,,,

Private Sub Excluir_Click()
If IsNull(Me.CódigoDoFuncionário) Then
MsgBox "Não existe registro a ser excluido.", vbCritical, "Aviso"
Exit Sub
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
DoCmd.Save
MsgBox " Cadastro excluido com sucesso!", vbInformation + vbOKOnly, " PCH Marcol - Cadastros de Funcionários!"
DoCmd.GoToRecord , , acNewRec

Amigos vocês são feras, deu tudo certo, testei aqui e funcionou perfeitamente, quero agradeder ao Marcelo David e ao Balem...
um abração a vocês.

Valeu pelo retorno Lupércio.

Quando deletar um registro, vai aparecer uma mensagem do Access.
Veja sobre: Docmd.SetWarning.

Boa sorte!!