MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Inserir Data e Hora

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

    [Resolvido]Inserir Data e Hora

    Mensagem  Assis em Seg 06 Nov 2017, 18:29

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1171
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em Ter 07 Nov 2017, 12:39

    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em Ter 07 Nov 2017, 13:07

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1171
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em Ter 07 Nov 2017, 13:42

    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?
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em Ter 07 Nov 2017, 13:55

    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
    Anexos
    Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 9 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Alexandre Neves em Ter 07 Nov 2017, 14:21

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1171
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em Ter 07 Nov 2017, 15:00

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em Ter 07 Nov 2017, 16:32

    Obrigado Cláudio


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1171
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em Ter 07 Nov 2017, 17:09

    De nada.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em Qua 08 Nov 2017, 10:36

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1171
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em Qua 08 Nov 2017, 13:06

    Bom dia Assis,

    Desculpe, não tenho a resposta.

      Data/hora atual: Qua 22 Nov 2017, 20:10