[Resolvido]Salvando registro antes de usar botão Salvar

Olá comunidade do Forum.

Procurei informação sobre e não encontrei.

O formulário está salvando os registros antes de clicar o Botão Salvar.

Coloquei anexo o BD.

Por favor, alguém pode me ajudar.

Obrigado.

Boa tarde Alexandre.


1.Foi acrescido o campo Salvar(sim/não) na tbl_Certificado.

2.No frm_Certificado(renomeie):

2.1.acrescentei o campo salvar e ocultei.

2.2 No campo ValoraPagar  =[Combinação100]*[QuantREcolida] e bloqueado

2.3.No botão salvar o código.

Private Sub BotaoSalvar_Click()

If IsNull(Me.CodCertificado.Value) Or Me.CodCertificado.Value = "" Then
  MsgBox "Nenhum Certificado novo ou alterado para Salvar...", vbExclamation, Me.Caption
End If

If Not IsNull(Me.CodCertificado) And Me.Dirty Then
  If MsgBox("O Certificado foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
       MsgBox "Certificado cadastrado com sucesso.", vbInformation, Me.Caption
      DoCmd.RunCommand acCmdSaveRecord
      DoCmd.RunCommand acCmdRefresh
     
   Else
        MsgBox "Registro não salvo.", vbInformation, Me.Caption
       DoCmd.RunCommand acCmdUndo
       DoCmd.CancelEvent

  End If
End If
End Sub

Veja se era isso e retorne.

Olá Cafpr!
Obrigado por responder.

Não é este o meu problema.

Eu queria digitar as informações e só quando eu clicar no botão Salvar que gravaria na tabela.

Retire os botões de navegação

e acrescente este código no clidck do botãoSair

Dim X As Integer
If Me.Dirty Then
X = MsgBox("Houve adição ou alterações de registro, deseja salvar ?", vbYesNo + vbQuestion, "Atenção")
If X = vbNo Then
Me.Undo
End If
End If
DoCmd.Close

Olá cafpr!

Desculpe pela demora em responder, tive um contra tempo.

É isto mesmo que eu estava necessitando.

Muito obrigado.

Que bom que solucionamos seu problema. Até mais.