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

叶海峰

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