Dim auxSQL As String
ihora = Time
auxSQL = " insert into [APP] " & "([NUMERO_EQUIPE],[PRODUCAO],[HORA_INICIO],[OBS])" & _
" Values " & _
"(" & box_matricula & ", " & box_op & ", " & ihora & ", '" & box_observacao & "')"
Dim auxSQL As String
ihora = Time
auxSQL = " insert into [APP] " & "([NUMERO_EQUIPE],[PRODUCAO],[HORA_INICIO],[OBS])" & _
" Values " & _
"(" & box_matricula & ", " & box_op & ", " & ihora & ", '" & box_observacao & "')"
hoje, com a Alura e o Google Gemini
Olá Kléber, tudo bem com você?
Peço desculpas pela demora em obter um retorno.
Não foi possível compreender sua dúvida. É gerado algum erro? Você conseguiu obter sucesso na execução da sub-rotina?
Todavia, ressalto que para exibir o horário atual no VBA é exatamente usando a função TIME que você fez o uso. Exemplo:
Sub MostraHora()
Dim ihora As String
ihora = Time
MsgBox ihora
End Sub
Porém, para que a mesma seja aceita no Acess pode ser necessário usar a função FORMAT, exemplo:
ihora = Format(Time, "hh:mm:ss")
Espero ter ajudado.
Abraços e bons estudos!