Question

access 怎么做登录窗体

If (Me.用户名 = "管理员" And Me.密码 = "123456") Then
MsgBox "登录成功!欢迎使用教学管理系统", vbOKOnly
DoCmd.OpenForm "切换面板"
Else
msgbos "用户名或密码错误!请重新输入", vbOKOnly
End If
End Sub
总告诉我用户名不对。。我怎么办？
用户名和密码我都是用的文本框

Answer 1

1.点击表集合，打开表的集合，这里你可以看到所有的表的清单。

2.在这个表集合中，选择一个表作为窗体的数据源，右键单击这个表，在弹出的右键菜单中，选择打开。

3.接着在菜单栏中，点击创建选项。

4.在创建选项中，点击【窗体】。

5.会看到，在界面中打开了一个窗体的设计视图，这就是建立的窗体，你可以看到这种方法创建窗体非常的简单，不过你还有一些后续的步骤。

6.点击菜单栏左上方的保存按钮。

7.弹出一个另存为的对话框，在这里要输入名称，然后点击确定即可，这样自动创建的窗体就可以了。

Answer 2

语句没错啊，
？？？msgbos "用户名或密码错误!请重新输入", vbOKOnly
MSGBOX好像应该这样写

再给你个我做的
Private Sub cmdOK_Click()
'连接数据库
'判断用户名和密码

'如果用户名为空
If (Trim(txtUserName.Text) = "") Then
'出警告提示
MsgBox "没有输入用户名称，请重新输入！", vbOKOnly + vbExclamation, "警告"
'用户名这个TXTuserName获得焦点
txtUserName.SetFocus
End If

If (Trim(txtPassword.Text) = "") Then
'出警告提示
MsgBox "没有输入密码，请重新输入！", vbOKOnly + vbExclamation, "警告"
'用户名这个TXTuserName获得焦点
txtUserName.SetFocus

End If

Dim SQL As String '定义SQL为STRING类型变量
Dim Cnn As New ADODB.Connection '新建数据连接对象
Dim Rst As New ADODB.Recordset '新建记录集对象

Cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=FADIAN.MDB;DefaultDir=" & App.path & ";" '打开数据库，后面跟的是连接字符串
'对SQL语句赋值
SQL = "select * from User where Username='" & txtUserName.Text & "'" & " AND PASSWORD='" & txtPassword.Text & "'"
'执行SQL语句
Rst.Open SQL, Cnn

''进入下一个窗体

If Not Rst.EOF Then
'关闭本窗体
Unload Me
'显示主窗体
FrmMDI.Show
Else
'报错提示框
MsgBox "错误登录", vbOKOnly, "登录提示"
End If
'关闭数据集
Rst.Close
'关闭连接
Cnn.Close

End Sub

追问

我一运行 就这错误。怎么回事啊？ 总是用户名 Me.用户名

追答

看看是不是 ME.用户名.TEXT 啊

Answer 3

您好。您的语句有点小错误！
这句错了：msgbos "用户名或密码错误!请重新输入", vbOKOnly

应该是：Msgbox "用户名或密码错误!请重新输入", vbOKOnly

您再试试！希望对您有用！

Answer 4

Access 中的窗体是一种数据库对象，可用于创建数据库应用程序的用户界面。“绑定”窗体直接连接到表或查询之类的数据源，可用于输入、编辑或显示来自该数据源的数据。或者也可以创建“未绑定”窗体。