Localizar e Substituir

Amigos,

Boa tarde!

Estou criando um BD que contém 2 tabelas

A Tabela "A" contém uma coluna com informações do tipo -Brasil2x1Argentina

A tabela "B" contém parte das informações da Tabela "A", por exemplo: l2x1Arge (ou seja uma parte aleatória da coluna da Tabela A)


Essas tabelas não possuem colunas em comum que possam ser associadas. Preciso encontrar alguma forma de
substituir o texto da Tabela "A" pelo texto da Tabela "B", para que assim eu crie um campo em comum entre elas.


Por exemplo: Substituir texto da Tabela "A" quando o campo contém texto da Tabela "B".

Se Brasil2x1Argentina contém l2x1Arge então l2x1Arge



Alguém pode me ajudar ?

Bom dia
Procure a funçao (inStr) do Access, que identifica se uma parte de texto esta contido em outra parte de texto

Amigo, se utilizar uma consulta com operador Like '*" & [CampoTabelaB] & "*' Terá o resultado que precisa, sendo assim, basta realizar a edição do registro e colocar o valor que quiser na tabela A.

Recomendo fazer isso por Recordset!

ou entao assim :

Código:

Dim DB As Database
Dim rstA As Recordset
Dim a As String
a = "l2x1Arge"
Set DB = CurrentDb()
Set rstA = DB.OpenRecordset("tabelaA", dbOpenDynaset)


rstA.FindFirst "Campo1 LIKE '*" & a & "*'"
  If Not rstA.NoMatch Then
    rstA.Edit
        rstA!campo1 = "l2x1Arge"
    rstA.Update
  End If

Resolvido, Obrigado ""

Bom dia,
Marque o "Resolvido", localizado na parte inferior direita do formulário do fórum