Users and groups 1

[Cagliostro]

Hi,
How can I make an existent user a member of an existent group using VBA? Ion Filipski

filipski@excite.com

 

[SarahG]

See the function below. This code assumes both UserName and GroupName already exist.

    Dim g As Group, u As User, ws As Workspace
    
    Set ws = DBEngine.Workspaces(0)
    Set u = ws.Users("UserName")
    Set g = u.CreateGroup("GroupName")
    u.Groups.Append g