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]Como gravar data sem as barras

    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 243
    Registrado : 20/01/2011

    [Resolvido]Como gravar data sem as barras Empty [Resolvido]Como gravar data sem as barras

    Mensagem  Vanderlei 26/9/2019, 11:09

    Ola
    Procurei mas não encontrei.
    Gostaria de saber se ha como gravar uma data em sem as barras da entrada de dados, tipo 25/09/2019 em 25092019
    Grato
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  Alvaro Teixeira 26/9/2019, 12:10

    Olá Vanderlei Alves,

    Eu optava por guardar em formato data e "formatar" quando necessitar dessa forma.

    Resumindo com o Format resolve a questão de retirar as barras, veja:
    [Resolvido]Como gravar data sem as barras 091

    Caso pretenda gravar nesse formato na base de dados, deve ter um campo apropriado e fazer o tratamento com o format antes de gravar.
    Com o Replace, também pode obter o mesmo resultado, será fazer pesquisa.

    Abraço
    avatar
    delsonk
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 26/11/2013

    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  delsonk 26/9/2019, 12:12

    Bom dia!

    Utilizando o exemplo que o Sr IvanJr postou..

    Tirando a barra, usando o comando replace

    Código VBA:
       replace(Campo; "/"; "")

    Atenciosamente, Delson
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 243
    Registrado : 20/01/2011

    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  Vanderlei 26/9/2019, 13:37

    em qual evento eu coloco este código
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 243
    Registrado : 20/01/2011

    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  Vanderlei 27/9/2019, 15:10

    Resolvido com a dica do colega Scandinavo

    OldName = strLocal: NewName = strLocal & "_" & Day(Me.DataRecibo) & Month(Me.DataRecibo) & Year(Me.DataRecibo) & ".pdf" 
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  Alvaro Teixeira 27/9/2019, 16:30

    Olá a todos

    Vanderlei Alves, obrigado pelo retorno, o fórum agradece.

    No entanto após o código que partilhou a solução que eu indiquei seria:
    Código:
    OldName = strLocal: NewName = strLocal & "_" & Format(Me.DataRecibo, "ddmmyyyy") & ".pdf"

    Pela dica do colega Delson Knutsen, seria:
    Código:
    OldName = strLocal: NewName = strLocal & "_" & Replace(Me.DataRecibo, "/", "") & ".pdf"

    Podemos dizer "todos os caminhos vão dar a Roma" Wink

    Abraço e bons estudos
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 243
    Registrado : 20/01/2011

    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  Vanderlei 28/9/2019, 02:15

    ahteixeira

    Valew, obrigado pelo retorno

    Achei os códigos mais objetivos. vou utilizar
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  Alvaro Teixeira 29/9/2019, 10:20

    cheers

    Conteúdo patrocinado


    [Resolvido]Como gravar data sem as barras Empty Re: [Resolvido]Como gravar data sem as barras

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:32