从另一个 Access 数据库打开表单

Question

我正在尝试在访问中创建一个简单的登录表单，它应该根据用户的登录信息将用户带到指定的访问数据库/表单，下面是我的代码：

Private Sub Command6_Click()
Dim strpassword As String
Dim password As String
Dim userlevel As String

password = Me.Text0.Column(1)
userlevel = Me.Text0.Column(2)
strpassword = Me.Text4


If strpassword = password Then
If userlevel = "Admin" Then
GetObject ("C:\Users\accessdatabase.accdb")
DoCmd.OpenForm "Form"
Else
 (open other forms)
End If

Else
MsgBox "Nope"
End If

End Sub

我知道我做错了什么。我实际上不知道用户级别检查后该怎么做。我在网上搜索了一些命令，但没有用。任何帮助将非常感激

谢谢

Answer 1

我会将对象声明为变量：

Dim objAdb As Object

Set objAdb = CreateObject("Access.Application")
objAdb.OpenCurrentDatabase ("C:\Users\accessdatabase.accdb")
objAdb.DoCmd.OpenForm "Form"

无论您使用哪种方法，您都需要将您拥有的 docmd 指向其他数据库