I'm trying out the user password change form in faq702-4282, and I've run into a snag.
I'm getting an error message "User-defined object not defined" in the dim grp as DAO.grp segment of code in
Any ideas?
I'm getting an error message "User-defined object not defined" in the dim grp as DAO.grp segment of code in
Code:
Private Function UserIsInGroup(UserName As String, GroupName As String) As Boolean
Dim grp As DAO.Group
On Error Resume Next
Set grp = DBEngine(0).Users(UserName).Groups(GroupName)
UserIsInGroup = Not grp Is Nothing
Set grp = Nothing
End Function
Any ideas?