SysLog模块下的代码中CurrentUser改为全局变量SuerName
Public Sub WriteLog(Ope As String, Cap As String)
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into Log ( UserName,PC,Operation ) select '" & SUserName & "',fOSMachineName(),'" & Ope & Cap & "';"
DoCmd.SetWarnings True
End Sub