从另一个访问数据库

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

我知道我做错了什么。我实际上不知道在userlevel检查后该怎么做。我在线搜索了一些命令，但它没有用。 Anyhelp真的很感激

由于

Answer 1

我会将对象声明为变量：

Dim objAdb As Object

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

无论您的方法如何，您都需要将您拥有的docmd指向其他DB