Pessoal Bom Dia,
Copiei Sql de uma consulta exclusão, e estou
tentando executar, via codigo.
Vou confessar, e a primeira vez que tento,
e esta dando erro geral.

Alguem pode tentar me ajudar, consertando e
me indicando os erros.
Muito obrigado



Private Sub ExcluirReg_Click()
On Error GoTo Err_ExcluirReg_Click

‘Ao Clicar no botao

Dim ExcluDeptSetor As String

‘ SQL de uma Consulta Exclusão
‘
ExcluDeptSetor = "DELETE [00ArqTabDepartamento].CodDepart AS" & _
"00ArqTabDepartamento_CodDepart, [00ArqTabDepartamento].NomeDepart," & _
"[01ArqTabNomeSetorFunc].CodDepart, [01ArqTabNomeSetorFunc].NomeSetor" & _
"FROM "00ArqTabDepartamento INNER JOIN 01ArqTabNomeSetorFunc ON" & _
"[00ArqTabDepartamento].CodDepart = [01ArqTabNomeSetorFunc].CodDepart")," & _
"WHERE((([00ArqTabDepartamento].CodDepart) = [Forms]![D0FormExcluir]![CodDepart]))

‘ Excute
DoCmd.RunSQL ExcluDeptSetor


Exit_ExcluirReg_Click:
Exit Sub

Err_ExcluirReg_Click:
MsgBox Err.Description
Resume Exit_ExcluirReg_Click

End Sub

Olá!!!

Pelo que ví tem uma vírgula antes do WHERE e tá faltando fechar aspas duplas no fim do WHERE.

Tente isto:

"DELETE [00ArqTabDepartamento].CodDepart AS " & _
"00ArqTabDepartamento_CodDepart, [00ArqTabDepartamento].NomeDepart, " & _
"[01ArqTabNomeSetorFunc].CodDepart, [01ArqTabNomeSetorFunc].NomeSetor " & _
"FROM "00ArqTabDepartamento INNER JOIN 01ArqTabNomeSetorFunc ON " & _
"[00ArqTabDepartamento].CodDepart = [01ArqTabNomeSetorFunc].CodDepart") " & _
"WHERE 00ArqTabDepartamento.CodDepart = [Forms]![D0FormExcluir]![CodDepart]"

Se não der certo poste a mensagem de erro para melhor compreensão.

Sucesso!!!

Mauricio,
Mauricio,

Muito obrigado pela atenção.
O erro e o seguinte :

Erro de compilação
Era esperado : Fim da Instrução

Ai aponta para os dois zeros(00), "From 00

ExcluDeptSetor = "DELETE [00ArqTabDepartamento].CodDepart AS " & _
"00ArqTabDepartamento_CodDepart, [00ArqTabDepartamento].NomeDepart, " & _
"[01ArqTabNomeSetorFunc].CodDepart, [01ArqTabNomeSetorFunc].NomeSetor " & _
"FROM "00ArqTabDepartamento INNER JOIN 01ArqTabNomeSetorFunc ON " & _
"[00ArqTabDepartamento].CodDepart = [01ArqTabNomeSetorFunc].CodDepart") " & _
"WHERE 00ArqTabDepartamento.CodDepart = [Forms]![D0FormExcluir]![CodDepart]"

Olá Josevam

Faria algo assim:

ExcluDeptSetor = "DELETE DP.CodDepart AS DP_CodDepart, DP.NomeDepart,"
ExcluDeptSetor= ExcluDeptSetor & "SF.CodDepart, SF.NomeSetor "
ExcluDeptSetor= ExcluDeptSetor & "FROM 00ArqTabDepartamento AS DP "
ExcluDeptSetor= ExcluDeptSetor & "INNER JOIN 01ArqTabNomeSetorFunc AS SF "
ExcluDeptSetor= ExcluDeptSetor & "ON DP_CodDepart = SF.CodDepart "
ExcluDeptSetor= ExcluDeptSetor & "WHERE DP_CodDepart = " & Forms!D0FormExcluir!CodDepart & ";"  

Acho que fica melhor pra entender e corrigir.



Sucesso
...

Ola Avelino,

Agrdeço muito pela atenção.

Esta dando o seguinte erro :
Especifique a tabela que contém os registros que voce deseja excluir

Voce esta tentando excluir registros de duas tabelas ao mesmo tempo não acredito seja possivel, (e tb não faz muito sentido, ao menos para mim)

Voce tem razao, são 2 tabelas.

E uma SQL de uma consulta exclusao.

Veja o inicio do topico.

O Rogério tem razão

Mirei apenas na montagem da string e não observei o resultado disso.

O máximo que vc consegue com isso aí talvez seja assim:

ExcluDeptSetor = "DELETE SF.* "
ExcluDeptSetor= ExcluDeptSetor & "FROM 00ArqTabDepartamento AS DP "
ExcluDeptSetor= ExcluDeptSetor & "INNER JOIN 01ArqTabNomeSetorFunc AS SF "
ExcluDeptSetor= ExcluDeptSetor & "ON DP.CodDepart = SF.CodDepart "
ExcluDeptSetor= ExcluDeptSetor & "WHERE DP.CodDepart = " & Forms!D0FormExcluir!CodDepart & ";"  

Ou seja, vai deletar os registros da tabela "01ArqTabNomeSetorFunc" relacionados com o "codDepart" , que poderia também ser feito assim:

ExcluDeptSetor = "DELETE FROM 01ArqTabNomeSetorFunc WHERE CodDepart = " & Forms!D0FormExcluir!CodDepart & ";"  

Se as tabelas estão relacionadas com exclusão em cascata dos registros da tabela 01ArqTabNomeSetorFunc , bastaria fazer assim:

ExcluDeptSetor = "DELETE FROM 00ArqTabDepartamento WHERE DP.CodDepart = " & Forms!D0FormExcluir!CodDepart & ";"  

Ou seja, ao deletar os registros específicos da tabela 00ArqTabDepartamento todos os registros relacionados da tabela 01ArqTabNomeSetorFunc serão deletados.

Sucesso
...

Avelino e Rogerio,

Agradeço imensamente a orientação de voces,
mas, terei de arrumar outra opção, por que
estas não foram possiveis.

Um grande abraço

Josevam

O que vc esta precisando então ?

Josevam,

quando necessito excluir dados de uma tabela com select em outra utilizo uma Sub-Query, exemplo:

DELETE Clientes.CódigoDoCliente
FROM Clientes
WHERE Clientes.CódigoDoCliente In (select [CódigoDoCliente] from tbl_2)

Não sei se ajuda ou se é o seu caso.

Att

Fabiano

Fabiano,

Muito obrigado.

Avelino,
Muito obrigado, pela sua atenção
So agora pude responder, Eis a questão :

Tenho um Formulário com um SubFormulario

No Formulário : D0FormExcluir
Fonte de Registro -> 00ArqTabDepart ( CodDepart, NomeDepart,.......)

NoSubFormulario : D1FormExcluir SubFormulario
Fonte de Registro -> SELECT [01ArqTabNomeSetorFunc].CodDepart, NomeSetor,....

ObS : Onde CodDepart são iguais, e estão relacionados

Ao Abrir o Formulário ( D0FormExcluir ), fica assim :

CodDepart NomeDepart
256 AAAAA

CodDepart NomeSetor
256 ZZZZZZZZZZZZ
256 YYYYYYYYYY
256 NNNNNNNNNN

No Formulario consta
Um Botao para Exlcuir o CodDepart, NomeDepart

No SubFormulário consta
Um Botao para Exlcuir o CodDepart, NomeSetor

O Formulário e o SubFormulario, estão “funcionando”, quase perfeitamente., isto é :
Qdo quero excluir o Departamento, OK
Qdo quero excluir o(s) Setor(s) OK

Eu quero excluir o Departamento(CodDepart, NomeDepart), inclusive,
todos os Setores deste departamento(CodDepart, NomeSetor)

Suas tabelas não estão relacionadas?

Rogerio :
Sim as tabelas estão relacionadas.

Avelino, nota 10 pelo exemplo.
Caso Resolvido.

Muito obrigado a todos
Valeuuuuuuuuuuuuuuuu