[Resolvido]Combobox excluir

Bom dia mestres
Venho novamente solicitar uma solução para o seguinte problema. Tenho um formulário quotas onde lanço as quotizações dos associados, e nesse mesmo formulário tenho uma caixa de combinação que seleciono o movimento que quero excluir, exclusão essa que vai ocorrer em duas tabelas, a de quotas e a de associados, ora o problema surge quando vou excluir, ou seja, ele exclui, mas aparece uma mensagem de cancelado! no fim, ora queria era que essa mensagem só aparecesse se eu cancelasse a exclusão e não quando excluo. Se me poderem ajudar. Obrigado.
Abraço,
Rui Maciel
Envio em anexo a base de dados.

Faça o teste apenas com uma condição, se resultar coloque mais ou até pode optar por um Select Case;


Private Sub cbxExcluir_AfterUpdate()
On Error GoTo 1
If MsgBox("Deseja realmente excluir este registo? " & Trim(Me.Código.Value) & " - " & Trim(Me.Nome.Value) & "?", vbYesNo + vbCritical + vbDefaultButton1, "ATENÇÃO") = vbYes Then
DoCmd.SetWarnings False
If Me.cbxExcluir.Value = "2013" Then
CurrentDb.Execute "UPDATE [Associados] SET a2013=Null WHERE Código= " & Me.Código.Value & ""
CurrentDb.Execute "DELETE * FROM Quotas WHERE ID1= " & Me.Código.Value & ""
DoCmd.SetWarnings True
Else
MsgBox "Cancelado! ", vbOKOnly + vbCritical + vbDefaultButton1, "ATENÇÃO"
Exit Sub
End If
End If
Exit_cbxExcluir_Click:
Exit Sub
1:
MsgBox Err.Description
End Sub

Boa noite João Paulo,
Não apagava em nenhuma das tabelas porque para a tabela associados tinha que ser me.id1.value e na tabela quotas teria que ser código= ", assim como, acrescentei DoCmd.GoToRecord , , acNewRec, de resto já funfa, obrigado João Paulo.
Abraço,
Rui

Esqueci-me do resolvido!

Obrigado pelo retorno o forum agradece.