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

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    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 : 322
    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 : 322
    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 : 229
    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 : 322
    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 : 229
    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 : 322
    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/11/2019, 14:00