Subform not working

[aceoftrades]

I have a form that works perfectly as a stand alone form. I filter records and then select the one I want to open in a new form. The code is:
Private Sub Option64_Click()
Dim sWHERE As String


'Comment out or delete the line that does not apply --
''If the ID is a number, built the WHERE clause like this:
sWHERE = "[CustomerID] = " & Me.CustomerID



'Open the form
DoCmd.OpenForm "CustomerF", acNormal, , sWHERE


End Sub

When I put this form into another form as a subform it no longer works.
I think I have to change the sWhere but not sure to what??? The form is frmMain and the subform is frmCustomer.
Thank you in advance for any help.

[June7]

You say forms are frmMain and frmCustomer, what is "CustomerF"?

Be specific in your info. What form works until you make it a subform? Which form has code to open which form?

[aceoftrades]

frmCustomer has the code listed above... It works perfect opening CustomerF form to the selected Customer when it is not included as a subform ... just a form..

When I ad frmCustomer to frmMain as a subform it does not open the CustomerF form when the Customer is selected.

[June7]

Presume frmCustomer is Single View and button is still on frmCustomer and CustomerF is a stand alone form and CustomerID is in the RecordSource of frmCustomer.

Are you getting error message or just nothing happens?

Do you want to provide project for analysis?

[aceoftrades]

Here is the file.

Open frmCustomerSearch and select a Customer by clicking on the radio button on the left of the name...It will open CustomerF for that particular Customer record.
Then open Main. frmCustomerSearch is a subform of Main. If you click on the same radio button nothing happens. No error message.
I'm pretty sure I need to change the code:
sWHERE = "[CustomerID] = " & Me.CustomerID

once I insert it as a subform to something but I'm not sure what.


Thanks for looking.

[June7]

It's because Main form is set as Popup. Nothing else can open on top of it.

[aceoftrades]

Wow...that sucks! Any suggestions on what to do? I'm using popups so that the form opens to full screen. Is there a way to set it to close the frmCustomerSearch and open CustomerF as a popup?

[June7]

Yes, set a variable to the CustomerID. Close frmCustomerSearch. Open CustomerF with the variable as parameter instead of reference to the control on frmCustomerSearch because it is already closed.

[aceoftrades]

Thanks...Could you be a little more specific...I'm new to access and trying to grasp what you are saying but can't...

Also, If you would recommend another way other than popup I would be interested in hearing that. I just don't want the user able to access the database other than the forms. Thanks

[June7]

I use project settings to disable the ribbon, navigation pane, and shortcut menu. Although can override these settings by holding down shift key when project opens, my users don't know that and even if they did, I trust they won't use it (we are a small work group). I only use popup setting on forms that require a single quick input from user, such as a date or a document number, not on my main data entry forms.

You already have the variable in your code. Modify like:

Private Sub Option64_Click()
Dim sWHERE As String
sWHERE = "[CustomerID] = " & Me.CustomerID
DoCmd.Close acForm, Me.Name, acSaveNo
DoCmd.OpenForm "CustomerF", acNormal, , sWHERE
End Sub