Office中国论坛/Access中国论坛

标题: 操作日志的用户名怎样才能是登入用户名？ [打印本页]

作者: gxy1000 时间: 2012-8-26 12:59
标题: 操作日志的用户名怎样才能是登入用户名？
操作日志的用户名怎样才能是当前登入用户名？[attach]50244[/attach]

作者: roych 时间: 2012-8-26 14:35
其实周末不一定有版友来回答您的问题的，所以不必重复发帖。如果周一仍然没有回复再处理也不为迟。此贴已在
http://www.office-cn.net/thread-114175-1-1.html
中进行了回复。请留意

作者: gxy1000 时间: 2012-8-26 15:08

roych 发表于 2012-8-26 14:35
其实周末不一定有版友来回答您的问题的，所以不必重复发帖。如果周一仍然没有回复再处理也不为迟。此贴已在 ...

谢谢！！但还是不行！！操作日志里就显示计算机名称，没有当前登入的用户的名称！

作者: 叶海峰 时间: 2012-8-27 10:08
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

作者: gxy1000 时间: 2012-8-27 14:30

叶海峰发表于 2012-8-27 10:08
SysLog模块下的代码中CurrentUser改为全局变量SuerName
Public Sub WriteLog(Ope As String, Cap As Strin ...

还是不行！！要搞昏了！！

作者: 叶海峰 时间: 2012-8-27 15:26
你在call WriteLog的代码上一行,先调试下SUserName有没有返回值

作者: gxy1000 时间: 2012-8-27 15:51
没有！！能帮我看看上传的附件吗？？

作者: 风中漫步 时间: 2012-8-27 16:04
把你的代码贴出来看看吧

作者: 风中漫步 时间: 2012-8-27 16:10
试试这样,
DoCmd.RunSQL "insert into Log (UserName,PC,Operation) values( '" & SUserName & "','" & fOSMachineName "','" & Ope & Cap & "')"
你说的不行是哪不行,错误提示是什么,问题是什么

作者: gxy1000 时间: 2012-8-27 16:19

风中漫步发表于 2012-8-27 16:10
试试这样,
DoCmd.RunSQL "insert into Log (UserName,PC,Operation) values( '" & SUserName & "','" & fO ...

帮我看一下1楼附件！！里面操作日志（Log）里的用户名怎么显示！

作者: 叶海峰 时间: 2012-8-27 16:19

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)