MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Converter linhas em colunas

    avatar
    morthales
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/10/2012

    [Resolvido]Converter linhas em colunas Empty Converter linhas em colunas

    Mensagem  morthales em Qui 18 Out - 11:35

    Estou com dificuldades de converter uma tabela, onde as linhas deveriam ser colunas

    Tabela original:
    SB MB CB RB AB
    15 25 33 44 55

    resultado desejado:
    Embalagem QTD
    SB 15
    MB 25
    CB 33
    RB 44
    AB 55

    Como eu posso fazer isso pelo Access?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10604
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em Qui 18 Out - 12:42

    Ola seja bem vindo ao fórum;

    Veja este exemplo que montei para si, (Tem de ter uma tabela de destino);

    Anexos
    [Resolvido]Converter linhas em colunas AttachmentConverteLinhasEmColunas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 410 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    morthales
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/10/2012

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  morthales em Sex 19 Out - 15:35

    Perfeito!

    Obrigado!!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7737
    Registrado : 05/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  Alexandre Neves em Sex 19 Out - 17:27

    Boa noite, morthales, e bem-vindo ao fórum
    [Resolvido]Converter linhas em colunas MaximoAccess%20ResolvidoMarcado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    morthales
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/10/2012

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  morthales em Sab 20 Out - 10:28

    É possível que no começo do código eu deleta a tabela destino e crie ela novamente em branco?
    Minha intenção é que os dados se sobreponham cada vez que eu rode esta rotina, como está eles estão sendo agregados
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10604
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em Sab 20 Out - 13:12

    Sim é possivel;

    Aproveite e estude um pouco sobre SQL, tem aqui salas proprias para enriquecer os seus conhecimentos;


    Public Sub Converte(ByVal TabOrigem As String, ByVal TabDestino As String)
    Dim i As Integer
    Dim sql As String, sql1 As String
    Dim rst As DAO.Recordset

    'abre a tabela de origem
    sql = "SELECT * FROM tblExemplo_Origem"
    'sql para deletar a tabela destino
    sql1 = "DELETE * FROM tblExemplo_Destino"
    Set rst = CurrentDb.OpenRecordset(sql)
    'corre o sql para deletar a tabela destino
    CurrentDb.Execute (sql1)

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    milan007
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1
    Registrado : 24/09/2015

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  milan007 em Ter 22 Dez - 13:39

    Gostaria saber se é possível aplicar o mesmo raciocínio, mas no sentido contrario?
    Por exemplo>>

    Tabela original:
    Embalagem QTD
    SB 15 20
    MB 25 3
    CB 33 50
    RB 44 90
    AB 55 100
    (tenho 50 tipos de embalagens)

    resultado desejado:
    SB MB CB RB AB
    15 25 33 44 55
    20  3 50  90 100
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10604
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em Ter 22 Dez - 13:53



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    jasalima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 10
    Registrado : 18/06/2018

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  jasalima em Sex 8 Fev - 10:15

    Oi pessoal,

    estou fazendo uma consulta que está me retornando por colunas e eu queria agregar os dados por linha, para fazer um gráfico de rosca, vi o problema já apresentado aqui antes mas eu queria passar pra vcs para receber uma possível solução.
    a consulta está retornando assim:

    Aluno   |  Professor | Técnico | Total
    28,38%|   41,89% |  29,73%| 100%

    Gostaria que ficasse assim:

    Aluno| 28,38%
    Professor| 41,89%
    Técnico |   29,73%

    De já, Agradeço!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10604
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em Sex 8 Fev - 10:35

    Amigão, o exemplo da mensagem Nº2 faz mesmo isso que pretende.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    jasalima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 10
    Registrado : 18/06/2018

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  jasalima em Sex 8 Fev - 21:12

    Mas estou trabalhando com consulta João Paulo, então precisaria da rotina de forma automática sem precisar apertar botão. Meo de é mysql e ao atualizar os lançamentos os valores tb alteram. De toda sorte agradeço a atenção dispensada! Gráfico de rosca no access é bem complexo! Precisaria dos dados da consulta da forma que exemplifiquei. Abs

      Data/hora atual: Qua 21 Out - 15:37