>1. если ссылок много, то создавать некоторое количество переменных с запасом невыгодно.
>2. создавать одну функцию, конечно, можно, но это сработает, если нужно вернуть значение на одно поле, а если в форме несколько подформ, то вариант уже не прокатит

я делал через коллекцию.
объявил в общем модуле

Public colChoose As New Collection

а в форме добавляю в коллекцию

Dim ctl As Control
On Error GoTo Err_DblClick
Set ctl = [Счет]
colChoose.Add ctl, "1111"
DoCmd.OpenForm "Счет", , , , , , "ИмяФормы;1111"

Exit_Err_DblClick:
Exit Sub

Err_DblClick:
If Err = 457 Then Resume Next
MsgBox Err.Description
Resume Exit_Err_DblClick

а потом вызываю из коллекции

Dim strFormName As String
Dim strChoose As String
If Len(Me.Parent.OpenArgs) > 0 Then
Me.Dirty = False
strFormName = Split(Me.Parent.OpenArgs, ";")(0)
strChoose = Split(Me.Parent.OpenArgs, ";")(1)
If IsLoaded(strFormName) Then
colChoose.Item(strChoose) = [Код документа]
colChoose.Item(strChoose).Requery
colChoose.Remove strChoose
End If
DoCmd.Close acForm, Me.Parent.Name
End If

Хотя это мой вариант несколько сложноват, зато есть универсальность.