1、取消按钮—单击事件
Private Sub Command10_Click()
DoCmd.Quit ‘此处不用DoCmd.close,close只是关闭了当前窗体,没有退出Access,主窗体还在
End Sub
2、确定按钮----单击事件
Private Sub Command9_Click()
‘判断用户名不能为空
If
IsNull(Me.Combo5) Then
MsgBox "用户名不能为空", vbOKOnly, "提示"
Me.Combo5.SetFocus
Exit Sub
End
If
‘判断密码不能为空
If IsNull(Me.Text7) Then
MsgBox "密码不能为空", vbOKOnly, "提示"
Me.Text7.SetFocus
Exit Sub
End
If
‘Dlookup函数判断输入的密码是否与表中的密码一致
If
Me.Text7 = DLookup("dlmm", "tbl用户", "dlxm
= '" & Me.Combo5 & "'") Then
DoCmd.Close acForm, Me.Name ‘关闭登陆窗体
‘下面这句是Access主窗体最大化,这句与上面一句顺序不能颠倒,要不Access主窗体是最小化在任务栏
DoCmd.RunCommand
acCmdAppMaximize
DoCmd.OpenForm "frm主窗体", acNormal ‘密码正确打开主窗体
DoCmd.Maximize ‘当前窗体最大化
Else
MsgBox "密码错误", vbOKOnly, "提示" ‘密码错误提示
Me.Text7.SetFocus
Exit Sub
End
If
End Sub
3、窗体加载事件
Private Sub Form_Load()
DoCmd.ShowToolbar "ribbon", acToolbarNo ‘隐藏功能区
DoCmd.SelectObject acForm, , True ‘这句与下面一句隐藏左侧导航窗体
DoCmd.RunCommand
acCmdWindowHide
DoCmd.RunCommand
acCmdAppMinimize
‘上面这句Access主窗体最小化,这句要放最后,放最前主窗体就不能最小化;
‘DoCmd.RunCommand
acCmdAppMinimize 命令要生效,必须先要用DoCmd.SelectObject
acForm, , True,
‘这句将光标定位到Access数据库窗口。
End Sub
4 、窗体属性设置:
《1》弹出方式和模式选择:是;《2》边框样式:细边框;《3》最大最小化按钮:无(如果不选择无,双击标题栏会最大化,改变窗体形状);《4》记录选择器和导航按钮选择:否;
附 件:
点击下载此附件