Office中国论坛/Access中国论坛

标题: [求助]登陆界面总是提示“运行时错误2580”请高手指教，在线等 [打印本页]

作者: 不紧不慢 时间: 2012-3-9 11:13
标题: [求助]登陆界面总是提示“运行时错误2580”请高手指教，在线等
登陆界面总是提示“运行时错误2580”请高手指教

代码
Private Sub 登录_Click()

DoCmd.SetWarnings False '屏蔽系统消息，使用 True (–1) 将允许显示系统消息，使用 False (0) 将禁止显示系统消息

If IsNull(Me.username) Or Me.username = "" Then

MsgBox "请选择登录用户名! ", vbInformation, "登录提示"

Else

useName = Me.username

Me.RecordSource = "select * from 用户人员及权限表 where username= '" & Me.username & "' and Pin='" & Me.Pin & "'"
If Me.Recordset.EOF Then
'Set rs=GetRS(str)
DoCmd.Beep
MsgBox ("没有这个用户或密码有误，请重新输入！")
Meusername = ""
Me.Pin = ""
Me.username.SetFocus
Exit Sub

End If

DoCmd.RunSQL "UPDATE 用户人员及权限表 SET 登录次数 =" & dlID + 1 & ", 上次登录日期 =" & "#" & Format(Now(), "yyyy - mm - dd") & "#" & " where 用户名=" & "'" & useName & "'"  '更新登录次数


   '退出登陆窗体
DoCmd.Close
DoCmd.OpenForm "合同设备表更新"

End If

End Sub

作者: 不紧不慢 时间: 2012-3-9 11:40
没人看吗，{:soso_e149:}

作者: 风中漫步 时间: 2012-3-9 13:44
有库吗?

作者: roych 时间: 2012-3-9 17:26
1、检查自定义函数GetRS(str)是否有问题。——至少在上面的代码中是没看到str的传值或者传址过程的。
2、检查窗体是否绑定了数据表，如果没绑定，Me.Recordset则有问题。

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