How to use same code for a field on every form it appears

[kattatonic1]

Hello,



I have a field called dblActivePositionNumber. On one form if you double-click someone's number, I have it open the relevant Position form to that record. The users love that and have already requested the functionality in another place. I would like to make this a standard. Is that possible by storing the code in a particular place or in a particular way? I.e., Anywhere dblActivePositionNumber is displayed, you can double-click it and launch the position form/correct record. Or do I really have to repeat the code on every single form?

Thanks for thoughts,

Kay

[June7]

The double-click event can call a procedure that is in a general module. The procedure can have arguments for the Position form and record ID.

If the procedure is a Function, then the event property can directly call the function without even creating the double-click event VBA procedure.

Calling the procedure would be:

OpenPositionForm("formname", ID)

The procedure would be like:

Sub OpenPositionForm(strForm, intID)
DoCmd.OpenForm strForm, , , "ID=" & intID
End Sub


What do you mean 'relevant Position form'? Isn't there only one Position form?

How many forms is dblActivePositionNumber used on?

[kattatonic1]

Hi June7,

Re "relevant", yes -- there is only one position form I want to pop up for this functionality; that would not vary.

dblActivePositionNumber probably shows up on about 15-20 different forms.

[June7]

Then the strForm argument is not needed.

Make the procedure a function and call it from the event property with:

=OpenPositionForm(ID)

Use appropriate field name in place of ID, which I guess is dblActivePositionNumber.