[Resolvido]Copiar dados de um campo para outro em uma tabela via rotina...500 registros.

Prezados bom dia / boa tarde / boa noite.

Tenho uma tabela chamada: TblProdutoVar.

Um campo chamado: CodProdFornece onde eu tenho aproximadamente 500 registros.

Outro campo chamado: BarCode


Gostaria de uma ajuda de vocês no seguinte....

Preciso copiar tudo que está no campo CodProdFornece  para o   BarCode e são aproximadamente 500 registros.
Porém, tem um requisito no campo BarCode.

Vou exemplificar ...
CodProdFornece : 123   ao ser copiado para o campo BarCode tem que ficar assim... *123*

Tem como os colegas me ajudarem nesse quesito ?

Desde já, meus agradecimentos.

Boa noite  Sidney.
seria mais ou menos assim;

Código:

Dim db As DAO.Database
Dim sql As String

Set db = CurrentDb()

sql = "INSERT INTO BarCode (id, numero, nome) " & _
      "SELECT id, '*' & campo & '*', campo" & _
      "FROM CodProdFornece  ;"

db.Execute sql
Set db = Nothing

tudo de uma vez só
ou essa

Código:

Public Sub CopiarTabelaComModificacao()
    Dim db As DAO.Database
    Dim rsA As DAO.Recordset
    Dim rsB As DAO.Recordset
    Dim sql As String

  Set db = CurrentDb()
  Set rs("CodProdFornece  = db.OpenRecordset("CodProdFornece  ", dbOpenDynaset)
  Set rsBarCode = db.OpenRecordset("rsBarCode ", dbOpenDynaset)
    rsCodProdFornece.MoveFirst
    Do While Not rsA.EOF
        rsBarCode
        rsBarCode!campo1= Campo1 = "*" & CodProdFornece!Campo1 & "*"
        rsBarCode!Campo2 = CodProdFornece!Campo2
        rsBarCode !Campo3 = CodProdFornece!Campo3
        rsBarCode .Update
       
        rsCodProdFornece.MoveNext
    Loop
   
    ' Fechar os recordsets
  CodProdFornece.Close
    rsBarcode.Close
   
    ' Fechar a referência ao banco de dados
    Set ("CodProdFornece  = Nothing
    Set CodProdFornece = Nothing
    Set db = Nothing
End Sub

Bom dia Crysostomo !!

Vi, analisei tua resposta...e dei uma mexida na rotina. A sua ideia me ajudou muito.

Vou deixar a rotina aqui, para ajudar outros que passam pelo mesmo problema

Meu muito obrigado a você, pela ajuda, valeu mesmo !!!

Código:

Public Sub CopiarTabelaComModificacao()
    Dim db As DAO.Database
    Dim TblProdutoVar As DAO.Recordset

    Set db = CurrentDb()
    Set TblProdutoVar = db.OpenRecordset("SELECT * FROM TblProdutoVar", dbOpenDynaset)

    TblProdutoVar.MoveFirst
    Do While Not TblProdutoVar.EOF
        TblProdutoVar.Edit
        TblProdutoVar!barcode = "*" & TblProdutoVar!CodProdFornece & "*"
     
        TblProdutoVar.Update
        TblProdutoVar.MoveNext
    Loop
   
    TblProdutoVar.Close
   
    Set TblProdutoVar = Nothing
    Set db = Nothing
End Sub

Boa tarde camarada.
Que bom.
Sucesso...