[Resolvido]Rotina não deleta registro - currentdb execute delete

Prezados colegas, bom dia.


Tenho a necessidade de excluir registro, com um certo campo em branco, em uma tabela ao pressionar o botão salvar em certo formulário.  A Instrução que eu estou quebrando a cabeça é essa:

CurrentDb.Execute ("delete * from tblcontatos Where representacao = '" & Forms!frmfornecedor!Representacao & "'" And CodFornecedor Is Null)

" exclua da tabela contatos onde o nome do fornecedor seja igual ao que esta no formulário e que o campo codfornecedor é vazio"   -> essa é a ideia que eu estou querendo implementar.
onde:

a- representacao = campo texto
b- CodFornecedor = campo numérico

Simplesmente ele não exclui da tblcontato o registro.

Grato a todos.

Já tentou:
CurrentDb.Execute ("delete * from tblcontatos Where representacao = '" & Forms!frmfornecedor!Representacao & "' And IsNull(CodFornecedor)")

Boas Formiga...

Negativo meu amigo...nada de deletar.

De uma olhada na imagem abaixo.....


[img][/img]

A conversão para inteiro do codFornecedor?
A tabela está relacionada?
Já viu?

As tabelas não estão relacionadas não.

A tabela contato é alimentada com alguns campos, através de um insert into.

Essa tabela contato, serve de base para catalogo de e-mail´s ( CDOSys ) que o cliente utiliza.

Testei com relacionamentos.....ficou bom claro !
Mas mesmo assim, eu preciso deletar os fornecedores, que não tem o codfornecedor na tabela contatos.
Se eu deixar isso, vai ter duplicidade de registros.

Silvio boa noite amigão, como vai?

Desculpe ai Silvio e a todos, agora o que entendi, o que queres!

Bom dia a todos....


Lupércio, veja a mensagem de numero um....é o que eu preciso e estou quebrando a cabeça.

Bom dia amigo
Pode postar os objectos em causa ?

Bom dia Assis...

Vou preparar um exemplo que os dados que cá eu tenho.

Cá está o exemplo.   apenas copiem os dados da tblcontato, evitando de colocar o:
a- codcliente
b- codfornecedor.

Tentem salvar, verão que os que estão sem o: codcliente e codfornecedor ainda ficam na tblcontato ao tentar salvar.
Esses que contem os campos em brancos, tem que serem excluídos.

Acho que a lógica que está tentando usar não é correta.
O que você pode fazer é excluir uma linha e não um campo.
Nessa caso se excluir o campo em branco do do Código do cliente estará exlcuindo automaticamnte o código do fornecedor e vice-versa. É isso mesmo que pretende?

[url=]Imagem[/url]

Gilberlânio, bom dia e desde já grato por participar desse tópico.

Na tabela original, eu tenho mais de 60 contatos sem o codcliente e o codfornecedor.

Ao alterar e depois salvar, seja o cliente ou o fornecedor, desejo que os campos codcliente e codfornecedor que estão em branco sejam excluídos ficando apenas os registros que estão completos.

Ou seja, se esses campos codcliente e codfornecedor estiverem em branco, sejam excluídos evitando duplicadas dentro da tblcontatos.

Silvio

Na tabela tblcontatos não tem nenhum campo chamado "representacao"

No formulário "frmfornecedor" o campo parece que se chama "Fornecedor"

Ou estarei errado ?

CurrentDb.Execute ("delete * from tblcontatos Where representacao = '" & Forms!frmfornecedor!Representacao & "' And IsNull(CodFornecedor)")

Assis, acertou em cheio.....

Que erro primário o meu, estava tão obcecado em representação e nem vi, nem me atinei que o campo era nome.

Corrigido dessa forma e funfando do jeito que é necessário:

CurrentDb.Execute ("delete * from tblcontatos Where nome= '" & Forms!frmfornecedor!Representacao & "' And IsNull(CodFornecedor)")

Agora sim, ele deleta a linha onde o codfornecedor ou codcliente está em branco

Fica aqui, registrado os meus agradecimentos a todos que me ajudaram a resolver esse tópico.

Abraços.

Obrigado pelo retorno Amigão

Fico contente por ter ajudado .....

Mas onde está este campo no formulário "Forms!frmfornecedor!Representacao"

Não será  .... Forms!frmfornecedor!Fornecedor . aonde esta o nome ?

Boa noite e boa tarde...

Desculpe a demora em responder, mas estava a almoçar com a família.

Assis, veja a rotina de exportação quando se clicar em salvar.
'aqui faço a inserção do e-mail do fornecedor na tblcontatos
   Dim db1 As Database, rs1 As DAO.Recordset
   Set db1 = CurrentDb
   Set rs1 = db1.OpenRecordset("tblcontatos")
   With rs1
   ' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
   .AddNew
   ' campos que estão na tabela = campos do fomulario
   ![CodFornecedor] = Me.CodFornecedor
  ![Nome] = Me.Fornecedor
   ![Email] = Me.Email
   ![Grupo] = "Profissional"
   .Update
   End With
   End If

Eu não alterei as propriedades do campo na aba outras, permanecendo como estava. Peguei o projeto para melhorar de um cliente novo.