[Resolvido]Erro ao excluir registro do formulário e sub-formulário

Amigos, boa tarde

Apesar de já encontrar vários tópicos e entender perfeitamente a função, mesmo assim não consigo identificar oque esta ocasionando o erro ao tentar excluir os registros via botão

Tabelas:
TBL-Fiscal (Cod_NF "chave primária" e demais campos)
TBL-Contábil (Cod_NF; demais campos do contábil) aqui não é chave primária
TBL-Custo (Cod_Nf; demais campos do custo) aqui não é chave primária

Segue a rotina que inseri no evento do botão conforme vários tópicos que achei aqui no forum

Alguém pode me dar uma ajuda? O erro é
"Erro em tempo de execução '3131'
Erro de sintaxe na cláusula FROM.

Private Sub Comando67_Click()

If IsNull(Me.Cod_NF) Then
MsgBox "Não há registros a serem excluídos!", vbCritical, "Excluir!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir esta Nota Fiscal?", vbYesNo + vbQuestion, "Excluir!") = vbYes Then
CurrentDb.Execute "DELETE * FROM TBL-Custo WHERE Cod_NF =" & Me.Cod_NF & ""
CurrentDb.Execute "DELETE * FROM TBL-Contábil WHERE Cod_NF =" & Me.Cod_NF & ""
CurrentDb.Execute "DELETE * FROM TBL-Fiscal WHERE Cod_NF =" & Me.Cod_NF & ""
DoCmd.RunCommand acCmdRefreshPage
MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Excluir!"
Else
End If

End Sub

Tentei assim


Private Sub Comando67_Click()

If IsNull(Me.Cod_NF) Then
MsgBox "Não há registros a serem excluídos!", vbCritical, "Excluir!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir esta Nota Fiscal?", vbYesNo + vbQuestion, "Excluir!") = vbYes Then
CurrentDb.Execute "DELETE * FROM TBL-Custo WHERE " & Me.Cod_NF & "= Cod_NF "
CurrentDb.Execute "DELETE * FROM TBL-Contábil WHERE " & Me.Cod_NF & " = Cod_NF "
CurrentDb.Execute "DELETE * FROM TBL-Fiscal WHERE " & Me.Cod_NF & " = Cod_NF "
MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Excluir!"
End If

End Sub

Podes tentar assim:

If Not IsNull(Me.Cod_NF) And MsgBox("Tem certeza que quer excluir esta Nota Fiscal?", vbYesNo + vbQuestion, "Excluir!") = vbYes Then
   CurrentDb.Execute "DELETE * FROM [TBL-Custo] WHERE Cod_NF=" & Me.Cod_NF
   CurrentDb.Execute "DELETE * FROM [TBL-Contábil] WHERE Cod_NF=" & Me.Cod_NF
   CurrentDb.Execute "DELETE * FROM [TBL-Fiscal] WHERE Cod_NF=" & Me.Cod_NF
   DoCmd.RunCommand acCmdRefreshPage
   MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Excluir!"
Else
   MsgBox "Não há registros a serem excluídos!", vbCritical, "Excluir!"
   Exit Sub
End If

Recomendo fazer os relacionamentos entre as tabelas também, assim excluindo o registro principal, exclui também os registros das outras tabelas automaticamente.


* Na aba Ferramentas de banco de dados clique em Relações.
* Adicione as tabelas
* Faça a ligação do campo Cod_NF da tabela principal para o campo Cod_NF na tabela secundária.
* Marque a opção Impor Integridade referecial
* Marque as duas opções abaixo = Propagar atualização e exclusão ...


obs: os campos relacionados devem ser do mesmo tipo

se Cod_NF na tabela principal for Inteiro longo (Inteiro Longo - Chave Primária) o mesmo campo na tabela secundária também deve ter o mesmo formato (Inteiro Longo) não é chave primária.

com o relacionamento ativo, se você excluir o registro da tabela principal,automaticamente exclui o da tabela secundária relacionado pelo campo Cod_NF.

espero ter ajudado.

Amigos, boa noite

Muito obrigado, funcionou perfeitamente,

Sobre as dicas eu infelizmenta nao consegui mias fazer as relações pois peguei um serviço em andamento, e já havia mtos dados lançados, infelizmente estou remediando, mas deu tudo ok conforme as dicas passadas.

Realmente este forum é fera..

Abs e at+

  Agradecemos
  o retorno.