How populate form field with an option for a popup form

SteveL13
SteveL13 used Ask the Experts™
on
I have a form and the user can create a new record from the navigation bar at the bottom of the form.  There is no command button to add a new record.  When the user clicks the add record button (on the navigation bar at the bottom of the form) I want a form to popup that has three choices for the user to select from.  This form will have three option buttons... (M)anufacturing, (P)roposal, and (I)nstallation.  When the user has selected one of the three choices I need the first form to have a field populated with either a "M", "P", or "I" (from the form that popped up).  The name of the field on the first form is "txtDrawingType"   The name of the 1st form is "frmDrawings" and the name of the 2nd form is "frmTypeSelection".

There is a 2nd part to this question but since we are to ask only one question per topic, I will save it until this one has been resolved.

--Steve
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
View Solution Only
Nerd
Most Valuable Expert 2012
Top Expert 2013
Commented:
Is this an option group that you are working with?

If so, use the After Update event of the Option Group:

Select Case Me.fraYourOptionGroupName
        Case 1:
                 Forms!frmDrawings.txtDrawingType= "M"
        Case 2:
                 Forms!frmDrawings.txtDrawingType= "P"
        Case 3:
                 Forms!frmDrawings.txtDrawingType= "I"
End Select

Open in new window

SteveL13

Author

Commented:
Nice.  But how do I launch the 2nd form from the navigation bar on the bottom of the 1st form?
SteveL13

Author

Commented:
Actually, never mind.  I'm going to accept and go on to the 2nd question.
Jeffrey CoachmanMIS Liason
Most Valuable Expert 2012

Commented:
On the current event of the form:

Sub Form_Current()
    If me.NewRecord then
        DoCmd.OpenForm "frmYourSecondForm"
    End if
End sub


JeffCoachman

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial