[Resolvido]Excluindo registro do subformularios (folha de dados)

Boa noite pessoal

tenho um duvida que creio ser simples, tenho um formulário com um subformulário no evento ao excluir botei o código

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


o que acontece é o seguinte: msg acima aparece se clicar em não sem problemas,  mas se clicar em sim, aparece também a mensagem do access
perguntado se se quero apagar o registro. Dai vira um mangue, se clicar em sim ele pergunta de novo e se clicar em não ele apaga. Como faço para suprimir essa msg do access ? já pesquisei aqui não achei nada

Amigo, uma rapida pesquisa aqui no Forum encontraria varios post relacionados... Hj mesmo ja respondi algo semelhante ao seu...
Veja como realizar a busca no Forum: https://www.maximoaccess.com/t1115-busca-no-forum-search


Veja aqui neste Post o Comando completo:
https://www.maximoaccess.com/t27466-resolvidobotao-excluir-dando-erro

O comando que remove esse alerte é:
DoCmd.SetWarnings False
...Comando de Excluir....
DoCmd.SetWarnings True

Fábio Boa noite

Tinha visto este tópico não resolveu meu problema, não tenho um botão para a ação. A exclusão é em um subformulário vinculado no modo folha de dados e excluo selecionando a linha e tecla delete.

No código que enviou acontece a mesma coisa, para melhor entendimento estou postando o bd
o formulário é cadServiços

agradeço a atenção

Amigo.... Seu Caso é bem diferente!!! como vc nao quer utilizar um Botão... Entao tente assim:

1º Remova os comandos que tem la no evento Ao Excluir

2º Mude seu Comando do Evento ao Apertar tecla para:

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

    Case vbKeyF10
    DoCmd.OpenForm "Unidades"
   
    Case vbKeyDelete
    If MsgBox("Excluir registro atual?", vbYesNo + vbCritical, "Excluir") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings tue
    MsgBox "Registro apagado", vbInformation, "Excluído"
    DoCmd.GoToRecord , , acNewRec
    Else
    Cancel = True
    End If
   
End Select
End Sub

Faça um Teste e veja se É o que precisa!

Muito obrigado Fabio deu certo