[Resolvido]Codigo de Eliminar - Form-SubForm

Olá a todos, preciso da ajuda dos mestres - Access. Obrigado
Preciso de ciar um botão para Eliminar Dados de um Form e consequentemente de um subForm vinculado.

Código:

If MsgBox("Tem certeza que deseja excluir os registos ?", vbYesNo + vbQuestion, "Confirmar EXCLUSÃO") = vbYes Then
CurrentDb.Execute "DELETE FROM tabEntradas WHERE tabEncomenda=" & Me.tabEncomenda & ""
CurrentDb.Execute "DELETE FROM frmNotaEncomenda WHERE tabNotaEncomenda=" & Me.tabNotaEncomenda & ""
MsgBox "Registros excluídos", vbInformation, "Sucesso"
Else
MsgBox "Exclusão Cancelada", vbInformation, "Cancelado"
End If

No entanto ao clicar no botão, aparece a seguinte caixa de mensagem :



E ao clicar em debug, marca a linha :

Código:

CurrentDb.Execute "DELETE FROM tabEntradas WHERE tabEncomenda=" & Me.tabEncomenda & ""

Obrigado.

Olá, voce quer deletar o que mesmo? Da forma como colocou, não esta dizendo o que quer deletar!

..."DELETE [aqui vc coloca o que quer apagar] FROM tabEntradas WHERE...
Como por exemplo:

... "DELETE * FROM tabEntradas WHERE ...

Entretanto se bem entendi pela sua resposta (Ajuda) teria de colocar o seguinte :

Código:

If MsgBox("Tem certeza que deseja excluir os registos ?", vbYesNo + vbQuestion, "Confirmar EXCLUSÃO") = vbYes Then
CurrentDb.Execute "DELETE * FROM tabEntradas WHERE tabEncomenda=" & Me.tabEncomenda & ""
CurrentDb.Execute "DELETE * FROM frmNotaEncomenda WHERE tabNotaEncomenda=" & Me.tabNotaEncomenda & ""
MsgBox "Registros excluídos", vbInformation, "Sucesso"
Else
MsgBox "Exclusão Cancelada", vbInformation, "Cancelado"
End If

Se entendi bem !!! No entanto o erro mantem-se. Obrigado

If MsgBox("Deseja Eliminar - Registo - ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Else
Exit Sub
End If
Acredito que possa revolver a sua questão. Acredito que não seja a melhor forma de o fazer, mas o mestre será a pessoa indicada para lhe dizer...
Abraço aos 2, e uma vez mais peço desculpa ao mestre Fábio pela intromissão.

Amigos, bom dia!

A escrita correta é essa mesmo (CurrentDb.Execute "DELETE * FROM tabEntradas WHERE tabEncomenda=" & Me.tabEncomenda & "") para quando se quer excluir via SQL.

Porem como o amigo Marcos Falou, se esse campo está relacionado, pode facilmente resolver isso com o próprio relacionamento! Seguindo a dica do Marcos, e certificando que o relacionamento está da seguinte forma:

Obrigado aos dois, mais um caso resolvido. Obrigado e sucesso.

Grato pelo retorno amigo, até a próxima se Deus Quiser!