[Resolvido]Excluir registros em três tabela relacionadas via VBA

Olá pessoal...
Tenho três tabelas relacionadas e preciso excluir um registro para as três:
SELECT * FROM Cadastros INNER JOIN Serviço AND Compromisso ON Cadastros.Pessoa=Serviço.Pessoa=Compromisso.Pessoa

Principal: Cadastros
Secundárias: Serviço e Compromisso

Em Cadastros e Compromisso só existe uma entrada para cada Pessoa (não repete)
Em Serviço existem várias entradas para a mesma Pessoa (repete)

Estou usando BackEnd e não pretendo fazer relacionamento preferencial para exclusão por alguns motivos... E no FrontEnd para relacionar tabelas, não tem como marcar as caixas de verificação para preferenciar exclusão..., pois ficam desabilitadas.

P.S.: Eu não sei fazer isso... Help please!

Desde já agradeço!
Paulo César

Você pode tentar isso em um botão do formulário:

Código:

CurrentDb.Execute "DELETE * FROM NomeTabela1 WHERE CampoTabela='" & Me.CampoDoForm & "'"
CurrentDb.Execute "DELETE * FROM NomeTabela2 WHERE CampoTabela='" & Me.CampoDoForm & "'"
CurrentDb.Execute "DELETE * FROM NomeTabela3 WHERE CampoTabela='" & Me.CampoDoForm & "'"
MsgBox "Registros excluídos com sucesso", vbInformation, "Status"

xiiii... não funfou!
Obrigado Criquio!

Bom dia,
utilize
DELETE Cadastros.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Condição
DELETE Serviço.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Condição
DELETE Serviço.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Condição

Olá criquio e Alexandre!
Resultou na seguinte mensagem:
O campo especificado 'Pessoa' pode se referir a mais de uma tabela relecionada na cláusula FROM da instrução SQL.
Eis o procedimento completo:
________________________________________
Private Sub Comando37_Click()
On Error GoTo Err_Comando37_Click

If IsNull(Me.Código) Then
MsgBox "Você não escolheu nenhum cliente!", vbQuestion, "Aviso"
Exit Sub
ElseIf MsgBox("Tem certeza que deseja excluir este cliente?" _
& vbCr & vbCr & "Ao excluir este cliente, todos os serviços cadastrados para ele" _
& vbCr & vbCr & "também serão excluídos.", vbYesNo + vbQuestion, "Confirmar") = vbYes Then
'CurrentDb.Execute "DELETE * FROM Cadastros WHERE Pessoa='" & Me.Pessoa & "'"
'CurrentDb.Execute "DELETE * FROM Cadastros INNER JOIN Serviço AND Compromisso WHERE Código=" & Me.Código & ""

CurrentDb.Execute "DELETE Cadastros.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE Serviço.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE Compromisso.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Pessoa='" & Me.Pessoa & "'"

DoCmd.RunCommand acCmdRefreshPage
MsgBox "Cliente excluído com sucesso!", vbInformation, "Aviso"
Form_Exclusão.Requery
Else
Me.Pessoa.Visible = False
Me.Código.Visible = False
Me.Localidade.Visible = False
Me.Bairro.Visible = False

Exit_Comando37_Click:
Exit Sub
Err_Comando37_Click:
MsgBox "O cliente não foi excluído!", vbInformation, "Falha"
Resume Exit_Comando37_Click
End If
End Sub
________________________________________
Dentro das tabelas:
CADASTRO
Código_____login_____Data_____Pessoa(chave)
1__________paulo_____xxxx_____José

COMPROMISSO (CODGerado nunca se repete, mas a Pessoa sim)
Código_____login_____CODGerado(chave)_____Pessoa_____opCaso
1__________paulo_____3333_________________José_______Inativo
2__________paulo_____4444_________________José_______Inativo
3__________paulo_____5555_________________José_______Ativo

SERVIÇO (CODGerado se repete junto com a Pessoa)
Código_____login_____CODGerado_____Pessoa
1__________paulo_____3333__________José
2__________paulo_____3333__________José
3__________paulo_____3333__________José
4__________paulo_____4444__________José
5__________paulo_____4444__________José
_________________________________________________________
Viu como José ficou interligado nas três tabelas?
Através da exclusão da Pessoa em Cadastros, eu deverei programar a exclusão do Compromisso, pois se foi feito um Serviço no mesmo CODGerado de Compromisso, a Pessoa em Serviço deverá ser excluída. Somente em serviço a exclusão será individual.
Tá me matando!
Obrigado amigos.

Tente
CurrentDb.Execute "DELETE Cadastros.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Cadastro.Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE Serviço.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Cadastro.Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE Compromisso.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Cadastro.Pessoa='" & Me.Pessoa & "'"

Olá Alexandre...
A mensagem que aparece agora é:
"Parâmetros insuficientes. Era esperado 1"
Nossa...
Obrigado!

Desculpe-me aí Alexandre.
Tinha um erro... Faltou "s" em Cadastro's'
-----
Está excluíndo somente em Cadastros e continua a mesma Pessoa em Compromisso e Serviço... rsrs
-----
Valeu!

Tente
CurrentDb.Execute "DELETE Cadastros.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Cadastros.Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE Serviço.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Serviço.Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE Compromisso.* FROM (Cadastros INNER JOIN Serviço ON Cadastros.Pessoa=Serviço.Pessoa) INNER JOIN Compromisso ON Serviço.Pessoa=Compromisso.Pessoa WHERE Compromisso.Pessoa='" & Me.Pessoa & "'"

Ainda só exclui em Cadastros...

Tente
CurrentDb.Execute "DELETE * FROM Cadastros WHERE Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE * FROM Serviço WHERE Pessoa='" & Me.Pessoa & "'"
CurrentDb.Execute "DELETE * FROM Compromisso WHERE Pessoa='" & Me.Pessoa & "'"

Só excluir em Cadastros...

Disponibilize as tabelas

Obrigado Alexandre...
"guenta" aí, pois tá muito pesado!

Olá Alexandre...
Tudo consiste em criar um Cadastro em clientes, depois criar um Compromisso e só depois criar um Serviço.
Valeu cara!

Precisava de ajuda para apagar registos. Agora, fala em acrescentar registos.
Explique o que pretende e disponibilize parte da bd adequada

Uai sô... não entendi...
Para vc testar a exclusão, vc terá que adicionar algo... certo?
Então... Para adicionar vc tem que abrir Form Clientes e cadastrar um cliente,
na mesma janela tem um botão |COMPROMISSO|, CLIQUE NELE PARA ADICIONAR UM Compromisso, fechar compromisso, na mesma janela cliente clique no botão |CRIAR SERVIÇO|, através do codigo criado em compromisso (combox) e crie um Serviço...
Pronto!
Feche Form Clientes e abra Form Exclusão, escolha o cliente e clique no botão |EXCLUIR|.
Tá aí... eu pretendo EXCLUIR!
O que vc achou que era, Alexandre? Boiei geral...

Será que eu enviei o arquivo errado... to baixando pra ver o que eu enviei... pera um pouco...

Ô gente... socorro!

Resolvi colocando: DoCmd.RunSQL em vez de CurrentDb.Execute
e optando pelo SIMPLES, conforme o amigo Alexandre:

DoCmd.RunSQL "DELETE * FROM Serviço WHERE Pessoa='" & Me.Pessoa & "'"
DoCmd.RunSQL "DELETE * FROM Compromisso WHERE Pessoa='" & Me.Pessoa & "'"
DoCmd.RunSQL "DELETE * FROM Cadastros WHERE Pessoa='" & Me.Pessoa & "'"

Valeu criquio e Alexandre, Luz e Paz pra vocês!