设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[其它] 修改密码按钮如何做?

[复制链接]
跳转到指定楼层
1#
发表于 2007-5-10 22:08:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
修改密码后,点确定后更改“用户”表中的密码,请问这个按钮如何做?

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2007-5-10 23:20:00 | 只看该作者
先判断旧密码是否正确,然后判断二个新密码是否相同,最后用ADO将新密码保存到表中,

论坛上有近似例子,请用"登陆"关键字搜索一下旧贴
3#
 楼主| 发表于 2007-5-11 00:09:00 | 只看该作者
一点通大师,你说的那二点我已经做好了,一是判断旧密码是否正确,二是判断二个新密码是否相同。这二个我已经写好了。只差那个修改密码的语句了,我写的代码如下:If Nz([原密码]) = "" Or Nz([新密码]) = "" Or Nz([确认新密码]) = "" Then
  MsgBox "原密码、新密码及确认密码不能为空,请重新输入!", 64, "信息提示"

   ElseIf Me![原密码] <> DLookup("密码", "用户", "代码 = '" & Me![用户代码] & "'") Then
  MsgBox "原密码不正确,请重新输入!", 64, "信息提示"


ElseIf Me![新密码] <> Me![确认新密码] Then
  MsgBox "两次输入的新密码不相同,请重新输入!", 64, "信息提示"


Else
MsgBox "保存成功!", 64, "信息提示"
4#
发表于 2007-5-11 00:57:00 | 只看该作者
DoCmd.RunSQL "UPDATE 用户 SET [用户].[密码]= " & [新密码] & " WHERE [用户].[代码]='" & [用户代码] & "'"
    MsgBox "保存成功!", 64, "信息提示"
5#
 楼主| 发表于 2007-5-11 17:12:00 | 只看该作者
谢谢一点通大师,成功了!非常感谢!
6#
发表于 2008-2-15 21:26:27 | 只看该作者
虚心学习了!!!!!!!!
7#
发表于 2009-3-17 16:45:55 | 只看该作者
我也要感谢一点通大师和楼主提的这个问题,刚好解决我现在的问题,搞了这么久发现自己的Update写错了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-27 06:42 , Processed in 0.100778 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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