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

    [Resolvido]Buscar palavra e Substituir

    Compartilhe

    marli
    Novato
    Novato

    Respeito às Regras 100%

    Mensagens : 26
    Registrado : 22/03/2012

    [Resolvido]Buscar palavra e Substituir

    Mensagem  marli em Ter 28 Mar 2017, 21:39

    Gostaria da ajuda dos amigos. Tenho duas caixas de texto: na caixa "Procura" digito a palavra que quero encontrar na tabela e na caixa de texto "Altera" digito a palavra para substituir. Este programa está funcionando, aliás peguei aqui no forum, e agora quero substituir "Sergipe" e "Alagoas" pelas variáveis Busca e Altera. Já tentei várias formas e não consegui até agora. Agradeço toda ajuda!


    Private Sub Comando22_Click()
    'By JPaulo ® Maximo Access
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim strSQL As String
    Dim Busca As String
    Dim Altera As String

    Busca = Procura.Value
    Altera = Substitui.Value

    Set db = CurrentDb()

    strSQL = "SELECT * FROM Cadastro"

    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

    rst.MoveFirst
    Do Until rst.EOF
    For Each fld In rst.Fields
    If fld.Value Like "*Sergipe*" Then
    rst.Edit
    fld.Value = "Alagoas"
    rst.Update
    End If

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  JPaulo em Qua 29 Mar 2017, 09:38

    Olá;

    No código abaixo, altere para os nomes corretos do seu BD;

    *SeuBotão_Click
    *SuaTabela
    *SuaCaixaProcura
    *SuaCaixaSubstitui

    Teste e retorne por favor;

    Código:
    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    '2017-03-29
    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 Like "*" & Me.SuaCaixaProcura.Value & "*" Then
            rst.Edit
            fld.Value = Me.SuaCaixaSubstitui.Value
            rst.Update
        End If

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    marli
    Novato
    Novato

    Respeito às Regras 100%

    Mensagens : 26
    Registrado : 22/03/2012

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  marli em Qua 29 Mar 2017, 14:14

    Oi Paulo, obrigada pela atenção. Fiz a alteração.
    Está substituindo só que todo o conteúdo do campo, gostaria por exemplo: no campo tem "suco de abacate" gostaria de buscar a palavra abacate e substituir por "laranja", ficando "suco de laranja", mas está substituindo tudo e ficando somente "laranja".
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  JPaulo em Qua 29 Mar 2017, 14:43

    Ou não tomei a devida atenção, ou você não pediu isso;

    Teste por favor e retorne;

    Código:
    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    '2017-03-29
    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 Like "*" & Me.SuaCaixaProcura.Value & "*" Then
            rst.Edit
                fld.Value = Replace(fld.Value, Me.SuaCaixaProcura.Value, Me.SuaCaixaSubstituir.Value)
            rst.Update
        End If

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    marli
    Novato
    Novato

    Respeito às Regras 100%

    Mensagens : 26
    Registrado : 22/03/2012

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  marli em Qua 29 Mar 2017, 14:51

    Acho que não expliquei com detalhes.

    Perfeito Paulo. Funcionou do jeito que queria. Muito Obrigada!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  JPaulo em Qua 29 Mar 2017, 15:01

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2934
    Registrado : 06/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  Assis em Qua 29 Mar 2017, 17:06

    Olá JPaulo
    O tópico está como resolvido mas acompanhei.

    E como seria no exemplo que anexo:

    Obrigado
    Anexos
    Procura Palavra e Altera.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 4 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  JPaulo em Qua 29 Mar 2017, 17:27

    Assim;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2934
    Registrado : 06/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  Assis em Qua 29 Mar 2017, 17:41

    JPaulo

    Obrigado.

    Até parece que já sabia que ia ser pedido ..... rsrsrsrsrsrs


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  JPaulo em Qua 29 Mar 2017, 17:50

    Nop

    Obrigado pelo retorno, o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2934
    Registrado : 06/11/2009

    Re: [Resolvido]Buscar palavra e Substituir

    Mensagem  Assis em Qua 29 Mar 2017, 20:19

    Boa noite
    Fica aqui o exemplo pode servir para um Amigo....

    Pode e deve ser melhorado ...

    Mas poste se o fizer ..
    Abraço
    Anexos
    Procura Palavra e Altera.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 5 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Sab 23 Set 2017, 06:47