[Resolvido]De Para em tabela por VBA.

Amigos,

Estou usando o código abaixo para substituir dados em uma tabela.
Porém, sempre que preciso substituir o dado eu tenho que referenciar o registro que tenho para o registro que quero no código VBA.

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Comparativo where CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'") ' Like Me.txtAtivado = True '")
While (Not rs.EOF)
rs.Edit
rs("CódServiço") = Replace(rs("CódServiço"), "80021069", "60023155") 'Pretendo de colocar uma textbox que ficaria mais funcional.
rs.Update
rs.MoveNext

Wend
rs.Close
MsgBox "Registros alterados com sucesso!", vbQuestion + vbCritical, "Log"
DoCmd.Close
End If


Alguém tem uma sugestão de como incluir uma caixa de texto que recebera os valores De-Para?

Grato,

Boa noite amigos,

Esqueci de mencionar que a propriedade FilterOn =True.
O formulário abre filtrado. Alguém tem alguma dica para substituir os registros do campo?

Up.

Ola;

Esses valores "80021069", "60023155" vêm de onde ?

Se conseguir jogar esses valores em duas caixas, é simples;

rs("CódServiço") = Replace(rs("CódServiço"), Me.txtDe.Value, Me.txtPara.Value)

Perfeito Mestre,

Funcionou que é uma beleza, deixo código adaptado.

If Not IsNull("Me.cboGuia") Then
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Comparativo where CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'")
' On Error Resume Next
rs.Edit
rs("CódServiço") = Replace(rs("CódServiço"), Me.txtCodigoAntigo.Value, Me.txtCodigoNovo.Value)
rs.Update
rs.MoveNext

Wend
rs.Close


Obrigado!

Fico feliz.

Obrigado pelo retorno o forum agradece.