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]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela.

    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 371
    Registrado : 17/04/2011

    [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela. Empty [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela.

    Mensagem  Walter 18/7/2022, 10:22

    Bom dia, amigos.
    Tenho uma tabela chamada Tbl_Titular. Nela tem vários campos, entre eles tem o campo tipo Texto  chamado ACS, onde vai o nome dos Agentes Comunitários de Saúde.
    Acontece que, quando um ACS para de trabalhar, e é substituido por outro, tenho que mudar o nome UM POR UM na Tabela. Gostaria que me ajudassem a criar uma Formulario Simples onde escolho o ACS que não mais trabalha e o substituo pelo NOVO ACS. E que essas alterações sem feitas em todos os registros QUE TEM ESSE ACS, claro!
    Encontrei um código do Mestre JPaulo que talvez possa ser adaptado para isso, mas não consegui fazê-lo.
    O topico do JPaulo é esse:
    https://www.maximoaccess.com/t1154-resolvidocodigo-que-permita-localizar-e-substituir-valores

    E o cógido que ele criou é esse:

    ...............................................................................................
    Ola Hugo;

    Cole num modulo novo, altere para o nome da sua tabela e salve;

    Public Sub Substitui()
    'By JPaulo ® Maximo Access
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim strSQL As String

    Set db = CurrentDb()

    strSQL = "SELECT * FROM SuaTabela"

    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

    rst.MoveFirst
    Do Until rst.EOF
    For Each fld In rst.Fields
    If fld.Value = "P" Then
    rst.Edit
    fld.Value = "Pendente"
    rst.Update
    End If

    Next fld
    rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    End Sub


    Para chamar este Sub, pode colocar no evento ao pressionar de um botão: Call Substitui

    .....................................................................................

    Obrigado.


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7586
    Registrado : 15/03/2013

    [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela. Empty Re: [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela.

    Mensagem  Alvaro Teixeira 18/7/2022, 11:48

    Olá Walter,

    Pode fazer apenas com uma consulta atualizar.
    Se tiver dificuldades, partilhe a tabela que pretende alterar e a tabela das ACS com dados de teste mas coerentes.

    Assim fica mais fácil para qualquer membro ajudar.

    Abraço

    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 371
    Registrado : 17/04/2011

    [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela. Empty Re: [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela.

    Mensagem  Walter 23/7/2022, 15:13

    Perfeito, Alvaro.

    Consegui fazer, sim. Muito obrigado pela sugestão!

    Um grande abraço.

    Walter


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7586
    Registrado : 15/03/2013

    [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela. Empty Re: [Resolvido]Código que ENCONTRA e SUBSTITUI dados massivamente em uma tabela.

    Mensagem  Alvaro Teixeira 24/7/2022, 11:47

    Olá Walter,

    Obrigado pelo feedback, o fórum agradece.

    Abraço

      Data/hora atual: 15/8/2022, 14:51