MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Converte Linhas em colunas

    avatar
    RONAPI
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Converte Linhas em colunas Empty Converte Linhas em colunas

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


    Respeito às regras : Respeito às Regras 100%

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

    Converte Linhas em colunas Empty Re: Converte Linhas em colunas

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

    Tente assim:

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


    Respeito às regras : Respeito às Regras 100%

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

    Converte Linhas em colunas Empty Re: Converte Linhas em colunas

    Mensagem  RONAPI 2/5/2018, 22:46

    Perfeito funcionou.

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


    Respeito às regras : Respeito às Regras 100%

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

    Converte Linhas em colunas Empty Re: Converte Linhas em colunas

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

    De nada.

    Conteúdo patrocinado


    Converte Linhas em colunas Empty Re: Converte Linhas em colunas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 21:04