Shaft960
asked on
How to Move to a record on a form based on another forms data
I have a main form... On the main form I have a button that brings up a small form named Reservations. On this Reservations form there is a combo box that searches for a reservation number. The search is working fine. The reservation form is a modal... I would like to put a button on the reservation for that says "Go to this record"... when you click the button, the modal- Reservations form closes and the form that is open in the background moves to the id that was in the Reservations form...
I think I know how to do this when the forms are closed but I don't know the coding for the form that is already open.
I think I know how to do this when the forms are closed but I don't know the coding for the form that is already open.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Is there a way that it will go to the forms and show all of the records but just be on the record that I wanted... It is going there but it shows filtered records...
Yes. You can either just push the Filtered button at the bottom of the form.
Or run this code from the button:
DoCmd.SelectObject acForm, "YourBackgroundFormName"
DoCmd.SearchForRecord , , , "ID = " & Me!txtReservation.Value & ""
DoCmd.Close acForm, Me.Name
/gustav
Or run this code from the button:
DoCmd.SelectObject acForm, "YourBackgroundFormName"
DoCmd.SearchForRecord , , , "ID = " & Me!txtReservation.Value & ""
DoCmd.Close acForm, Me.Name
/gustav
ASKER
I am getting error messages now.. Method or data member not found
ASKER
DoCmd.SearchForRecord , , , "ID = " & Me![ID]
Oh, it use the wrong "Me":
Dim SearchID As Long
SearchID = Me!ID.Value
DoCmd.SelectObject acForm, "YourBackgroundFormName"
DoCmd.SearchForRecord , , , "ID = " & SearchID & ""
DoCmd.Close acForm, Me.Name
/gustav
Dim SearchID As Long
SearchID = Me!ID.Value
DoCmd.SelectObject acForm, "YourBackgroundFormName"
DoCmd.SearchForRecord , , , "ID = " & SearchID & ""
DoCmd.Close acForm, Me.Name
/gustav
ASKER
Error pops up and it highlights the SearchForRecord text...
Then something else is going on.
The sample works (right-click, Save As ..., change extension to accdb, Ok).
/gustav
DbSearch.accdb
The sample works (right-click, Save As ..., change extension to accdb, Ok).
/gustav
DbSearch.accdb
ASKER