操作日志的用户名怎样才能是登入用户名？

叶海峰

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

叶海峰

你在call WriteLog的代码上一行,先调试下SUserName有没有返回值

叶海峰

Public Sub WriteLog(Ope As String, Cap As String)
    UserName = DLookup("用户名", "用户表", "用户id＝" & UserID)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "insert into Log ( UserName,PC,Operation ) select '" & UserName & "',fOSMachineName(),'" & Ope & Cap & "';"
    DoCmd.SetWarnings True
End Sub