下面是修改工作组用户密码的函数,调用时如果用于密码为空,请使用"",不要使用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 = Fa...
[ 查看全文 ]