UC知道access编程问题
来源：百度知道 编辑：UC知道 时间：2024/06/23 09:09:49
我想用access做一个登陆窗口，
要求如下：
不带用户名，直接输入密码，密码固定为2008，If 正确 Then 登陆程序背景图片 else 提示密码错误
登陆窗口2个cmd ,1个txt 。文本txt 输入密码的。按钮一个cmd确定，一个cmd取消。
主要是确定按钮的代码，我写不好，输入数字点确定后无反应。。。
代码如下：
option Compart Database
option Explicit
---------------------------
Private Sub cmdOK_Click()
TxtPwd.SetFocus
If Val(TxtPwd.Text)=2008 Then
Docmd.close acForm,"登陆背景" '下面这三行有错，我抄的代码，它们是什么意思啊？
Docmd.close acForm,Me.Name
Docmd.openForm "程序背景"
Else
MsgBox "用户名灬密码不正确！",vbCritical
Exit Sub
End If
End Sub
要求如下：
不带用户名，直接输入密码，密码固定为2008，If 正确 Then 登陆程序背景图片 else 提示密码错误
登陆窗口2个cmd ,1个txt 。文本txt 输入密码的。按钮一个cmd确定，一个cmd取消。
主要是确定按钮的代码，我写不好，输入数字点确定后无反应。。。
代码如下：
option Compart Database
option Explicit
---------------------------
Private Sub cmdOK_Click()
TxtPwd.SetFocus
If Val(TxtPwd.Text)=2008 Then
Docmd.close acForm,"登陆背景" '下面这三行有错，我抄的代码，它们是什么意思啊？
Docmd.close acForm,Me.Name
Docmd.openForm "程序背景"
Else
MsgBox "用户名灬密码不正确！",vbCritical
Exit Sub
End If
End Sub
这个代码写的不好，不过这样的小程序用宏做要简单的多，只需要在条件中写入Not TxtPwd='2008' And TxtPwd Is Null后面宏用msgbox，再来一行条件“TxtPwd='2008'”，宏用“Openform”就OK了。
把代码贴出来看看，确定按钮没什么特殊代码的就是
<input type="submit" value="确定" />