Combobox to open a form to selected record

[LMA]

I've created a few different forms to aid users in updating information and a selection form with a combobox to open the appropriate form for the ID# selected from the combobox using the following code:



Private Sub Command14_Click()
If Me.FormSelection = "General_Cal" Then
strForm = "frmCalibrationGeneral"
ElseIf Me.FormSelection = "Caliper_6in" Then
strForm = "frmCalibrationCaliper6in"
ElseIf Me.FormSelection = "Micrometer_1in" Then
strForm = "frmCalibrationMicrometer1in"
ElseIf Me.FormSelection = "Universal_Cal" Then
strForm = "frmCalibrationUniversal"
ElseIf Me.FormSelection = "ForceGage_50Lbs" Then
strForm = "frmCalibrationForceGage50Lbs"
ElseIf Me.FormSelection = "Go_NoGo" Then
strForm = "frmCalibrationGoNoGo"
End If
DoCmd.OpenForm strForm
End Sub

While the code works and opens the correct form, the ID# has to be selected again in the combobox on the form. Is there a way to open the form to the record chosen from the selection form?

[Missinglinq]

If [ID#] is Numeric

DoCmd.OpenForm strForm, , , "[ID#] =" & Me.ControlHoldingID

If [ID#] is Text

DoCmd.OpenForm strForm, , , "[ID#] ='" & Me.ControlHoldingID & "'"

You'll need to replace ControlHoldingID with the actual name of the Control, on the first Form, where the ID# is located.

Using this method, you will only be able to work with the targeted Record in the secondary Form.

A different method would be needed if you wanted to be able to work with the targeted Record in the secondary Form and then go to other Records in that Form.

Linq ;0)>

[LMA]

I entered this code:
DoCmd.OpenForm strForm, , , "[Combo49] ='" & Me.Combo5 & "'"

Combo5 is on the selection form and combo49 is on the second form.
When I tried this a message box: Enter Parameter Value would appear. Entering in an ID# or not made no difference. The second form ID would be blank as usual. And I tried with/without the brackets on combo49.

I am new at this so I may be overlooking something.

Your last comment is something I’ve thought about but would need to limit the record selection to only those that would use that particular form. It would make it more convenient for repeated use.

[Missinglinq]

I believe that [Combo49] needs to be replaced with the name of the Field that [Combo49] is Bound to, in the second Form.

Linq ;0)>

[LMA]

Ah, yes, now I got it! Combo49 was unbound. Changed it to Bound to the ID and now it works!

THANKS

[Missinglinq]

Glad we could help!

Linq ;0)>