<<< 返回 access911.net 编程静态资料库索引页

如何修改工作组用户密码

 

作者:  摘自:  录入:cg1  时间:2002-12-8  浏览人次:888


专题地址:http://access911.net/fixhtm/71FAB61E1BDC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

如何修改工作组用户密码

 

回答:

下面是修改工作组用户密码的函数,调用时如果用于密码为空,请使用"",不要使用null,两者不同。:) 

Function CheckUserPasswordInGroup(UserName As String,_ 
        oldPassword As String, newPassword As String) As Boolean 
On Error GoTo ChkErr 
  Dim wk As DAO.Workspace, Ur As DAO.User, i As Integer, Found As Boolean 
  CheckUserPasswordInGroup = False 
  Found = False 
  Set wk = DBEngine.CreateWorkspace("", "Admin", "") 
  '//要特别注意上面一句,必须使用拥有数据库管理权限的用户名和密码打开工作区! 
   
  '//下面一段是查找用户名是否存在,如果存在,修改密码,不存在出错报告。 
  For i = 0 To wk.Users.Count - 1 
    .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB61E1BDC.htm

 


上一篇:access快捷键(初学者须知)

下一篇:如何用程序弹出鼠标右键单击时出现的快捷菜单?

2017年2月22日生成静态资料