◆概要
　この資料は、Microsoft Accessでユーザーアカウントをグループに追加する方法について記載しています。


Append、CreateGroupメソッド

　　ユーザーアカウントをグループに追加するには、Appendメソッドで追加します。


　書式：ユーザー変数.Groups.Append ユーザー変数.CreateGroup(グループ名)


　次の例は、ユーザーアカウント「鈴木」をグループアカウント「Ａ組」に追加します。

Function AddUserGroup()
   Dim n_user as User
 
   ' ユーザーアカウントをグループに追加する
   Set n_user=DBEngine.Workspaces(0).Users("鈴木")
   n_user.Groups.Append n_user.CreateGroup("A組")
End Funtion