[Resolvido]Inserir Data e Hora

Boa tarde Amigos

Tenho este código que regista dados numa tabela.

No campo " DataM " ele insere a data.

Queria que nesse campo " DataM " inserisse a Data e a Hora

Sub MovimentosAutomaticos()
'código Alterado por Cláudio Más
Dim D As Byte, DataComparacao As Date, M As Byte
For M = 1 To Month(Date)
   Forms!Movimentos.Tag = Format$(M, "00") & Format(Now, "-yyyy")
   If DCount("*", "qry_MovimentosAutomaticos") = 0 Then
   'ainda não há registos do mês/ano
   For D = 1 To 10
            DataComparacao = DateSerial(Year(Now), M, D)
         If Weekday(DataComparacao) <> 1 And Weekday(DataComparacao) <> 7 And Feriado(DataComparacao) = False Then
            CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy') as DataM, Entidade, ValorEntrada FROM Entidades;"
            MsgBox "Movimentos do Mês " & Format(DataComparacao, "mmmm - yyyy") & " Registados ", vbInformation, "     Administrador do Sistema !"
         If Month(DataComparacao) = 5 Or Month(DataComparacao) = 11 Then
            CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy') as DataM, Entidade, ValorEntrada FROM Seguros;"
             MsgBox "Seguro do Mês " & Format(DataComparacao, "mmmm") & " Registado ", vbInformation, "     Administrador do Sistema !"
             End If
                    Exit For
             End If
        Next
   End If
Next M

MsgBoxTimer 1, "Tudo Registado Até " & Format(Date, "mmmm - yyyy") & "  ", vbInformation, "Administrador do Sistema!"
Exit Sub
End Sub


Obrigado

Bom dia,

Substitua:

SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy') as DataM

por:

SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy hh:nn') as DataM

Cláudio

Não dá erro, mas continua a inserir só a data no campo DataM.

O campo DataM esta formatado na tabela como Data Geral.

Obrigado

Tem como enviar uma cópia do arquivo?
Iria facilitar com a solução.

Só lembrando que tem duas instruções Insert, você adaptou as duas instruções no código?

Cláudio

Mudei nas duas

Anexo o Exemplo. No único formulário que tem clicar no Botão que vai registar os meses do ano atual que estão em falta.

Obrigado

Boa tarde, Assis
E não tem máscara de introdução que impede o registo da hora?

SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy ' & Format(Now(),'hh:nn:ss')) as DataM, Entidade, ValorEntrada FROM Entidades

Obrigado Cláudio

De nada.

Para não abrir outro tópico igual ...

Bom dia Cláudio

Esta abaixo funciona
LançamentosDatados![Ordenar] = txtData + Time



Estas 2 não funcionam dão erro 3421

LançamentosDatados![Ordenar] = txtData & Time

LançamentosDatados![Ordenar] = txtData & Time()


É capaz de dizer porque ?

Obrigado

Bom dia Assis,

Desculpe, não tenho a resposta.