Use MsgBox to open different forms

[blueraincoat]

Hi All, I have two forms for user to search for some information in different ways, and i made a form using MsgBox to let user to select which way is wanted. The code is as below

Private Sub Form_Open(Cancel As Integer)
Dim intSelection As Integer


intSelection = MsgBox("Click Yes To View Parts Information By PN,Click No To View By MfgNumber.", vbYesNo, "Please Respond")
Select Case intSelection
Case vbYes
DoCmd.OpenForm "frmPartsInfoByPN"
Case vbNo
DoCmd.OpenForm "frmPartsInfoByMfg"
End Select
Cancel = True
End Sub

At first I missed "Cancel As Integer" and "Cancel = True", and after several tries it works, but still i didn't understand it very well.
Could somebody explain it for me?
Thanks in advance.

[Buakaw]

I don't quite understand your question but I'll try anyway.

I'm new at this as well, but I don't think Cancel=True is going to do anything because this value is passed in by value, not by reference, so once the Sub exits, the value is going to be garbage anyway.

If you're trying to modify the variable passed in as Cancel and you want the change to remain when you exit this Sub, you need to specify the Sub as

Private Sub Form_Open(ByRef Cancel As Integer)

I hope that's what you're asking?

[blueraincoat]

Thank you Buakaw.
My intention is when i open a form let's say FormC, it will give you an option to select which form(FormA or FormB) to open,and after the user makes selection the FormC will be closed. At first i missed the "Cancel as Integer" and "Cancel = True", and it did not work. After adding that two sentences it works as i want. I do not understand that 2 sentences.
I'm a new bie also, i was reading a book, and most of the code was from that book i just modified a little.

[thhui]

Adding the code
Cancel = true

enables cancelling your options selection by pressing escape-key before you choose the action.

[blueraincoat]

Thank you thhui.
I once tried to add DoCmd.Close in both case,and it did not work
and cancel = true seems to be the solution.

[ansentry]

Have a look at the attached sample, I think this is what you may be trying to do.

[blueraincoat]

Thank you ansentry
Before your suggestion my code was DoCmd.Close acForm, FrmMain and this does not work.
your code DoCmd.Close acForm, Me.Name works fine.
It seems i need to work from the basis.

[ansentry]

DoCmd.Close acForm, FrmMain

Should be:

DoCmd.Close acForm, "FrmMain"

Hope this explains why it did not work.

[blueraincoat]

Thank You ansentry, I see why that code does not work.

[ansentry]

The other problem with your original code was that you did not have a button for the user if they canceled the operation (did not want to use either of your choices "Yes - No".

With my code I have added the extra command button "Cancel", when you add the extra button then you must also write code to handle that Select Case "vbCancel"

Good luck with your project.

[blueraincoat]

yes i noticed that.
Thank you.