根据一Access网友需要制作的一个把密码直接写在代码里面的示例;初学者朋友拿去参考吧!老鸟请绕行。
代 码:
Private Sub Command12_Click()
'将密码保存在代码里面,密码为111
If Me.Text7 = "111" Then
DoCmd.OpenForm "按名称查书"
DoCmd.Close acForm, "登录界面"
Else: MsgBox ("请输入正确的密码"), vbCritical
End If
End Sub
附 件:
(密码为111,进入代码后也可以自己修改密码)
点击下载此附件
图 示: