修改工作組用戶密碼

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", "")
　　 '//要特別注意上面一句，必須使用擁有數(shù)據(jù)庫管理權(quán)限的用戶名和密碼打開工作區(qū)！

　　 '//下面一段是查找用戶名是否存在，如果存在，修改密碼，不存在出錯(cuò)報(bào)告。
　　 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 & "' 不是一個(gè)有效的用戶名！",_
　　　　　　　　　 VBExclamation, "艾賽思應(yīng)用網(wǎng)"
　　　　 CheckUserPasswordInGroup = False
　　　　 Exit Function
　　 End If
　　 CheckUserPasswordInGroup = True
　　 Exit Function
ChkErr:
　　 MsgBox "'" & UserName & "' 用戶密碼修改失敗！",_
　　　　　　　　 vbExclamation, "艾賽思應(yīng)用網(wǎng)"
　　 CheckUserPasswordInGroup = False
End Function

生活不易，碼農(nóng)辛苦
如果您覺得本網(wǎng)站對(duì)您的學(xué)習(xí)有所幫助,可以手機(jī)掃描二維碼進(jìn)行捐贈(zèng)