设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 5482|回复: 15
打印 上一主题 下一主题

[与其它组件] [求助]验证密码执行一个命令

[复制链接]
跳转到指定楼层
1#
发表于 2005-3-6 02:05:00 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式


你好,我找到了不能发帖子的原因,原来是我的诺顿防火墙的原因。

现在有两问题求教:

DB1:我在增加窗体更新前加了名称简称不能为空的代码,现增加一个供应商,假设名称没填的话,点右上角的叉叉正常运行,但是点下面的“刷新”却不行,出现错误提示:3021,无当前记录。不知为什么?

DB2:因为取消结帐属于非正常操作,我想在运行前,有一个窗体出现,要求输入正在登陆用户的登陆密码进行验证,对了,就可以操作,不对则不能。好多财务软件都是这样做的。

谢谢![em07]

[此贴子已经被作者于2005-3-5 19:48:34编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2005-3-6 04:28:00 | 显示全部楼层
你好!谢谢!这样更好些。On Error GoTo Err_Command18_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Forms!供应商资料设置窗体!供应商资料表子窗体.Form.Requery

Exit_Command18_Click:

Exit Sub

Err_Command18_Click:

    'MsgBox Err.Description

Resume Exit_Command18_Click'DoCmd.RunCommand acCmdSaveRecord

End Sub这样就可以立即把新增的记录显示在主窗体里,而不需要退出再打开才显示。请问第二个问题函数要加在哪个地方?
3#
 楼主| 发表于 2005-3-6 05:22:00 | 显示全部楼层
谢谢!没有买,李寻欢说送一本我,但没时间去拿。密码是指登陆的用户密码,不一定是“100”,那么100改成什么呢?
4#
 楼主| 发表于 2005-3-6 05:48:00 | 显示全部楼层
你好!我这样做:If InputBox("请输入密码") = DLookup("[登陆密码]", "用户表", "[编号] = DLookup('参数4', '系统参数表', '[项目]='登陆用户'')") Then  结果提示:错误3075,操作符丢失。请赐教!
5#
 楼主| 发表于 2005-3-6 18:47:00 | 显示全部楼层
你好,王宇虹应该送一本你啊!用户登陆我是用“参数”表来记录的,退出系统提示我是在“程序”背景卸载事件加入的。你说的隐藏登陆窗体办法也很好。我把代码改成这个样子就行了,原来是标点符号打错了。If InputBox("请输入您的登陆密码") = DLookup("[登陆密码]", "用户表", "[编号] = DLookUp(""参数4"",""系统参数表"",""[项目]='登陆用户'"")") Then。。。。。Else

MsgBox "对不起,您的密码不对,不能取消结帐!", vbExclamation, "存货核算系统"

End IfInputBox的确有很多的参数,我想把标题改成“存货核算系统”,输入密码时显示为*****。我正在看帮助,不行又要麻烦你了。谢谢!
6#
 楼主| 发表于 2005-3-6 19:28:00 | 显示全部楼层
你好,标题已搞定。但输入密码的地方还是不能用***号显示,你有办法吗?
7#
 楼主| 发表于 2005-3-6 22:45:00 | 显示全部楼层
你的意思是说InputBox函数不能把密码设成星号?还是怎么的?自定义做一个可以,我库里本身就有,但用在取消结帐里,进度条功能就不能用啊
8#
 楼主| 发表于 2005-3-7 01:06:00 | 显示全部楼层

[求助]



你好,按你的意思做了一个,但不执行代码啊,你看看错在哪?谢谢!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
9#
 楼主| 发表于 2005-3-7 03:28:00 | 显示全部楼层
你好!效果非常好。但是命令22和Command14两者是什么关系呢?Command14怎么不见了呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-6-7 17:59 , Processed in 0.106944 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表