共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：呵呵，再次不虚心的问个问题（解决代码问题）
1楼
ahljy351 发表于：2008/9/5 8:43:00我的学习方法就是这样。可能是先难后易。下面的代码是这样的：登录窗口点击登录按键的事件
如果“MM”（密码框）为空，提示请输入密码。如果密码不等于当前用户的密码则提示密码错误。全部正确后全闭窗口进入系统。红色部分不会设。
With Forms("登录").Controls("mm")
If .Value = "" Then
Messagebox.Show("请输入密码!")
elseif .value<>CurrentTable.Value(CurrentTable.Current(),3)then
Messagebox.Show("密码错误!")
else forms("登录").close
End If
End With
如果“MM”（密码框）为空，提示请输入密码。如果密码不等于当前用户的密码则提示密码错误。全部正确后全闭窗口进入系统。红色部分不会设。
With Forms("登录").Controls("mm")
If .Value = "" Then
Messagebox.Show("请输入密码!")
elseif .value<>CurrentTable.Value(CurrentTable.Current(),3)then
Messagebox.Show("密码错误!")
else forms("登录").close
End If
End With
2楼
狐狸爸爸 发表于：2008/9/5 8:49:00这个语法错得太离谱，看不明白你的意思，只能蒙一下：
elseif .value<>CurrentTable.Current(3) then
不看帮助，下次你还是不会的。
3楼
ahljy351 发表于：2008/9/5 8:57:00解决这个后，我会认真的看
此主题相关图片如下：qq截图未命名.jpg
此主题相关图片如下：qq截图未命名.jpg4楼
狐狸爸爸 发表于：2008/9/5 8:59:00别用列位置，用列名称：
elseif .value<>CurrentTable.Current("密码") then
如果用列位置，记得编号从0开始，第一列的位置是0
elseif .value<>CurrentTable.Current("密码") then
如果用列位置，记得编号从0开始，第一列的位置是0
5楼
xipies 发表于：2008/9/5 9:13:00这个使用实惠
6楼
ahljy351 发表于：2008/9/5 9:22:00搞定，再次谢谢。我开始闭关修练
共6 条记录, 每页显示 10 条, 页签:
[1]