The code for writeLog is
Private Sub Comando56_Click()
'Comando para novo registo
DoCmd.GoToRecord , , acNewRec
'Comando de Log de actividade
On Error Resume Next
Call WriteLog("INSERIR PEÇA", Nz(Me.Texto694.Value, 0))
The module that writes on log
Function WriteLog(strEvent As String...