Question

我目前正在Access 2013中工作。我正在为一小群人构建数据库，其中数据库将位于共享文件夹（拆分数据库）中。我在数据库中遇到的问题是，我可以通过登录屏幕成功登录，但是当其他人尝试登录时，他们会得到＆＃34;运行时错误＆＃39; 3051＆＃39;：Microsoft Jet数据库引擎无法打开文件＆＃39; xxx.mdb＆＃39;。它已经由另一个用户专门打开，或者您需要获得查看其数据的权限＃34;。此外，当他们通过设计视图（仅用于测试的功能）绕过屏幕登录时，他们无法打开表格。

我的代码：

Option Compare Database
Option Explicit

Private Sub btnLogin_Click()
Dim rs As Recordset

     Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly)

     rs.FindFirst "UserName='" & Me.txtUserName & "'"

If rs.NoMatch = True Then
    Me.lblWrongUser.Visible = True
    Me.txtUserName.SetFocus
    Exit Sub
End If
     Me.lblWrongUser.Visible = False

If rs!Password <> Nz(Me.txtPassword, "") Then
    Me.lblWrongPass.Visible = True
    Me.txtPassword.SetFocus
    Exit Sub
End If
     Me.lblWrongPass.Visible = False
     DoCmd.OpenForm "frmPersonal Information"
     DoCmd.Close acForm, Me.Name
End Sub

运行调试时，它表明出现了问题：
设置rs = CurrentDb.OpenRecordset（＆＃34; tblUser＆＃34;，dbOpenSnapshot，dbReadOnly）

我做错了什么或者我需要拆分数据库并将前端变成ACCDE文件吗？

登录屏幕上的VBA代码问题

0 个答案: