You can use code along these lines:
Private mfrmCustomer as Form_frmCustomer
Private Sub OpenNewCustomerForm()
Set mfrmCustomer = New Form_frmCustomer
With mfrmCustomer
.RecordSource = "SELECT * FROM MyCustomerTable WHERE (MyID = 1)"
.Controls("MyID").Value = Me("MyID").Value
.Visible = True...
Menus are very powerful tools to use on a form.
To program the menus you need to use the CommandBars object - see help for the full object model. Using this object you can capture what option the user has selected and carry out some action. You can also create context sensitive shortcut menus...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.