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]Formato de data - Troca Dia por Mês

    avatar
    necafi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 27/06/2011

    [Resolvido]Formato de data - Troca Dia por Mês Empty [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  necafi 4/8/2015, 15:21

    Amigos, estou tentando gravar uma data de um formulário, mas ela inverte o dia e o mês. Estou usando:
    Dim n_ficha As String
         n_ficha = Format([fichaN], "00000000")

    Dim c_data As Date
         c_data = format([datacomp], "dd/mm/yyyy")

    Dim c_hora As Date
         c_hora = horacomp


         DoCmd.SetWarnings False
         DoCmd.RunSQL "INSERT INTO comparecimento (fichaN, datacomp, horacomp) VALUES (" & n_ficha & ", #" & c_data & "#, #" & c_hora & "#)"
         DoCmd.SetWarnings True

    Na tabela também coloquei formato dd/mm/yyyy.

    Meu access é o 2007.

    Agradeço muito a ajuda.
    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 184
    Registrado : 16/02/2011

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  luissiscone 4/8/2015, 16:09

    Este VbScript, arruma a data do computador para o formato que deseja, pelomenos resolve sempre que preciso;

    Set objShell = CreateObject("WScript.Shell")
    objShell.RegWrite "HKEY_CURRENT_USER\Control Panel\International\sShortDate", "dd/MM/yyyy", "REG_SZ"

    Cole em um .bat;

    Por gentileza se for testar crie um ponto de restauração antes;

    Att.
    avatar
    necafi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 27/06/2011

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  necafi 4/8/2015, 20:14

    Muito obrigado Luis pela presteza em ajudar, mas não funcionou
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  Alvaro Teixeira 4/8/2015, 22:37

    Olá, na instrução Sql coloque format(NomeCampo, "mm/dd/yyyy") e teste.
    Como já foi referido por alguém aqui no fórum, o sql no Access é "muito patriota".

    Deverá ficar assim:
    DoCmd.RunSQL "INSERT INTO comparecimento (fichaN, datacomp, horacomp) VALUES (" & n_ficha & ", #" & Format(c_data, "mm/dd/yyyy") & "#, #" & Format(c_hora, "mm/dd/yyyy") & "#)"

    Abraço
    avatar
    necafi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 27/06/2011

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  necafi 4/8/2015, 23:26

    Teixeira, obrigado.
    O problema e que está salvando no formato americano e eu quero que salve no formato brasileiro.
    Estranho que tenho outro formulário que recebe uma entrada de um leitor de código de barras e é feita o mesmo update na mesma tabela e ele grava a data no formato certo (dd/mm/yyyy) e nem preciso do format.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  Alvaro Teixeira 5/8/2015, 08:12

    Olá, testou?
    avatar
    necafi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 27/06/2011

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  necafi 7/8/2015, 14:20

    Olá Teixeira. Se colocar "format... mm/dd/yyyy", no meu entender vai salvar como mes/dia/ano e eu preciso que salve como dia/mes/ano. Mas eu resolvi de uma outra forma: vinculei a tabela ao formulário, assim é salvo exatamente como o usuário digita.
    Grato
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  Alvaro Teixeira 7/8/2015, 15:20

    Olá Nelson, obrigado pelo retorno.
    Não se esqueça de dar o tópico como resolvido, se tiver dificuldade veja link abaixo, como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Entretanto reforço a dica caso outro membro do fórum tenha a mesma dificuldades que teste no formato indicado.
    O VBA é muito patriota, utilizando o formato à Americana: MÊS/DIA/ANO

    Abraço
    avatar
    necafi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 27/06/2011

    [Resolvido]Formato de data - Troca Dia por Mês Empty funcionou

    Mensagem  necafi 15/8/2015, 02:07

    Very Happy A lógica, as vezes, não é lógica.
    Funcionou com mm/dd/yyyy. cheers

    Muito obrigado.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  Alvaro Teixeira 15/8/2015, 11:31

    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Formato de data - Troca Dia por Mês Empty Re: [Resolvido]Formato de data - Troca Dia por Mês

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:44