Macro para ponto eletronico através do login da maquina

Olá pessoal do Máximo Access

Venho através desse tópico pedir a ajuda de vocês com um formulário.
Preciso de um aplicativo de ponto onde o mesmo salve a matricula utilizada no login e os campos: (dia e hora). Os mesmo devem ser protegidos de modo que quem ira operar não consiga censurado os dados. a macro utilizada foi a seguinte:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
   "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
   strUserName = String$(254, 0)
   lngLen = 255
   lngX = apiGetUserName(strUserName, lngLen)
   If (lngX > 0) Then
       fOSUserName = Left$(strUserName, lngLen - 1)
   Else
       fOSUserName = vbNullString
   End If
End Function


Consigo fazer ele exibir no formulário, mas não consigo registrar na tabela.

Bem fiz pelo método mais prático que é criando uma consulta.
Criei um botão novo no seu form para executar a consulta, não quis mexer nos seus códigos, pois quando cliquei a primeira vez, causou erro.

Veja se é isso e tente adaptar ao seu sistema.

Vale a pena verificar também a SQL de inclusão, os campos ali não coincidem.

Abraço

Infelizmente a consulta não esta funcionando como esperado.. tentei fazer modificações para ver se obtinha exito. Mas infelizmente o formulário não registrar os dados da forma esperada.

Bom dia.
Desculpe, mas você não especificou que erro está acontecendo.
Você clicou no botão INCLUIR?
É lá que está o funcionamento.

Explique melhor o que houve.
No aguardo.

Bom dia Claudio.

O problema ocorre em relação a inserção de novos dados pois os mesmo deveriam ser armazenados de forma automática sem a necessidade de digitação.
O botão incluir esta funcional mas o mesmo requer a necessidade de inserção de dados.

Grato pelo retorno.

???
Continuo sem entender??