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


    [Resolvido]ajuda com vba

    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    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 : 221
    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 : 1149
    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 : 55
    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 : 55
    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 : 55
    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 : 55
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/1/2020, 21:04