User-defined type not defined error. 1

[BYTERYTE]

In the "Dim grp as DAO.Group" line of the following routine I'm getting a VB Compile Error: "User-defined type not defined"

----------------------------------------------------------
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
----------------------------------------------------------

The full module can be found here:

http://www.tek-tips.com/faqs.cfm?spid=702&sfid=4282

Any help is greatly appreciated.

Best Wishes,

Steve Foote
Savannah Georgia

 

[johnwm]

Looks like your project needs a reference to DAO library.

Project | References | Microsoft DAO 3.6 Object library

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[BYTERYTE]

Thanks John. I checked the DAO component in Visual Basic Editor and it went right to work.

 

[johnwm]

You're welcome, and thanks

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'