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

    Converte Linhas em colunas

    Compartilhe

    RONAPI
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/03/2012

    Converte Linhas em colunas

    Mensagem  RONAPI em 25/4/2018, 20:01

    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
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: Converte Linhas em colunas

    Mensagem  Cláudio Más em 25/4/2018, 22:38

    Tente assim:

    sql = "INSERT INTO tblExemplo_Destino (Embalagem, QTD) VALUES ('" & .Item(i).Name & "', '" & .Item(i).Value & "');"

    RONAPI
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/03/2012

    Re: Converte Linhas em colunas

    Mensagem  RONAPI em 2/5/2018, 22:46

    Perfeito funcionou.

    Grato pela ajuda.
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: Converte Linhas em colunas

    Mensagem  Cláudio Más em 3/5/2018, 13:28

    De nada.

      Data/hora atual: 21/11/2018, 02:20