MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 28/02/2012

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

    Mensagem  clemerson 8/2/2022, 18:16

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 9/2/2022, 04:39

    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


    .................................................................................
    [Resolvido]Procurar e alterar campo específico na tabela. Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Procurar e alterar campo específico na tabela. Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Procurar e alterar campo específico na tabela. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 28/02/2012

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

    Mensagem  clemerson 9/2/2022, 05:40

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 9/2/2022, 13:48

    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


    .................................................................................
    [Resolvido]Procurar e alterar campo específico na tabela. Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Procurar e alterar campo específico na tabela. Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Procurar e alterar campo específico na tabela. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 28/02/2012

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

    Mensagem  clemerson 10/2/2022, 14:36

    Funcionou perfeitamente alexandre.Obrigado!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 10/2/2022, 14:49

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


    .................................................................................
    [Resolvido]Procurar e alterar campo específico na tabela. Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Procurar e alterar campo específico na tabela. Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Procurar e alterar campo específico na tabela. Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 18/5/2022, 23:13