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

2 participantes

    [Resolvido]É possível remover a parte da hora de um campo data/hora?

    avatar
    erissonamorim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 04/08/2010

    [Resolvido]É possível remover a parte da hora de um campo data/hora? Empty É possível remover a parte da hora de um campo data/hora?

    Mensagem  erissonamorim 15/7/2012, 01:39

    Olá pessoal tudo bem!

    Possuo uma tabela com mais de 10 mil registros. Em especial eu tenho um campo data/hora o qual eu reconfigurei para armazenar apenas a data abreviada e não mais com as horas. O meu problema é que não estou conseguindo remover o valor da hora nos campos já armazenados. E eu preciso que estes campos não contenham a hora junto a data pois está gerando erro no cáculo entre datas.

    Mais uma vez agradeço a forte ajuda dada por todos do fórum!
    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]É possível remover a parte da hora de um campo data/hora? Empty Re: [Resolvido]É possível remover a parte da hora de um campo data/hora?

    Mensagem  criquio 15/7/2012, 01:55

    Crie uma cópia de segurança da tabela. Não esqueça de copiar estrutura e dados. Depois, em um botão de um formulário, tente:

    Código:
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

    Do While Not rs.EOF
        rs.Edit
            rs!NomeDoCampoData = Format(rs!NomeDoCammpoData, "dd/mm/yyyy")
            rs.MoveNext
        rs.Update
    Loop

    rs.Close
    Set rs = Nothing


    .................................................................................
    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.

    avatar
    erissonamorim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 04/08/2010

    [Resolvido]É possível remover a parte da hora de um campo data/hora? Empty Re: [Resolvido]É possível remover a parte da hora de um campo data/hora?

    Mensagem  erissonamorim 15/7/2012, 12:16

    Olá Criquio.

    Obrigado pela ajuda.

    Olha está aparecendo a mensagem de erro: "Erro em tempo de execução '3421'" Erro de conversão de tipo de dados.

    O que será que eu fiz de errado?
    Coloquei o seu código no evento ao clicar de um botão em um form. Veja o código:

    Código:
    Private Sub Comando0_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("BANCO_AGENDAMENTO")

    Do While Not rs.EOF
        rs.Edit
            rs!DATA_ATUAL = Format(rs!DATA_ATUAL, "dd/mm/yyyy")
            rs.MoveNext
        rs.Update
    Loop

    rs.Close
    Set rs = Nothing
    End Sub

    Aguardo um puxão de orelhas, rss. Obrigado Criquio.
    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]É possível remover a parte da hora de um campo data/hora? Empty Re: [Resolvido]É possível remover a parte da hora de um campo data/hora?

    Mensagem  criquio 15/7/2012, 13:37

    Deve ser o tipo do campo. Vamos tentar o seguinte: renomeie essa tabela colocando um 2 na frente do nome. Crie uma cópia só da estrutura. Formate o campo da data para dd/mm/yyyy. Agora, modifique um pouco o comando para passar os dados de uma tabela para a outra:

    Código:
    Dim rs As Recordset, rs2 As Recordset
    Set rs = CurrentDb.OpenRecordset("BANCO_AGENDAMENTO2")
    Set rs = CurrentDb.OpenRecordset("BANCO_AGENDAMENTO")

    Do While Not rs2.EOF
        rs.AddNew
            rs!Campo2 = rs2!Campo2
            ...
            rs!DATA_ATUAL = Format(rs2!DATA_ATUAL, "dd/mm/yyyy")
            rs!CampoN = rs2!CampoN
            rs2.MoveNext
        rs.Update
    Loop

    rs.Close
    Set rs = Nothing
    rs2.Close
    Set rs2 = Nothing
    End Sub
    Comecei no campo 2 porque imagino que o 1 seja uma chave primária auto numérica. Por isso, não precisaria transportá-lo. Crie uma cópia de segurança do banco antes.


    .................................................................................
    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.

    avatar
    erissonamorim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 04/08/2010

    [Resolvido]É possível remover a parte da hora de um campo data/hora? Empty Re: [Resolvido]É possível remover a parte da hora de um campo data/hora?

    Mensagem  erissonamorim 15/7/2012, 14:13

    Criquio valeu mesmo, obrigado pela atenção dispensada.
    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]É possível remover a parte da hora de um campo data/hora? Empty Re: [Resolvido]É possível remover a parte da hora de um campo data/hora?

    Mensagem  criquio 16/7/2012, 22:41

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    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.


      Data/hora atual: 25/1/2022, 17:37