Tomás Vásquez Fórum

Olá amigos do forum estou com esse probleminha pra vcs mi ajudarem
estou querendo fazer um loop onde esse loop exclui um produto de cada vez na tabela selecionada estou usando sql e o codigo é esse:

dim result as string
dim busca as string

Set BANCO = OpenDatabase((ThisWorkbook.Path & "\EA.mdb"), False)

busca = me.text_codvenda

Set TABELA = BANCO.OpenRecordset("SELECT * from PRODUTOS where COD_VENDA LIKE '" & busca & "';")

If TABELA.EOF And TABELA.BOF Then
End If

Do Until TABELA.EOF

If TABELA("COD_PRODUTO") <> "" Then
result = TABELA("COD_PRODUTO")
End If

SQL = ("DELETE from PRODUTOS WHERE COD_VENDA LIKE '" & busca & "' AND COD_PRODUTO LIKE '" & result & "';")
BANCO.Execute SQL

TABELA.MoveNext

Loop

o codigo é esse ai, caso na consulta que eu fiz apareça quatro registro cada um tem um codigo de produto diferente, então tem que exclui produto por produto, ele pega o codigo do primeiro produto e coloca na variavel result e amarra junto com o codigo de venda que o codigo de venda é um só para todos os produtos e exclui, dai ele tem que voltar para o inicio da tabela e fazer o procedimento novamente até zerar a tabela, nesse codigo ai em cima ele exclui só que exclui o primeiro ele não exclui o resto dos produtos
deve ta faltando algum detalhe, mais o codigo é mais ou menos dessa forma
alguem mi ajuda, aradeço desde já, um abraço a todos!