Boa tarde!
Tenho o código abaixo que foi retirado do forum, que funciona muito bem porém ele só aceita na tabela de destino valores, mas preciso inserir texto nos campos.
Se alguém poder me ajudar agradeço.
Public Sub Converte(ByVal TabOrigem As String, ByVal TabDestino As String)
Dim i As Integer
Dim sql As String
Dim rst As DAO.Recordset
'abre a tabela de origem
sql = "SELECT * FROM tblExemplo_Origem"
Set rst = CurrentDb.OpenRecordset(sql)
With rst
Do While Not .EOF
With .Fields
'percorre os registros da tabela de origem e faz um insert na tabela de destino
For i = 0 To .Count - 1 Step 1
sql = "INSERT INTO tblExemplo_Destino (Embalagem, QTD) VALUES ('" & .Item(i).Name & "'," & .Item(i).Value & ");"
CurrentDb.Execute (sql)
Next i
End With
.MoveNext
Loop
End With
Set rst = Nothing
End Sub
Tenho o código abaixo que foi retirado do forum, que funciona muito bem porém ele só aceita na tabela de destino valores, mas preciso inserir texto nos campos.
Se alguém poder me ajudar agradeço.
Public Sub Converte(ByVal TabOrigem As String, ByVal TabDestino As String)
Dim i As Integer
Dim sql As String
Dim rst As DAO.Recordset
'abre a tabela de origem
sql = "SELECT * FROM tblExemplo_Origem"
Set rst = CurrentDb.OpenRecordset(sql)
With rst
Do While Not .EOF
With .Fields
'percorre os registros da tabela de origem e faz um insert na tabela de destino
For i = 0 To .Count - 1 Step 1
sql = "INSERT INTO tblExemplo_Destino (Embalagem, QTD) VALUES ('" & .Item(i).Name & "'," & .Item(i).Value & ");"
CurrentDb.Execute (sql)
Next i
End With
.MoveNext
Loop
End With
Set rst = Nothing
End Sub