[Resolvido]String para localizar dados e substituir

Pessoal existe alguma string que possa roda para que seja trocado alguns numeros de uma tabela que tenho.

Exemplo da tabela1
1º campo tenho a data
2º tenho numeros
3º tenho textos

entao ficaria assim
01/01/2012|55|lançamento
02/02/2012|10|teste
25/02/2012|15|lançamento
06/05/2012|55|lançamento

exemplo da tabela2
36|lançamento
58|teste


entao vou criar um novo campo na tabela1 e direto da tabela1 vai fazer uma consulta na tabela2 por texto se tiver o texto da tabela2 igual da tabela1 entao vai me trazer o numero que esta na frente da tabela2 para a tabela1

ficaria assim
01/01/2012|55|lançamento|36
02/02/2012|10|teste|58
25/02/2012|15|lançamento|36
06/05/2012|55|lançamento|36

Ola Vagner, seja bem vindo ao fórum;

Você pode fazer o simples;

Crie o novo campo numerico na tabela1.

Crie uma consulta nova em modo SQL, cole e altere para os nomes corretos;


UPDATE tabela1 AS t, [SELECT * FROM Tabela2]. AS h
SET t.NovoCampo = h.CampoNumero
WHERE (((t.[CampoTexto])=h.[CampoTexto]));



Por VBA

Dim strSQL As String
strSQL = "UPDATE Tabela1 AS t, (SELECT * FROM Tabela2) AS h Set t.NovoCampo = h.CampoNumero WHERE t.CampoTexto=h.CampoTexto"
DoCmd.RunSQL (strSQL)

Obrigado