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

    Transformar uma tabela de referencia cruzada em uma tabela simples via consulta

    avatar
    renatobferrari
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 12/01/2015

    Transformar uma tabela de referencia cruzada em uma tabela simples via consulta Empty Transformar uma tabela de referencia cruzada em uma tabela simples via consulta

    Mensagem  renatobferrari 12/1/2015, 18:56

    Amigos, boa tarde.

    Estou com uma dúvida muito básica, ao meu ver, no Access, pois sou novo usuário... Tenho uma tabela que extraio de um sistema que vem em um formato igual ao de uma "tabela de referência cruzada" e preciso transformá-la em uma tabela simples, colocando os dados de vendas mensais, que estão em colunas, em linhas (uma linha para cada mês). Sei fazer em excel, porém, minha base de dados é gigantesca e o excel não tem linha suficiente.

    Vejam o anexo simplificado de como vem as informações do sistema e como ela deve ficar (como tabela simples).

    Alguém pode me ajudar?

    Obrigado.
    Anexos
    Transformar uma tabela de referencia cruzada em uma tabela simples via consulta Attachmentduvida access.xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (10 Kb) Baixado 10 vez(es)
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Transformar uma tabela de referencia cruzada em uma tabela simples via consulta Empty Re: Transformar uma tabela de referencia cruzada em uma tabela simples via consulta

    Mensagem  Dilson 17/1/2015, 14:14

    Olá renatobferrari, seja bem vindo ao MaximoAccess !

    Criei o código para agir informando o mês:

    'Código criado em 17/01/2015 por Dilson do MaximoAccess e AccessDoProgramador
    'para o usuário renatobferrari no MaximoAccess
    Dim Rs As Recordset
    Dim qArray As Variant
    Dim qMes As String
    Set Rs = CurrentDb.OpenRecordset("SuaTabelaColuna")
    Rs.MoveLast
    Rs.MoveFirst
    qMes = Me!cboMes
    Do While Not Rs.EOF
    If Rs((qMes)).Name = qMes Then
       qArray = Array(Rs(qMes))
          For i = LBound(qArray) To UBound(qArray)
               CurrentDb.Execute "INSERT INTO SuaTabelaLinha " _
               & "(LOCAL, LOJA, mes, venda)" _
               & " VALUES('" & Rs("LOCAL") & "', '" & Rs("LOJA") & "', " _
               & "'" & Rs(qMes).Name & "', '" & qArray(i) & "')"
          Next i
    End If
    Rs.MoveNext
    Loop
    MsgBox "OK"


    Aqui o exemplo para que implemente da forma que desejar:
    Anexos
    Transformar uma tabela de referencia cruzada em uma tabela simples via consulta AttachmentExColunaParaLinha.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 54 vez(es)

      Data/hora atual: 7/11/2024, 21:56