form and field name as sub-routine parameters

[eric.opperman1@gmail.com]

I have a couple of code segments that are very similar, and I want to replace them with a subroutine.

The code opens a stores a value on the current form in a variable, opens a new form, and places the content of the variable in a text box on the new form.



Dim Var_UserID As Long

Var_UserID = Me.txt_StoreUserID
DoCmd.OpenForm "frm_TechUseHome"
[Forms]![frm_TechUseHome]![txt_HidUserID] = Var_UserID
[Forms]![frm_TechUseHome].Refresh

End Sub

If I call this as a sub-routine, how will I pass the reference to the field and form?

[RuralGuy]

Why do you feel you need the variable?

[eric.opperman1@gmail.com]

I don't understand your question...

[RuralGuy]

The variable is not necessary:
DoCmd.OpenForm "frm_TechUseHome"
[Forms]![frm_TechUseHome]![txt_HidUserID] = Me.txt_StoreUserID

[eric.opperman1@gmail.com]

so noted, thanx.

How will I define this as a sub-routine, and pass the form and field names when I call it?

[RuralGuy]

You might try something like:

Private Sub Foo(TheForm As String, TheControl As String, TheValue As Variant)
 
   Forms(TheForm).Controls(TheControl) = TheValue
 
End Sub

...but it hardly seems worth the effort.