[Resolvido]Botão apagar

Boa tarde pessoal
Tenho um formulário desacoplado, com um botão para apagar determinado registo. Apesar de ter o procedimento ao carregar do formulário

DoCmd.GoToRecord , , acNewRec
Me.Ano.SetFocus
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = True

o botão apagar, apaga sempre sem que apareça nenhuma mensagem, pois, também tenho um botão para editar com o seguinte código:

If MsgBox("Deseja alterar o registo atual?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso do Sistema") = vbOK Then
Me.AllowEdits = True
Me.AllowDeletions = True
Else
MsgBox "Nada foi alterado!", vbOKOnly, "Aviso do Sistema"
End If

Como posso retificar, não consigo descrutinar. Obrigado.
Abraço,
Rui

Estes códigos:

Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = True

Não funcionam em formulários descoplados... pois o mesmo é carregado através de um recordset ou uma consulta...

Eles funcionam quando o formulário é acoplado a uma tabela ou consulta.. pois os comandos dizem respeito ao objeto form...

Se o seu botão apagar utiliza uma Instrução do tipo CurrentDb.Execute "Delete..........

Antes de executa-la verifica a condição do Form

If Me.AllowDeletions = False
Then Exit Sub
Else
CurrenteDb.Execute "Delete.......
End If


Cumprimentos.

Espetáculo Piloto obrigado
Da próxima já sei!
Abraço,
Rui

O Fórum agradece o retorno