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


3 participantes

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    avatar
    Pedro Maldi Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 29/05/2024

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  Pedro Maldi Neto 29/7/2024, 17:01

    Como colocar no Campo Data1 e Data2 as horas e Minutos, para Parada de de execução da arquivo!
    Segue cod: No Abrir do formulário Menu1

    Private Sub Form_Open(Cancel As Integer)
    Dim DATA11 As Date
    Dim D1 As String, M1 As String, a1 As String
    Dim DATA12 As Date
    Dim D2 As String, M2 As String, a2 As String
    D1 = DatePart("d", Now())
    M1 = DatePart("m", Now())
    a1 = DatePart("yyyy", Now())
    D2 = DatePart("d", Now())
    M2 = DatePart("m", Now())
    a2 = DatePart("yyyy", Now())

    '' Aqui colocar o campo data/hora/Minuto.

    DATA11 = D1 + "/" + M1 + "/" + a1
    DATA12 = D2 + "/" + M2 + "/" + a2    ' Aqui colocar a data/hora/minuto
       If DATA11 >= data1 Then
       If MsgBox("Tecnologia DNA: Problemas, favor contactar o administrador...Compactar, Restaurar e Reparar, Banco de Dados Corrompido pedromaldin37@gmail.com  19 9 9171-6115 Zap", vbOKOnly, "REGISTRO") = vbOK Then
       End If
    End If
    If DATA12 >= data2 Then
       Dim stDocName As String
       Dim stLinkCriteria As String

       stDocName = "AVISO"
       
       DoCmd.OpenForm stDocName, , , stLinkCriteria

    End If
    End Sub
    Anexos
    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos AttachmentMenuInicialZ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 14 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2745
    Registrado : 23/01/2018

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  crysostomo 29/7/2024, 23:33

    Boa noite.
    Colega, só uma dedução, qual seu objetivo aqui, é parar o sistema em hora determinada?
    Se caso for esse, coloca somente o dia e a hora determinado
    ex.:
    Código:
    if > "04/08/2024" and time "08:00:00" then
    docmd.quit
    ......
    Mas ou menos assim.

    ou se quer separar mesmo
    Código:
    Me.data1 = Format(Time, "h")
    Me.data2 = Minute(Time)
    Me.data3 = Format(Time, "ss")
    Me.campoDataHoraMin = Date & "-" & Me.data1 & ":" & Me.data2


    O + não é para concatenar! Para concatenar é com o símbolo &


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Pedro Maldi Neto gosta desta mensagem

    avatar
    Pedro Maldi Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 29/05/2024

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  Pedro Maldi Neto 30/7/2024, 01:15

    Boa noite!
    Onde eu colocaria este código na minha expressão?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2745
    Registrado : 23/01/2018

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  crysostomo 30/7/2024, 20:23

    Um código simples
    Código:
    Private Sub Form_Timer()
        Me.data1 = Format(Time, "h")
        Me.data2 = Minute(Time) '
        Me.data3 = Format(Time, "ss")
        'Aqui é só para separar como queria. Mas se for para fechar somente data resolve
      
        Me.horas = Date & " - " & Time
    If Date >= "31/07/2024" Then
        MsgBox " tempo determinado"  ' esse é um jeito simples
        DoCmd.Close
    Else
        'segue a vida
        End If
    End Sub


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Pedro Maldi Neto gosta desta mensagem

    avatar
    Pedro Maldi Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 29/05/2024

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  Pedro Maldi Neto 31/7/2024, 18:15

    com a Data eu já tenho e o código completo está logo Abaixo!!!
    Só queria colocar às Horas, para parada! Tem também o arquivo anexo com exemplo!
    '====================
    Private Sub Form_Open(Cancel As Integer)
    Dim DATA11 As Date
    Dim D1 As String, M1 As String, a1 As String
    Dim DATA12 As Date
    Dim D2 As String, M2 As String, a2 As String
    D1 = DatePart("d", Now())
    M1 = DatePart("m", Now())
    a1 = DatePart("yyyy", Now())
    D2 = DatePart("d", Now())
    M2 = DatePart("m", Now())
    a2 = DatePart("yyyy", Now())

    '' Aqui colocar o campo data/hora/Minuto.

    DATA11 = D1 + "/" + M1 + "/" + a1
    DATA12 = D2 + "/" + M2 + "/" + a2 ' Aqui colocar a data/hora/minuto
    If DATA11 >= data1 Then
    If MsgBox("Tecnologia DNA: Problemas, favor contactar o administrador...Compactar, Restaurar e Reparar, Banco de Dados Corrompido pedromaldin37@gmail.com 19 9 9171-6115 Zap", vbOKOnly, "REGISTRO") = vbOK Then
    End If
    End If
    If DATA12 >= data2 Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "AVISO"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    End If
    End Sub
    avatar
    Pedro Maldi Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 29/05/2024

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  Pedro Maldi Neto 1/8/2024, 13:45

    crysostomo
    Muito obrigado pela sua ajuda!!!
    Mais eu ainda não consigo colocar às Horas no VBA!
    Fiz agora um arquivo resumido!
    Quanto a Data ele funciona Correta mente, mais quando coloco as horas não roda é dá Erro!
    Abra o arquivo, no formulário, no VBA ao abrir tem o cod com data que está funcionando,
    já na linha de baixo que tem o Campo Data+Horas, aqui apresenta o erro!

    Ou mais pessoas que possa me ajudar!
    Anexos
    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos AttachmentHoras.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 6 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2745
    Registrado : 23/01/2018

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  crysostomo 1/8/2024, 14:18

    Bom dia, estou longe do computador, mas para rodar a hora vice tem que colocar no evento Time e colocar no intervalo do cronômetro 10000
    Me.seuCampoQueRecebeHoras= time


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Pedro Maldi Neto gosta desta mensagem

    avatar
    Pedro Maldi Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 29/05/2024

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  Pedro Maldi Neto 1/8/2024, 15:12

    Bom dia amigo crysostomo,
    O problema é que vc não abre os aquivos de demonstração, para ver os erro que ocorre
    e responde sem ver os erros que estão ocorrendo! Fica algo no ar sem solução!
    Resumindo: Sem abrir os arquivos, a solução não é encontra!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2745
    Registrado : 23/01/2018

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  crysostomo 1/8/2024, 18:38

    Bom dia amigo, em formulario continuo eu não mexo faz tempo, mas está ai as horas separadas e junta em anexo
    Anexos
    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos AttachmentHoras.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 6 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Pedro Maldi Neto gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  Alexandre Fim 2/8/2024, 15:13

    Olá Pedro,

    Não há necessidade de formatar a data, visto que a função "Now" ja vem formatada como dd/mm/yyyy hh mm ss, conforme exemplo abaixo:

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Now10


    Verifiquei o código e não entendi realmente o que pretende fazer.
    Dê mais detalhe sobre.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Pedro Maldi Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 29/05/2024

    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Resolvido!

    Mensagem  Pedro Maldi Neto 1/9/2024, 18:53

    Resolvido!

    Conteúdo patrocinado


    [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos Empty Re: [Resolvido]Como colocar no Campo Data1 e Data2 as horas e Minutos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 12:07