[Resolvido]Procurar e alterar campo específico na tabela.

Boa tarde a todos. Preciso de ajuda para resolver uma questão no bando de dados. Tenho uma tabela que armazena registros em um campo chamado[Documento].Gostaria de fazer uma busca em todos os registros da tabela que tivessem o mesmo número no campo [Documento] e deletar ou adicionar a expressão "Quitado" no campo [situacao] para ou excluir de vez da tabela ou deixar marcado como "Quitado".

Estou usando o exemplo abaixo, ele até executa o comando ,mas se houver 3 linhas com o mesmo número de documento ele só marca o primeiro como quitado

Dim i As Variant
i = DLookup("[Documento]", "Areceber", "[Documento] = '" & [txtdoc2] & "'")
If i > 0 Then
[situacao] = "quitado"

End If

Olá Clemerson,

Use Instruções SQL, conforme abaixo:

Código:



CurrentDb.Execute ("UPDATE Areceber SET situacao = 'quitado' WHERE Documento = '" & Trim(Me.txtdoc2) & "'")



É isso!!
Espero ter ajudado.
[]'s

FIM

Alexandre ,muito obrigado, funcionou perfeitamente, mas e se caso eu quisesse deletar os registros ao invés de marcá-los como quitados?

Olá Clemerson,

Para excluir:

Código:



    If MsgBox("Deseja realmente excluir o(s) registro(s)?", vbQuestion + vbYesNo, "Confirma?(S/N)") = vbYes Then
        CurrentDb.Execute ("DELETE FROM Areceber WHERE Documento = '" & Trim(Me.txtdoc2) & "'")
    End If



OBS: Neste caso, é prudente colocar uma mensagem para o usuário sobre a exclusão do registro.

É isso.
Espero ter ajudado.
[]'s

FIM

Funcionou perfeitamente alexandre.Obrigado!

Valeu Clemerson,
O fórum agradece.
Sucesso !!!