MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Localizar e Substituir

    Compartilhe

    anisioestevao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 28/11/2016

    Localizar e Substituir

    Mensagem  anisioestevao em 27/4/2018, 21:12

    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 ?









    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 76
    Registrado : 27/10/2013

    Re: Localizar e Substituir

    Mensagem  cpampas em 30/4/2018, 10:00

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: Localizar e Substituir

    Mensagem  FabioPaes em 30/4/2018, 14:40

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 76
    Registrado : 27/10/2013

    Re: Localizar e Substituir

    Mensagem  cpampas em 30/4/2018, 20:17

    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

    anisioestevao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 28/11/2016

    Re: Localizar e Substituir

    Mensagem  anisioestevao em 1/6/2018, 15:16

    Resolvido, Obrigado ""
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7032
    Registrado : 05/11/2009

    Re: Localizar e Substituir

    Mensagem  Alexandre Neves em 2/6/2018, 10:29

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 19/11/2018, 03:41