Dim auxSQL As String
ihora = Time
auxSQL = " insert into [APP] " & "([NUMERO_EQUIPE],[PRODUCAO],[HORA_INICIO],[OBS])" & _
" Values " & _
"(" & box_matricula & ", " & box_op & ", " & ihora & ", '" & box_observacao & "')"
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Dim auxSQL As String
ihora = Time
auxSQL = " insert into [APP] " & "([NUMERO_EQUIPE],[PRODUCAO],[HORA_INICIO],[OBS])" & _
" Values " & _
"(" & box_matricula & ", " & box_op & ", " & ihora & ", '" & box_observacao & "')"
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!