[Resolvido]Salvar apenas ao clicar no botão

Oi, gente!
Eu sei q esse é um problema comum, vi até alguns tópicos parecidos, mas não to conseguindo resolver...acho q por falta de conhecimento mesmo.

Enfim, gostaria q os dados fossem salvos apenas ao clicar em "Salvar"...mas ele tá salvando sempre q fecho o formulário tbm e eu não queria que isso acontecesse. Criei um código aqui, mas tá dando errado. Vou anexar aqui

Obrigada!

Código:

Option Compare Database
'Ao clicar no botão Voltar, o código criará um campo em branco que será excluído pela sub Form_Close()
Private Sub Comando45_Click()
Dim BancoDados As DAO.Database
Dim TabCriar As DAO.Recordset

    Set BancoDados = CurrentDb()
    Set TabCriar = BancoDados.OpenRecordset("TabArmador", dbOpenDynaset)

        TabCriar.AddNew
        
            TabCriar("Armador") = Null


        TabCriar.Update

DoCmd.Close 'ao fechar, a Sub Form_Close() será chamado

End Sub


'Sub para evitar que o Access salve automaticamente um registro ao fechar formulário
Private Sub Form_Close()

DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
DoCmd.SetWarnings False '  Desativa mensagem do access avisando que esta prestes a excluir um registro
DoCmd.RunCommand acCmdSelectRecord 'selecionar
DoCmd.RunCommand acCmdDeleteRecord 'deletar o último elemento
Refresh
DoCmd.SetWarnings True
End Sub

Olá Caroline!

Espero que seja o que precisa (em anexo)

Saludos

Oi! Obg pela ajuda!!
Mas o botão de voltar não está funcionando e ele q tá me dando dor de cabeça kkk

Aliás, eu preciso q ao apertar em "Voltar" o form seja fechado, mas sem salvar o que está escrito lá.

Só pode salvar qd clicar em "Salvar".


Outro detalhe: qd eu fecho pela aba do Access, ele salva tbm...

Acabei deixando praticamente do jeito q vc colocou, mesmo com o form salvando qd fecho pela aba.
Obrigada!
Ficou assim:

Código:


Private Sub Comando45_Click()
If Dirty Then
            If MsgBox("Deseja salvar as alterações?", vbYesNo, "Registros") = vbNo Then
                Me.Undo
                DoCmd.Close 'ao fechar, a Sub Form_Close() será chamado
            Else
              DoCmd.RunCommand acCmdSaveRecord
              Me.Undo
              DoCmd.Close 'ao fechar, a Sub Form_Close() será chamado
            End If
Else
DoCmd.Close
End If
End sub



O tópico abaixo tem a solução na mensagem de número 15.
https://www.maximoaccess.com/t12727-resolvidovalidacao-de-dados-em-formulario-com-dados-acoplados

Que bom Caroline!!!