[Resolvido]Deletar item de Tabela

Tenho o seguinte comando numa numa Macro de um Form acionado dentro de uma caixa de listagem.

CurrentDb.Execute ("Delete * from tblSalvarBaixa_Site WHERE Recibo =" & Lista0.Column(0) & "")

Acontece que nesta Tabela tenho :
4 campos: Recibo, IdProduto, Produto e QNT interligado com a Caixa de Listagem tb com os mesmos campos.

Pode acontecer desta Tabela existirem 1 ou mais Recibos com o mesmo numero. Isso dependera se o IdVenda tiver 1 ou mais itens.
Desta forma gostaria que no comando da macro acima, a exclusao ocorresse sendo filtrado alem do :

(Recibo =" & Lista0.Column(0) ) , incluir + (IdProduto=' Lista0.Column(1))

Grato

Andre

Bom dia
CurrentDb.Execute "Delete * from tblSalvarBaixa_Site WHERE Recibo =" & Lista0.Column(0) & " and IdProduto=" & Lista0.Column(1)

Obrigado e ficou perfeito aqui.

Se nao for pedir muito. 1 produto da caixa de Listagem ficou selecionada, como eu faço aqui pra tirar a selecao da mesma ?

Andre

Dim Item

For Each Item In ListBox.ItemsSelected
ListBox.Selected(Item) = False
Next

Nao querendo abusar, e se uma Tabela estiver vazia ?

Como faco para se fazer uma consulta a mesma ? Se vazia o Form referente a esta tabela nao abre, se tiver um item ao menos entao o form carrega .

Essa e a ultima desse post prometo.

Andre

Falou em caixa de listagem e agora fala em tabela

sim , aproveitei o ganho pra nao abrir outra consulta. O que vc passou deu certo aqui, ficou 10
so aproveitei e perguntei outra coisa.
Esse comando aqui nao esta aceitando

O Form Que quero abrir se chama A1_BaixarSite, mas so quero que ele abra se a Tabela referente a ele nao estiver vazia.

If Form.RecordsetClone.RecordCount = 0 Then
Exit Sub
End If

Fiz assim, mas ele pula o Exit Sub

If DCount("Recibo", "TblSalvarBaixa_Site") = Null Then
Exit Sub
End If

Recibo e o primeiro campo desta tabela

Eu estou no Form PDV, tenho um botao de excluir produtos que vao atualizar meu site.
Antes de excluir, ele verifica se a tabela tem ou nao algo, se tiver carrega o Form FrmBaixarSite, se nao exit Sub

Mas esta pulando o Exit Sub.

Andre

Boa tarde
Aprenda com o fórum
Acompanhe os temas mesmo que não ajude, aprende

Não deve fazer comparação com Null, deve saber de é Null utilizando a função IsNull
A função DCount faz a contagem e a contagem nunca é nula, pode ser zero

No seu caso
If DCount("Recibo", "TblSalvarBaixa_Site") = 0 Then Exit Sub

Muito obrigado de novo.
Eu acompanho sim , tanto que entro aqui quase todos os dias. Aprendi muito neste forum, e sempre uso a pesquisa na medida do possivel, mas as vezes nao esta totalmente de acordo com meu proposito.
Aprendi muito ate aqui neste forum, sempre falo isso.
No momento é isso.

Valeu mesmo pelas dicas dos comandos .

Andre