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]Gerar arquivos x listbox

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos x listbox Empty [Resolvido]Gerar arquivos x listbox

    Mensagem  msilveir em 24/7/2019, 16:02

    Ola Pessoal

    tenho esse codigo em botao num formulario para gerar um arquivo xlsx
    tem uma listbox que filtro a consulta que gera esse xlsx

    DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\Pedidos.xlsx", False

    PFo
    Tarde
    Manha
    SC
    Parana

    eu gostaria de clicar no nome exemplo tarde ou em qualquer da lista
    e o arquivo iria com esse nome da lista

    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 343
    Registrado : 12/01/2017

    [Resolvido]Gerar arquivos x listbox Empty Re: [Resolvido]Gerar arquivos x listbox

    Mensagem  thiagonsilvaa em 24/7/2019, 17:59

    Poste sua base para verificar.
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 343
    Registrado : 12/01/2017

    [Resolvido]Gerar arquivos x listbox Empty Re: [Resolvido]Gerar arquivos x listbox

    Mensagem  thiagonsilvaa em 24/7/2019, 18:08

    Acredito que isso resolva seu problema:

    DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\" & Me.SUALISTA.Column(0) & ".xlsx", False

    Obs: entre parênteses coloque a coluna respectiva ao nome que você quer dar lembrando que sempre inicia do 0.
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos x listbox Empty Re: [Resolvido]Gerar arquivos x listbox

    Mensagem  msilveir em 24/7/2019, 19:04

    Ola thiagonsilvaa

    funcionou perfeito a sua dica olha como ficou , so esqueci de dizer que preciso mais uma informaçao junto com nome a data e hora
    tenho esse codigo para data e hora nao consegui concatenar junto com nome

    & Format(Now, "ddmmyyyy-hhmm") &



    DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\" & Me.lista.Column(0) & ".xlsx"

    gerar assim o arquivo tarde.xlsx , mas preciso assim tarde-24072019-1503



    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 343
    Registrado : 12/01/2017

    [Resolvido]Gerar arquivos x listbox Empty Re: [Resolvido]Gerar arquivos x listbox

    Mensagem  thiagonsilvaa em 24/7/2019, 19:15

    Veja se é isto:


    Código:
    Dim dataatual
    dataatual = Format(Now, "ddmmyyyy-hhmm")

    DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\" & Me.lista.Column(0) & "-" & dataatual & ".xlsx", false

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos x listbox Empty Re: [Resolvido]Gerar arquivos x listbox

    Mensagem  msilveir em 25/7/2019, 01:04

    Ola thiagonsilvaa

    funcionou certinho o código vou deixar para futuras consultas , muito obrigado nesse topico

    Dim DataDia

    DataDia = Format(Now, "ddmm-hhmm")


    If IsNull(Me.lista) Then
    MsgBox "Escolha o Turno!!", vbCritical, "Atenção"
    Me.lista.SetFocus

    Else

    DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\Enviados\" & Me.lista.Column(0) & "-" & DataDia & ".xlsx"

    MsgBox "Arquivo Gerado com Sucesso!!!", vbInformation, "Atenção"


    End If


    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 343
    Registrado : 12/01/2017

    [Resolvido]Gerar arquivos x listbox Empty Re: [Resolvido]Gerar arquivos x listbox

    Mensagem  thiagonsilvaa em 25/7/2019, 13:59

    O fórum agradece o retorno !

    Até a próxima.

      Data/hora atual: 6/8/2020, 02:34