[Resolvido]No botão excluir dados do form e subform!

Bom dia Pessoal!

Tenho duas tabelas relacionadas,
através dessa relação criei uma consulta
com dados das duas tabelas,
e através dessa consulta criei um form
com um sub form, quero através de um botão,
colocado no form, excluir todos os dados,
tanto do form como do sub form!Enfim excluir
o registro inteiro, alguem pode me ajudar?
Fico agradecido!

Você quer excluir das tabelas ou apenas deixar de exibi-los no formulário? Quer excluir todos os registros presentes nos formulários ou apenas uma linha? Como é a relação entre formulário e subformulário?

Quero excluir mesmo
das tabelas, com certeza!
através do formulário.
Fiz uns comandos aqui mas só exclui
registro por registro do sub form,
e quero clicar e excluir tudo.

Faltou mencionar como é a relação entre as tabelas. Acredito que você tenha um registro no formulário principal e vários no subformulário que são vinculados a esse registro principal, certo? É necessário, primeiro excluir os registros da tabela relacionada para depois poder excluir o registro da tabela principal. Seria algo assim:

CurrentDb.Execute "DELETE * FROM NomeTabelaSecundária WHERE CodRegistro=" & Me.CodRegistro & ""
CurrentDb.Execute "DELETE * FROM NomeTabelaPrincipal WHERE Código=" & Me.Código & ""
Msgbox "Registros excluídos com sucesso", vbInformation, "Status"

Beleza excluiu todos os dados do form e sub form!

Abri a tabela secundária e conferi "os registros foram excluídos"
Abri a tabela principal, "os registros não foram excluídos"

Quando execulto a consulta não retorna registros mas,
como eu disse os registros estão la na tabela principal,
conferi os nomes os códigos estão normal.
Porem está dando esse problema.

Fiz um teste aqui:

Fiz o seguinte:

Inseri dois botões
1º - botão excluir dados da tabela principal
coloquei:

CurrentDb.Execute "DELETE * From T_LeituraFormulário WHERE codigoMaquinaPrimario=" & Me.codigoMaquinaPrimario & ""


2º - botão excluir dados da tabela secundaria
coloquei:

CurrentDb.Execute "DELETE * FROM T_LeituraSubFormulario WHERE IdLeitura=" & Me.IdLeitura & ""

Resultado:

Qualquer botão quer você clicar:

Exclui os dados da tabela secundária,
e não exclui os dados tabela principal!

Boa tarde para todos.....

Com a permissão de todos.
*** no relacionamento entre as tabelas, um para muitos / propagar exclusão ***


Private Sub bt_excluir_Click()
'Tratamento de erro
On Error GoTo Err_Delete

Dim numRecord As Integer 'Declaração da variável
numRecord = InputBox("Informe o número da Ordem de serviço....:", "teste de mensagem") 'Solicitação do número da Ordem de serviço

'Confirmação de operação de delete
If MsgBox("Deseja excluir o registro " & numRecord & "?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then

Dim SQL As String
DoCmd.SetWarnings False 'Aviso de execução
SQL = "DELETE * FROM OS WHERE IDservico = " & numRecord 'ALTERE O NOME DA TABELA E NOME DO CAMPO
'tabela ' nome do campo
DoCmd.RunSQL SQL 'Executa consulta

MsgBox "Operação realizada com sucesso!", vbInformation, "teste de mensagem!" 'Confirmação do processo
DoCmd.GoToRecord , , acNewRec

Else
MsgBox " Ação cancelada pelo usuário", vbInformation, " teste de mensagem"

Exit Sub

End If
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec


Exit_Delete:
Exit Sub

Err_Delete:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "teste de mensagem"

Resume Exit_Delete
End Sub

Bom a todos, feliz pascoa!

Silvio uma feliz pascoa e obrigado, por tentar em ajudar!
Estou enviando o bd, me ajuda ai não estou conseguindo,
adaptar ao seu código!
Obrigado por pode contar com você! Bd anexado!

http://speedy.sh/N3JeD/EXCLUIR-REGISTRO-DO-FORM-E-SUBFORM.zip

Testei aqui e funcionou da forma que lhe passei:

Código:

If MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Excluir") = vbYes Then
    CurrentDb.Execute "DELETE * FROM T_LeituraSubFormulario WHERE CodigoFilhoEstrangeiro=" & Me.código & ""
    CurrentDb.Execute "DELETE * FROM T_LeituraFormulário WHERE codigoMaquinaPrimario=" & Me.código & ""
    DoCmd.RunCommand acCmdRefreshPage
    DoCmd.GoToRecord , , acNewRec
    MsgBox "Resgistros excluídos com sucesso.", vbInformation, "Sucesso"
Else
End If

Cliquio, feliz pascoa!
O código funcionou agora está excluindo todos os registros do form e subform!
Acontece que quando o formulário está aberto, e não há registros no form
e subform se você clicar no botão excluir, aparece a mensagem normal
criada por você, “ Tem certeza que deseja excluir todos os registros” aparece os dois botões “Sim” e “Não”, se clicar em “Não”, não da erro algum, porque é cancelado o código, mas se clicar em “Sim”. Acontece esse erro:
Erro em tempo de execução ‘3075,; Erro na de sintaxe (operador faltando) na expressão de consulta ‘codigoFilhoEstrangeiro=’.
Teria que aparecer uma mensagem eu acho “Não há registros para exclusão!
Obrigado por estar me ajudando!

Graças a Deus mudei seu código e funcionou!

Private Sub Comando17_Click()
If IsNull(Me.codigoMaquinaPrimario) Then
MsgBox "Não há dadas para excluir", vbInformation, "Exclusão - Cadastro"
Else

If MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Excluir") = vbYes Then
CurrentDb.Execute "DELETE * FROM T_LeituraSubFormulario WHERE CodigoFilhoEstrangeiro=" & Me.código & ""
CurrentDb.Execute "DELETE * FROM T_LeituraFormulário WHERE codigoMaquinaPrimario=" & Me.código & ""
DoCmd.RunCommand acCmdRefreshPage
DoCmd.SetWarnings True
End If
DoCmd.GoToRecord , , acNewRec
MsgBox "Resgistros excluídos com sucesso.", vbInformation, "Sucesso"


End If
End Sub
Obrigado cliquio!

Outro erro:

Quando clico cancelando a exclusão:

Aparece mensagem"
que os registros foram excluidos com sucesso!
e realmente cancela a exclusão mas aparece essa mensagem!

Tente assim:

Código:

If Is Null(Me.Código) Or Me.Código.Value = "" Then
    MsgBox "Não há registros a serem excluídos", vbCritical, "Sem registros"
    Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Excluir") = vbYes Then
    CurrentDb.Execute "DELETE * FROM T_LeituraSubFormulario WHERE CodigoFilhoEstrangeiro=" & Me.código & ""
    CurrentDb.Execute "DELETE * FROM T_LeituraFormulário WHERE codigoMaquinaPrimario=" & Me.código & ""
    DoCmd.RunCommand acCmdRefreshPage
    DoCmd.GoToRecord , , acNewRec
    MsgBox "Resgistros excluídos com sucesso.", vbInformation, "Sucesso"
Else
End If

erro de copilação
erro de sintaxe!

E o erro aponta para onde? Verifique direitinho que conseguirás detectar. Esse eu coloquei de propósito para você corrigir. É uma coisinha bem atoa mesmo. Verifique com carinho que encontrarás

Deu certo eu corrigi!
Muito obrigado!

Que bom que conseguiu. Agradecemos pelo retorno.

Não sei nada de VBA pode falar onde está o erro ?? Obrigado