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?
2 participantes
[Resolvido]como usar o botão salvar e abrir novo campo
iltomoraes- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 17/12/2013
good guy- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010
- Mensagem nº2
como usar o botão salvar e abrir novo campo
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
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
iltomoraes- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 17/12/2013
O botao salver que tenho é uma macro. Eu devo transforma-lo em um procedimento?
iltomoraes- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 17/12/2013
não entendi Me.PrimeiroCampo - qual é esse primeiro campo.
good guy- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010
- Mensagem nº5
como usar o botão salvar e abrir novo 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
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
iltomoraes- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 17/12/2013
good guy.
Obrigado pela ajuda. Deu tudo certo. ok
Obrigado pela ajuda. Deu tudo certo. ok
good guy- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010
- Mensagem nº7
como usar o botão salvar e abrir novo campo
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)
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)
» [Resolvido]Adicionar informação de um campo específico (salvar) antes de salvar todos os dados do formulário
» [Resolvido]Salvar data em campo caso o campo esteja vazio
» [Resolvido]Atualizar, salvar e abrir formulário
» [Resolvido]Salvar campo em tabelas
» [Resolvido]salvar texto em campo relacionado
» [Resolvido]Salvar data em campo caso o campo esteja vazio
» [Resolvido]Atualizar, salvar e abrir formulário
» [Resolvido]Salvar campo em tabelas
» [Resolvido]salvar texto em campo relacionado
|
|