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

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

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 &

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

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

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

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!

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

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!

Bom dia amigo, em formulario continuo eu não mexo faz tempo, mas está ai as horas separadas e junta em anexo

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:




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

Att,

Alexandre Fim

Resolvido!