Substituição de dados

Olá amigos!
Saudações!

Comecei a usar o access a pouco tempo, e estou com uma dúvida.

É o seguinte, tenho uma banco de dados para o fluxo de caixa da empresa, uma das colunas contém um código, que identifica qual foi o tipo de transação.
Ocorre que houve uma reformulação nesse grupo de despesas, e todos os códigos mudaram!

Se fosse no Excel eu faria um procv ali e pronto, mas no Access não sei

Deixa eu desenhar então o que eu quero!! hehe



uma consulta que verificasse na tabela de de/para e substituisse os registros da tabela dos gastos, substituindo os códigos antigos pelos novos e também o texto.

Tentei aqui fazer uma consulta mas não deu! =/

grato pela ajuda!!

Abs

Olá, seja bem vindo ao fórum!

Está meio obscuro ainda para mim. As tabelas contem dados diferentes. Como essas alterações serão executadas? Copiando de uma tabela para outra? Ou crescendo o último número? Tipo:

1.1.1.1
1.1.1.2
1.1.1.3
...

E será sempre essa sequência? Dê todos os detalhes.

Obrigado pela resposta criquio.

É assim, na tabela de gastos, foram incluidos os gastos da empresa dos meses passados, as colunas contém data, valor, observação, banco, etc.
Também tem duas colunas, que os dados do plano de contas, que são as colunas código e grupodespesas.

Acontece que houve uma reformulação nesse plano de contas, então, por exemplo, o código que era 2.3.4, virou 5.4.3.1, e também o texto referente a esse código foi alterado (o texto que fica na coluna grupodespesas).

Então, eu quero que todos os registros da coluna da tabela de gastos sejam alterados, então onde consta o código 2.3.4, atualize para o código novo....

Consegui me explicar? rs
De uma olhada na imagem que postei, talvez agora esclareça.

Abs

Se a ideia é apenas substituir grupos de números iguais por outros iguais, pode tentar algo assim:

CurrentDb.Execute "UPDATE NomeDaTabela SET NomeDoCampo='5.4.3.1' WHERE NomeDoCampo='2.3.4'"

Se a quantidade de grupos a alterar for grande, pode utilizar tambem algo assim:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Do While Not rs.EOF
    rs.Edit
    rs!NomeDoCampo = Replace(Replace(Replace(rs!NomeDoCampo, "2.3.4", "5.4.3.1"), "C2Antigo", "C2Novo"), "C3Antigo", "C3Novo")
    rs.Update
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Dei como exemplo a alteração de três tipos de códigos. Basta acrescentar mais Replaces se necessário.

Valeu criquio!

Então cara, são mais ou menos 193 códigos...
Queria algo que alterasse todos de uma vez.

Eu tenho essa tabela, que tem os códigos antigos e os códigos novos:



Coloquei nessa disposição pq sou bem acostumado com o Excel, se fosse no Excel eu faria um procv do código antigo para pegar o código novo... seria mais ou menos essa a idéia.

Valeu pela ajuda

Att,

Então você tem tudo cadastrado em uma tabela, certo? Ou seja, código antigo em uma coluna e código novo na outra, certo? E quer atualizar em outra tabela, certo? Nesse caso, poderemos utilizar dois Recordsetes, sendo um utilizando o DISTINCT para filtrar os códigos sem repetir códigos iguais. Comparando esse, subtitituimos todos pelo novo código utilizando o segundo Recordset:

Código:

Dim rs1 As Recordset, rs2 As Recordset

Set rs1 = CurrentDb.OpenRecordset("SELECT DISTINCT [codigo antigo] FROM NomeDaTabela")
    Do While Not rs.EOF
        Set rs2 = CurrentDb.OpenRecordset("SELECT DISTINCT codigo FROM NomeDaTabela WHERE [codigo antigo] =" & rs1("codigo antigo") & "")
        CurrentDb.Execute "UPDATE NomeDaTabela SET codigo=" & rs2!codigo & ""
        rs.MoveNext
    Loop
        rs1.Close
        Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing

Faça o teste em uma cópia do banco.