Home Page Comments or Feedback The Full List Access 2000 Access XP, 2003 Access 2007Access 2010 Can You Help Code Examples Design Time DoMenuItem Conversion Known Problems Menu Equivalents RunCommand or DoCmd Site Information Unable To Use Useful LinksHall of FameWhat's New

Create and add to a New Group

acCmdNewGroup, acCmdAddToNewGroup

I found this example in the microsoft.public.access.modulesdaovba newsgroup posted by somebody called Alex. It adds a new group to the database window.

'***************** Code Start *******************
Sub AddNewGroup(strGroupName)

  SendKeys strGroupName & "~"
  Application.RunCommand acCmdNewGroup
End Sub


Sub AddToNewGroup(strGroupName, strViewName)
  DoCmd.SelectObject acServerView, strViewName, True
  SendKeys strGroupName & "~"
  Application.RunCommand acCmdAddToNewGroup
End Sub
'****************** Code End ********************