Peupler une table de Logs

Fonction à appeler au démarrage de l'application depuis une macro autoexec par exemple.

Function fLog()
    ' Nécessite une table TblLogs avec 2 champs
    ' UserLogin (texte) et DateLogin (date)

    Dim strSQL As String

    strSQL = "INSERT INTO tblLogs ( UserLogin, DateLogin ) " & _
             "SELECT Environ$('username') AS UserLogin, Now() AS DateLogin; "

    CurrentDb.Execute strSQL

End Function