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 : 3485
    Registrado : 06/11/2009

    [Resolvido]Inserir Data e Hora

    Mensagem  Assis em 6/11/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 : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em 7/11/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 : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em 7/11/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 : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em 7/11/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 : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em 7/11/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


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

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Alexandre Neves em 7/11/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 : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em 7/11/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 : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em 7/11/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 : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em 7/11/2017, 17:09

    De nada.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Assis em 8/11/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 : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Inserir Data e Hora

    Mensagem  Cláudio Más em 8/11/2017, 13:06

    Bom dia Assis,

    Desculpe, não tenho a resposta.

      Data/hora atual: 18/8/2018, 03:27