this is from access help
Create a custom shortcut menu for the current database
1 On the View menu, point to Toolbars, and then click Customize.
2 On the Toolbars tab, click New.
3 In the Toolbar Name box, type the name you want, and then click OK.
4 On the Toolbars tab, click Properties.
5 In the Type list, click Popup.
6 Set the AllowCustomizing property the way you want, and then click Close.
Microsoft Access adds the shortcut menu to the Shortcut Menus toolbar, from which you customize all shortcut menus.
7 In the Toolbars box on the Toolbars tab, click Shortcut Menus.
8 On the Shortcut Menus toolbar, click the Custom category.
9 To complete the menu, do the following.
· Add commands from the Customize dialog box.
another option is to use the assistant
Dim bln As Object
Dim Intchoice As Integer
Set bln = Assistant.NewBalloon
With bln
.Heading = "What would you like to do."
.Text = "With Call " & idNum
.Labels(1).Text = "Add Company"
.Labels(2).Text = "Add Contact"
.Button = 2
Intchoice = .Show
End With
Select Case Intchoice
Case 1
DoCmd.OpenForm "frmAddCompany"
Case 2
DoCmd.OpenForm "frmAddContact & idNum"
End Select