[Resolvido]Excluir registro

Olá pessoal!!

Gostaria de ver se consigo contar com a ajuda dos colegas novamente!

Estou com problemas no botão "Excluir" do meu formulário. Eu gostaria que ao ser pressionado ele executasse a ação de de exclusão do registro na tabela.
Utilizei o código abaixo (que pesquisei no Forum), porem ele não realiza a exclusão do registro da tabela.

Alguma sugestão?

If IsNull(Me.PROTOCOLO) Or Me.PROTOCOLO = "" Then
MsgBox "Não há registro nesta linha", vbCritical, "Atenção"
Exit Sub
End If
Dim apaga As Integer
DoCmd.SetWarnings False
apaga = MsgBox("Confirma excluir registro? Depois de excluir não será possível desfazer a ação !!!", vbYesNo + vbQuestion, "Excluir")
Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
DoCmd.Close
DoCmd.OpenForm "Dados gerais"

Obrigada,
abç,

Graciele

Olá

Não acontece nada quando clik no botão?
Verifique na folha de propriedades do botão, guia Eventos, se aparece [procedimento de evento] no evento Ao clicar.

Com esse cod tem de funfar.

O form é simples ou continuo ?

Norbs, ele está dentro do Procedimento "Ao clicar"

JPaulo, ele é simples.

Segue o arquivo no anexo! Desenvolvido em Access97.

Graciele

Arquivo

Boa tarde

Dados estão na tabela dados Gerais.

O seu comando eliminar aqui no meu PC

Apagou todos

Office 2003
Win 7

Será que pode ser um problema de versão ou limitação do Access97?

Pelo teste que fiz funfa perfeito, só tem de mudar o codigo abaixo, para o evento VBA ao carregar e não ao abrir.


Private Sub Form_Load()
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Por favor, digite a senha correta", vbExclamation, "Senha errada"
DoCmd.Close acForm, "frmPassword"
End If
DoCmd.GoToRecord , , acNewRec
End Sub


No mais, o Excluír funciona bem sim, só deletei o registro Nº 9 Protocolo 20.

Falta-lhe tambem uns botões de navegação nesse form.

Obrigada pessoal!

JPaulo, vou fazer a alteração...
No mais, quais botões você sugere?

Obrigada,
abç

Graciele

Para navegar nos registros já existentes;

Next e Previous

Mas essa é apenas uma melhoria, se preferir só assim como está, assim ficará.

Obrigada a todos pela colaboração!