生活已是百般艰难,为何不努力一点。下面图老师就给大家分享修改工作组用户口令，希望可以让热爱学习的朋友们体会到设计的小小的乐趣。
【 tulaoshi.com - 编程语言 】
下面是修改工作组用户密码的函数，调用时如果用于密码为空，请使用""，不要使用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
If wk.Users(i).Name = UserName Then
Set Ur = wk.Users(i)
Found = True
Ur.newPassword oldPassword, newPassword
Exit For
End If
Next i
If Not Found Then
MsgBox "'" & UserName & "' 不是一个有效的用户名！",_
vbExclamation, "艾赛思应用网"
CheckUserPasswordInGroup = False
Exit Function
End If
CheckUserPasswordInGroup = True
Exit Function
ChkErr:
MsgBox "'" & UserName & "' 用户密码修改失败！",_
vbExclamation, "艾赛思应用网"
CheckUserPasswordInGroup = False
End Function
来源:http://www.tulaoshi.com/n/20160219/1615377.html
