[Resolvido]Buscar palavra e Substituir

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

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

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".

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

Acho que não expliquei com detalhes.

Perfeito Paulo. Funcionou do jeito que queria. Muito Obrigada!

Obrigado pelo retorno o forum agradece.

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

E como seria no exemplo que anexo:

Obrigado

Assim;

Download

JPaulo

Obrigado.

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

Nop

Obrigado pelo retorno, o forum agradece.

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

Pode e deve ser melhorado ...

Mas poste se o fizer ..
Abraço