Oi companheiros tenho aqui mais uma duvida e preciso de tirar com vocês. Num form com subform ao guardar ( botão encontra-se no form ), ao guardar apenas envia para novo registo no subform mantendo o registo atual no form, utilizo o seguinte código.
Obrigado
- Código:
Private Sub Salvar_Click()
If MsgBox("Guardar ?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.IDtabCadClientes.SetFocus
End If
End Sub
Obrigado