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


3 participantes

    [Resolvido]Formatar Nome de Arquivo em VBA

    casilveira
    casilveira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 10/02/2012

    [Resolvido]Formatar Nome de Arquivo em VBA Empty Formatar Nome de Arquivo em VBA

    Mensagem  casilveira 28/3/2012, 17:39

    Boa tarde a todos

    Quero gerar nomes para arquivar documentos de forma padrão, Estes dados não tem que ter relacionamento com um banco de dados por isso quero gerar a partir de dados lançados na hora.
    Na consulta sei que funciona assim:

    NomeArqui:[TipoArqui] & "." & [Oque] & "." & Format(Agora(), "dd") ' & "." & Format(Agora(),"mm") & "." & Format(Agora(),"yy") & "." & Format(Agora(),"hhnn") & "." & Format(Agora(),"ww")

    IDNomeArqui_____TipoArqui_______Oque____DataH___________NomeArqui
    1_______________Layout_________Planta__28/03/2012________Layout.Planta.28.03.12.1340.13

    Quero criar no formulário um botão que gere o nome de arquivo e o copie, tipo:

    Private Sub GerarNome_Click()
    NomeArqui = [TipoArqui] & "." & [Oque] & "." & Format(Agora(), "dd") ' & "." & Format(Agora(),"mm") & "." & Format(Agora(),"yy") & "." & Format(Agora(),"hhnn") & "." & Format(Agora(),"ww")
    End Sub


    Aonde,
    [TipoArquivo] é uma caixa de combinação Opções "Layout", "Orçamento", "Montagem", etc..
    [Oque] é uma caixa de texto contendo uma descrição sussinta do assunto.

    O resto é a forma de individualização do arquivo.


    Preciso de ajuda na sintax correta.

    Desde já agradeço a habitual ajuda.


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Formatar Nome de Arquivo em VBA Empty Re: [Resolvido]Formatar Nome de Arquivo em VBA

    Mensagem  criquio 28/3/2012, 18:00

    TipoArqui e OQue são campos que estão no formulário? Se for, me parece estar tudo certo. Aparece alguma mensagem de erro?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Formatar Nome de Arquivo em VBA Empty Re: [Resolvido]Formatar Nome de Arquivo em VBA

    Mensagem  Alexandre Neves 28/3/2012, 18:07

    Boa tarde,

    Não percebi bem onde tem a dúvida, mas poderá simplificar assim:
    NomeArqui = [TipoArqui] & "." & [Oque] & "." & Format(Agora(), "dd.mm.yy.hhnn.ww")
    casilveira
    casilveira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 10/02/2012

    [Resolvido]Formatar Nome de Arquivo em VBA Empty Re: [Resolvido]Formatar Nome de Arquivo em VBA

    Mensagem  casilveira 28/3/2012, 18:17

    Caros Amigos

    Meu erro na sintax foi usar Agora() quando o correto seria Now()

    NomeArqui = [TipoArqui] & "." & [Oque] & "." & Format(Now(), "dd") & "." & Format(Now(), "mm") & "." & Format(Now(), "yy") & "." & Format(Now(), "hh") & "." & Format(Now(), "nn")

    Alexandre sua dica foi ótima, obrigado, ficou assim:

    NomeArqui = [TipoArqui] & "." & [Oque] & "." & Format(Now(), "dd.mm.yy.hh.nn")

    Grato aos Amigos de sempre.

    Carlos Silveira
    casilveira
    casilveira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 10/02/2012

    [Resolvido]Formatar Nome de Arquivo em VBA Empty Re: [Resolvido]Formatar Nome de Arquivo em VBA

    Mensagem  casilveira 28/3/2012, 18:19

    Alias

    Tudo resolvido novamente.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Formatar Nome de Arquivo em VBA Empty Re: [Resolvido]Formatar Nome de Arquivo em VBA

    Mensagem  Alexandre Neves 28/3/2012, 21:15

    Ainda bem que resolveu.
    Não atentei à diferença entre Agora e Now, porque muitos colegas utilizam expressões em Português e outros em Inglês.
    Quase só utilizo VBA e é sempre em inglês.

    Conteúdo patrocinado


    [Resolvido]Formatar Nome de Arquivo em VBA Empty Re: [Resolvido]Formatar Nome de Arquivo em VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 00:51