Hi Everyone,
can someone please help me?
(when I say help, please simple instructions to follow, not gobble de goop!)
I have a simple access database used to hold information so I can then do a mail merge letter with the relevent info.
the problem i have is that i have 2 form pages i need to fill in.
one is called "maindetails" the other "salesdetails"
i have a button which i use to click on and change from one form to another but it will not open on the clients details i was on on the other form.
for instance i might be looking at record number 25 but when i click on the button it take me to the new form closes and saves the old form but wont open the new form to the current client record i.e. number 25, it goes to record 1.
how can i solve this?
below is the macro i use at the moment, if anyonewould mind adding to it with the solution i would be most greratful.
Thanks
Tony
can someone please help me?
(when I say help, please simple instructions to follow, not gobble de goop!)
I have a simple access database used to hold information so I can then do a mail merge letter with the relevent info.
the problem i have is that i have 2 form pages i need to fill in.
one is called "maindetails" the other "salesdetails"
i have a button which i use to click on and change from one form to another but it will not open on the clients details i was on on the other form.
for instance i might be looking at record number 25 but when i click on the button it take me to the new form closes and saves the old form but wont open the new form to the current client record i.e. number 25, it goes to record 1.
how can i solve this?
below is the macro i use at the moment, if anyonewould mind adding to it with the solution i would be most greratful.
Thanks
Tony
Code:
Private Sub Command286_Click()
On Error GoTo Err_Command286_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Save
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Abbotts Input 1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command286_Click:
Exit Sub
Err_Command286_Click:
MsgBox Err.Description
Resume Exit_Command286_Click
End Sub