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

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!

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

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.

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.

Criquio valeu mesmo, obrigado pela atenção dispensada.

Grato pelo retorno. O fórum agradece.