[resolvido] botão Gravar-Form_e_SubForm

Moderador: Avelino Sampaio

Marco Sousa
Mensagens: 20
Registrado em: 15 Dez 2016, 14:59

[resolvido] botão Gravar-Form_e_SubForm

Mensagempor Marco Sousa » 20 Mar 2017, 20:26

boas
Num formSimples, tenho um subform-Continuo e um botão para gravar, e utilizo o seguinte Código :

Código: Selecionar todos

Private Sub Gravar_frmCadNotaEcomenda_Click()
If IsNull(Me.DataNE) Or Me.DataNE.Value = "" Then
   MsgBox "O Campo ""Data Encomenda"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
   Me.DataNE.SetFocus
Else
   MsgBox "Deseja Guardar a Guia de Encomenda?", vbQuestion + vbYesNo, "Atenção"
   DoCmd.RunCommand acCmdSaveRecord
   Me.frmCadDNotaEncomenda.SetFocus
   DoCmd.GoToRecord , , acNewRec
   Me.cbo_PesquisaNE.SetFocus
End If
End Sub

No entanto ao gravar devia/ pretendia que, tanto no form assim como no sunform fossem para um novo registo. Obrigado
Última edição por Marco Sousa em 21 Mar 2017, 11:06, editado 2 vezes no total.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Marco Sousa
Mensagens: 20
Registrado em: 15 Dez 2016, 14:59

Re: botão Gravar-Form_e_SubForm

Mensagempor Marco Sousa » 21 Mar 2017, 11:05

boas
resolvido, e resolvi assim :

Código: Selecionar todos

Private Sub Gravar_frmCadNotaEcomenda_Click()
If IsNull(Me.DataNE) Or Me.DataNE.Value = "" Then
   MsgBox "O Campo ""Data Encomenda"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
   Me.DataNE.SetFocus
Else
   MsgBox "Deseja Guardar a Guia de Encomenda ?", vbQuestion + vbYesNo, "Atenção"
   DoCmd.GoToRecord , , acNewRec
   Me.frmCadDNotaEncomenda.SetFocus
   Me.cbo_PesquisaNE.SetFocus
End If
End Sub

Eliminei a linha :  

Código: Selecionar todos

DoCmd.RunCommand acCmdSaveRecord

Troquei a ordem das linhas :

Código: Selecionar todos

Me.frmCadDNotaEncomenda.SetFocus | DoCmd.GoToRecord , , acNewRec

Abraço a todos...


Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 7 visitantes