Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Right Click Menu Options

Status
Not open for further replies.

TomLon

Technical User
Jul 19, 2002
48
US
As I have stated before, I have a Master form with two subforms (companies and contacts). I also have two forms created (frmAddCompany and frmAddContact) to add my companies and contacts. What I would like is to give the user the ability to right-click on (for instance) companies subform and have the option 'Add Company' present. If the user selects this, then the form frmAddCompany opens up blank. Thanks.
 
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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top