[Resolvido]como usar o botão salvar e abrir novo campo

Bom dia! Tenho um formulario com um botao salvar. Gostaria que os dados só fossem salvos quando eu clicar no botão e que após clica-lo o formulario fosse direcionado para inserir novo. Como posso fazer isso?  

Olá iltomoraes,

Na família DoCmd há várias maneiras.

(1) Private Sub cmdAdic_Click()
On Error Resume Next
DoCmd.GoToRecord , , acNewRec
Me.PrimeiroCampo.SetFocus
End Sub

(2)Private Sub cmdAdic_Click()
On Error Resume Next
DoCmd.RunCommand acCmdRecordsGoToNew
Me.PrimeiroCampo.SetFocus
End Sub

Lembrando que após inserir um novo registro os dados são salvos automaticamente. Mas, se preferir faça assim:

(3) Private Sub cmdAdic_Click()
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.PrimeiroCampo.SetFocus
End Sub

Ou:

(4) Private Sub cmdAdic_Click()
On Error Resume Next
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec
Me.PrimeiroCampo.SetFocus
End Sub

O botao salver que tenho é uma macro. Eu devo transforma-lo em um procedimento?

não entendi Me.PrimeiroCampo - qual é esse primeiro campo.

Olá ilto,

Recomenda-se sempre usar código ao invés de macro. O "primeirocampo" é só uma indicação. Se seu primeiro campo no formulário for NOME, logo o primeiro campo será NOME. Substitua "primeirocampo" por NOME:

Me.NOME.SetFocus

good guy.
Obrigado pela ajuda. Deu tudo certo. ok

O fórum todo também agradece.

Olá Ilto,

Curta também minha página no Facebook, comentando e compartilhando. Obrigado !!!

https://www.facebook.com/EduardoMachado


Meu site: www.goodguyaccessvba.com.br

Se quiser aprender mais, adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)