[Resolvido]Salvar e Limpar campos quando clicar no botão Salvar

Amigos,

Eu encontrei esse código abaixo aqui nesse fórum, mas gostaria de acrescentar nele mais um código e não estou conseguindo:
O código abaixo serve para salvar o registro quando eu clicar em um botão no formulário de lançamentos. Só que eu queria fazer com que depois que clicasse no botão ele limpasse todos os campos para que eu possa fazer novo lançamento.

Poderiam me auxiliar nisso?


Private Sub Salvar_Click()
Dim msg

DoCmd.RunCommand acCmdSaveRecord

msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")

End Sub


Obrigado.
Sander

Olá!
Abaixo de:

DoCmd.RunCommand acCmdSaveRecord

ponha esse:

DoCmd.RunCommand acCmdRecordsGoToNew
ficando assim:

Private Sub Salvar_Click()
Dim msg

DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRecordsGoToNew

msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")

End Sub

Prezado Marcelo David,

Do jeito que você sugeriu funcionou beleza. Obrigado pela dica. Mais um aprendizado.

Abraço.

Sander

Grato meu amigo pelo retorno! Só não esqueça de por o [Resolvido] das próximas
vezes.