Link to home
Start Free TrialLog in
Avatar of Shaft960
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.
ASKER CERTIFIED SOLUTION
Avatar of Gustav Brock
Gustav Brock
Flag of Denmark image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Shaft960
Shaft960

ASKER

Thanks... I know that was kinda simple but I was blowing it.... Nice job
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
I am getting error messages now.. Method or data member not found
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
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