Botão excluir não aparece mais a confirmação para exclusão do registro - ACCESS 2010

Prezados colegas, boa tarde.

Estava tudo indo bem até os botões Excluir e Fechar do formulário pararem de apresentar a mensagem de confirmação. Quando copiei o arquivo para outra máquina a confirmação apareceu e depois parou também. Alguém pode me dar uma força? Obrigado.

No evento "ao clicar" do Botão Excluir:

Código:

If MsgBox("Excluir registro atual?", vbYesNo, "Excluir") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "Registro apagado", vbInformation, "Excluído"
Else
Cancel = True
End If

No evento "ao clicar" do Botão Fechar:

Código:


DoCmd.Close AcForm, "SeuFormulario"

Amigo, adicione a pasta do aplicativo a pasta comfiavel.... Provavelmente as Macros foram bloqueadas pelo Office.

Veja que aparecera um avisa em amarelo logo no cabecalho do formulario...

Bom dia Predella blz? Cara usei o código, ele pede a confirmação mas quando clico em não ele exclui do mesmo jeito, o que será que está acontecendo? Valeu.

Bom dia Fabio, blz? Cara aqui não está aparecendo nenhum aviso, procurei a opção para habilitar o arquivo para confiável mas não achei. Será que mesmo sem o aviso ele está bloqueando? Vale.

Faz o seguinte...

No lugar do "Cancel = True"
Coloque.

"Me.undo"

Provavelmente nao e macro bloqueada amigo, pois qnd e nao executa nenhuma. E como falou ele ainda emite a mensagem perguntando...

Tem outra coisa acontecendo com seu aplicativo amigo, pois a instrucao do Predella esta correta...


If MsgBox("Deseja Excluir isso?", vbYesNo, "Atenção!!!") = vbYes Then
'instrução aqui para opçao sim.
Else
'INstrução aqui para nao
En if

Predella troquei o "Cancel = True" pelo "Me.undo" mas ainda continua apagando mesmo selecionando o não. Vou colar uma parte do código pra vocês verem se eu estou adicionando no lugar certo. Valeu.

Private Sub btnExcluir_Click()
On Error GoTo Err_btnExcluir_Click

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

Exit_btnExcluir_Click:

If MsgBox("Excluir registro atual?", vbYesNo, "Excluir") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "Registro apagado", vbInformation, "Excluído"
Else
Me.Undo
End If

Exit Sub

Err_btnExcluir_Click:
MsgBox Err.Description
Resume Exit_btnExcluir_Click

End Sub

[size=51]DoCmd.RunCommand acCmdSelectRecord[/size]
[size=51]DoCmd.RunCommand acCmdDeleteRecord[/size]


[size=51]Aee esta o erro amigo...[/size]


[size=51]Veja que vc exclui antes mesmo de passar pelo If...[/size]

Galera, deu certo aqui, já resolvi. Valeu pela força. O fórum é 10.