[求助]登陆界面总是提示“运行时错误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

不紧不慢

没人看吗，{:soso_e149:}

风中漫步

有库吗?

roych

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