I need to open a main and sub form and have the subform open to a specific record


My main form is called frmProspects and the subform is frmQuotes.

The two are linked by customer number.

I need to open to a specific customer number and find a specific quote.

I'm sure this should be easy and I'm doing something wrong.  Just not very experienced with sub forms!

Do I set the recordsouce or linked property?

Let's say customer number is 12345 and I need to open to quote 223344

Can anyone help.
Who is Participating?
Jeffrey CoachmanConnect With a Mentor MIS LiasonCommented:
1. Well your code there does not have stQuoteNumber declared...?
(Or intCustomer, for that matter)
So since you did not post the full code, I can't really comment...
(There may be spelling errors, ..etc)
...and you did not explain what "it does not work" means (error message?, system crash?, incorrect result?)

2. I would not put the code on the AfterUpdate event of the combobox, because this will force the form to open as soon as the value is selected.
What if the user selected the wrong Quote?
What if you add a few more comboboxes for other things?
This functionality is typically put on a button, so the user can review all of their selections *then* trigger the code.

3. <I can navigate through all the quotes that we have generated to this company.>
"company"?, ...I thought were "Prospects"?

4. You are asking to filter a subform of a Main form without filtering the main form first.
In other words, you are asking the child record to filter the Parent.

Things like this are typically done in a "Grouped" report (This is even tricky to do in a SubReport) where the only the ChildID need be specified.

Sample attached


Jeffrey CoachmanMIS LiasonCommented:
Put a textbox on the main form to type in the QuiteID

put a button with this code to filter the subform:

dim lngFilter as long
    Me![YourSubForm].Form.Filter = "[QuoteID]=" & lngFilter
    Me![YourSubForm].Form.FilterOn = True

If Quote ID is text use this:
dim strFilter as String
strFilter =me.SomeTextBox
    Me![YourSubForm].Form.Filter = "[QuoteID]=" & strFilter
    Me![YourSubForm].Form.FilterOn = True
Jeffrey CoachmanMIS LiasonCommented:
oops sorry, ...for text QuoteID use this:

dim strFilter as String
strFilter =me.SomeTextBox
    Me![YourSubForm].Form.Filter = "[QuoteID]=" & "'" & strFilter & "'"
    Me![YourSubForm].Form.FilterOn = True
Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

pcalabriaAuthor Commented:
Thanks Jeff, but I'm still having trouble.
Let me give you the actual setup because I tried to simplify things before.

I have a form which serves as my QUOTE MENU.
From this form, the user can look up a quotenumber using a combo box.
The onupdate event of the combo box sets a global variable of the type long to the quote number.


Normally, when I open the NewProspect form (the main form) I see information about the company.  In the subform, I can navigate through all the quotes that we have generated to this company.

In this case, I would like to open the NewProspect form as usually, with all the quotes available in the subform, but to have the subform automatically connect the correct quote.

So I need to open the NewProspect form and link it to the subform with all the quotes for that company, in quote number order, however, the specific quote displayed should be the current quote.

After reading your email, I wrote the code below, however it does not work.  An inputbox is dispalyed asking me to enter the quotenumber.  Do you see anything here wrong?


DoCmd.OpenForm "NewProspect", , , "[CustomerNumber]=" & intCustomerNumber
Forms![newprospect].Form.Filter = "[QuoteNumber]=" & stQuoteNumber
Forms![newprospect].Form.FilterOn = True
pcalabriaAuthor Commented:
Jeff, here are my responses...

Let me thank you in advance for your continued help.

I delcare stQuoteNumber along with all of my global variables in a another module.
intCustomer is actually pulled from another column in the query which displays the quote number in the combo box.

The form that I'm updating is intended to be a vehicle for the salesperson to quickly look at and edit the quote when he recieves an answer to a "follow up email".

Wiht respect to what does does not work mean, "An inputbox is dispalyed asking me to enter the quotenumber".
By this I mean, instead of openning the quote, a pop up box asks for the quotenumber.

I understand your suggestion.  I may need to do this, however, the sales person usually cuts and pastes the quote number from an email he recieves, so I'm trying to save an extra step.  I may need to add to change the combo to a text box and add a go button if this doesn't work out well.

I agree that Prospects is not a very good name for the table, however, it's such a pain to change a table name once lots of query's have been written that I just deal with it!   Prospects is actually a table listing all companies how have ever called us. Each record has a customernumber which is of the type long.

I'm not sue what this means but basically, when we create a new quote we basically create a new subform for the quote, and can then look at other quotes to the same company.   I'd like to bring up the same screen, but jump to the current quote without first making the sales person search through every quote we've generated for this company.

Thanks again.

pcalabriaAuthor Commented:
Although this solution did not completely solve my issue, it did give me a head start on finding the solution that I will ultimately use.  Thanks JEFF
Jeffrey CoachmanMIS LiasonCommented:
OK great.

Jeffrey CoachmanMIS LiasonCommented:
Thanks, actually this was an interesting issue...
So I learned something here as well.


Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.