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]ajuda com vba

    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]ajuda com vba Empty [Resolvido]ajuda com vba

    Mensagem  Dery_santos em 10/12/2019, 01:03

    Boa tarde,


    Pessoal eu sou fraco com vba tanto acesse como excel, eu procurei aqui e não achei o que eu preciso.

    Eu tenho uma banco de dado access e preciso exportar alguns dados para um arquivo excel.
    Dentre as tabelas tenho uma de orçamento para compra de produtos.
    Nome da tabela orçamento
    Campos: número pedido, empresa , status, valor orçado.
    preciso criar uma consulta vba com uma função onde ao clicar o botão ela e exporte para uma planilha as informações relacionada ao número do pedido tipo assim.
    Vamos supor que cada número de pedido teve vários orçamentos então ficaria assim.

    Pedido 01 empresa xxx - Statos premiado - valor 100,00
    Pedido 01 empresa AAA - Statos orçou - valor 150,00
    Pedido 001 empresa BBB - Statos - orcou- valor 200,00

    Então assim a empresa premiada foi a que deu o menor orçamento.
    Ou seja cada pedido podem ter várias empresas o que muda é o status e o valor
    Com isso preciso fazer uma consulta dessas empresas fazendo o filtro pelo número do pedido e que me traga todas as empresas que deram orçamento e as informações.
    Com isso preciso que os dados sejam jogados na planilha Excel na seguinte ordem

    Na coluna A traria a empresa de menor valor com status de premiada assim:

    Coluna A linha 1 empresa
    Coluna A linha 2 status
    Coluna A linha 3 valor

    Coluna B traria os dados da segunda colocada

    Coluna B linha 1 empresa
    Coluna B linha 2 status
    Coluna B linha 3 valor.

    Isso precisaria fazer para todas as empresas que deram orçamento limitando ao total de 5 empresas.

    como eu faria isso?

    Grato
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 08/09/2012

    [Resolvido]ajuda com vba Empty Re: [Resolvido]ajuda com vba

    Mensagem  Maicon em 10/12/2019, 01:25

    Amigo o teu problema é bem simples de resolver é só usar uma consulta de referência cruzada , é tranquilo só pesquisar no F1 do Access ou em qualquer apostila e tutorial de Access. Pesquise no Google e verá uma porção de exemplos, Se preferir poste exemplo do BD que te ajudamos.

    veja este link : "https://juliobattisti.com.br/artigos/office/consultasavancadas_p1.asp" . Muito bom para entender.






    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1248
    Registrado : 07/12/2011

    [Resolvido]ajuda com vba Empty Re: [Resolvido]ajuda com vba

    Mensagem  tauron em 10/12/2019, 23:29

    Antes, gostaria que me respondesse se qual a finalidade de se exportar o resultado da apuração para o excel, sendo que vc pode ter isso em um relatorio do acccess.
    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]ajuda com vba Empty Re: [Resolvido]ajuda com vba

    Mensagem  Dery_santos em 16/12/2019, 16:31

    Boa tarde, eu também preferia em relatório access mas essas informações após ser exportadas para uma planinha Excel tem que ser completadas com mais algumas informações e após ser impressa para o gerente poder assinar e tipo uma aprovação para compra
    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]ajuda com vba Empty Re: [Resolvido]ajuda com vba

    Mensagem  Dery_santos em 16/12/2019, 16:31

    Boa tarde, eu também preferia em relatório access mas essas informações após ser exportadas para uma planinha Excel tem que ser completadas com mais algumas informações e após ser impressa para o gerente poder assinar e tipo uma aprovação para compra
    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]ajuda com vba Empty Re: [Resolvido]ajuda com vba

    Mensagem  Dery_santos em 16/12/2019, 16:32

    Por isso preciso que em cada coluna aparecia os dados de cada empresa consultada
    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]ajuda com vba Empty Re: [Resolvido]ajuda com vba

    Mensagem  Dery_santos em 27/12/2019, 11:24

    Bom resolvido , após muito tentar resolvi com o seguinte cod.
    Agradeço a todoos

    Dim REG As ADODB.Recordset

    abreConexao

    ' filtros da consulta

    whereConsulta = " NOME_PROCESSO = '" & formPrincipal.campoProcesso.Value & "'"

    ' carrega os itens

    Qsql = "SELECT TOP 7 RAZAO_SOCIAL, STATUS, PARECER_TECNICO, PROPOSTA_INICIAL, PROPOSTA_EQUALIZADA, PROPOSTA_FINAL FROM tb_processo_vl_convidado WHERE " & whereConsulta & "ORDER BY PARECER_TECNICO, STATUS DESC, PROPOSTA_FINAL"

    Set REG = New ADODB.Recordset

    REG.Open Qsql, CON, adOpenKeyset, adLockOptimistic

    With REG

    i = 0

    Do While Not .EOF


    Cells(9, 4 + i).Value = REG.Fields("RAZAO_SOCIAL").Value
    Cells(10, 4 + i).Value = REG.Fields("PARECER_TECNICO").Value
    Cells(11, 4 + i).Value = REG.Fields("PROPOSTA_INICIAL").Value
    Cells(13, 4 + i).Value = REG.Fields("PROPOSTA_EQUALIZADA").Value
    Cells(14, 4 + i).Value = REG.Fields("PROPOSTA_FINAL").Value
    Cells(18, 4 + i).Value = REG.Fields("PROPOSTA_FINAL").Value

    .MoveNext
    i = i + 1

    Loop

    End With
    fechaConexao


    End Sub

      Data/hora atual: 5/12/2020, 13:54