[Resolvido]Cancelar um sub por outra

É o sguinte,
Tenho um forme, e no evento antes de atualizar, pus um código q valida as alteraçõs. Até aí tudo bem.
O problema é que no botão salvar que criei no evento ao clicar tenho um outro código que confirma que o registro foi salvo com uma msgbox. Mas se eu alterar alguma coisa, clicar em salvar, o outro código (antes de atualizar) é acionado.
Nesse caso eu quero que apenas o código do botãi funcione e não o outro.
Daí pensei, se houver algum meio de cancelar a execução do códido seria a solução. Mas se houvr outro meio, também é
válido.
Conto com os amigos!!!

Marcelo, certamente no sub do seu botão, você informou uma linha pra fechar o form, por isso após ele executar o sub do botão também executará o sub antes de atualizar. O mais certo a fazer é colocar uma rotina para validar os dados apenas no sub do botão, e remover o sub antes de atualizar do form, entendeu? Caso queira colocar um botão fechar(x) no form, também é uma boa idéia, pois este evitaria de fechar o form e salvar registros indesejavelmente(recomendável bloquear o botão fechar da janela do form). No click do botão fechar coloque call seubotãosalvar_click executará o mesmo código do botão salvar. Teste e veja se funcionou!

dadokeys90 obrigado pela dica,
Mas o problema não é fechar o form, e sim aparececer a mensagem perguntando se realmente eu quero salvar as alterações
ao clicar em salvar.
Se eu tiar o código de antes de atualizar, ocorrerá que se o usuário inseriar alguma coisa e for para outro registro, o mesmo será salvo e é isso que eu não quero. Por isso pus o código no evento antes de atualizar.

Poste o código completo para nossa apreciação por gentileza.

Ok criquio, aí vai:
Evento ao Clicar botão gravar:

Private Sub btGrava_Click()
Dim ti As String
Dim tit As String
On Error Resume Next

If IsNull(Me.TipoID) Then
MsgBox "Informe o tipo de mídia", vbInformation, "Dados incompletos"
Me.TipoMidia.SetFocus
Exit Sub
End If
If IsNull(Me.Titulo) Then
MsgBox "Informe o título desta mídia", vbInformation, "Dados incompletos"
Me.Titulo.SetFocus
Exit Sub
End If


tit = Titulo
DoCmd.RunCommand acCmdSaveRecord
MsgBox "" & tit & " gravado com sucesso.", vbInformation, "Gravado"
Me.Refresh
End Sub


Evento Antes de atualizar do form

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If MsgBox("Os dados inseridos ou alterados serão descartados, deseja realmente contituar?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
DoCmd.RunCommand acCmdUndo
Else
DoCmd.CancelEvent
End If
End Sub

Grato

Me parece que se usasse o evento "Após atualizar" do campo seria melhor, ou não?

Outra coisa: tit = Titulo

Acho que Titulo teria que ser entre aspas, a não ser que Titulo seja outra variável ou o nome de um campo.

Pus o código no evento após atualizar e mesmo assim não deu certo...

Experimente assim por favor

Private Sub btGrava_Click()
Dim ti As String
Dim tit As String
On Error Resume Next

If IsNull(Me.TipoID) Then
MsgBox "Informe o tipo de mídia", vbInformation, "Dados incompletos"
Me.TipoMidia.SetFocus
ElseIf IsNull(Me.Titulo) Then
MsgBox "Informe o título desta mídia", vbInformation, "Dados incompletos"
Me.Titulo.SetFocus
Else
tit = Titulo
DoCmd.RunCommand acCmdSaveRecord
End If
Me.Refresh

Mestre Vieira, acabei de testar, e infelizmente não funciou como esperado, o código antes de atualizar é execultado de qualquer forma...

Não prestou atenção ao que o Grande Criquio disse; Colocar no evento após actualizar, caso contrário o p+rimeiro evento a acontecer é o outro..before, ok. Então coloque no afterupdate()

Consegui resolver graças a ajuda dos mestre, criquio e Vieira.
Muito obrigado criquio e Vieira que me mostraram a lógica dos eventos.
O código fico assim:

Ao clicar Botão grava:

If IsNull(Me.TipoID) Then
MsgBox "Informe o tipo de mídia", vbInformation, "Dados incompletos"
Me.TipoMidia.SetFocus
Exit Sub
End If
If IsNull(Me.Titulo) Then
MsgBox "Informe o título desta mídia", vbInformation, "Dados incompletos"
Me.Titulo.SetFocus
Exit Sub
End If

DoCmd.RunCommand acCmdSaveRecord
Me.Refresh

Antes de atualizar do form:

On Error Resume Next
If IsNull(Me.RegID) Then
Exit Sub
ElseIf MsgBox("Deseja gravar as alterações", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
Me.Refresh
Else
Me.Undo
End If


Após atualizar do form:


Dim tit As String
On Error Resume Next
tit = Me.Titulo
MsgBox "" & tit & " gravado com sucesso.", vbInformation, "Gravado"
End Sub

Forte abraço.