Здравствуйте.

Хотелось узнать возможно ли VBA под Access реализовать следующее.

На форме есть несколько элементов управления (поля), данные в которых обрабатываются однотипно: по событию AfterUpdate выполняется одинаковый код, отличающийся только элементом. Есть ли возможность создать функцию с параметром, где в качестве параметра передается элемент управления?

Пример. Есть 2 элемента управления dblSigmaT и dblSigmaV.
Процедуры имеют следующий вид.

Private Sub dblSigmaT_AfterUpdate()
    On Error GoTo ErrorSub
    Me.Dirty = False
    CheckMechanicalProtocolInMetiz ("dblSigmaT")
    Exit Sub
ErrorSub:
    If Err.Number = 515 Then
        MsgBox m_strError, , "Ошибка"
        dblSigmaT = Null
        SetFocusInNullField
    Else
        MsgBox Err.Description
    End If
End Sub

Private Sub dblSigmaV_AfterUpdate()
    On Error GoTo ErrorSub
    Me.Dirty = False
    CheckMechanicalProtocolInMetiz ("dblSigmaV")
    Exit Sub
ErrorSub:
    If Err.Number = 515 Then
        MsgBox m_strError, , "Ошибка"
        dblSigmaV = Null
        SetFocusInNullField
    Else
        MsgBox Err.Description
    End If
End Sub

Хотелось бы представить так.

Private Sub ActiveXUpdate(activex)
    On Error GoTo ErrorSub
    Me.Dirty = False
    CheckMechanicalProtocolInMetiz (activex)
    Exit Sub
ErrorSub:
    If Err.Number = 515 Then
        MsgBox m_strError, , "Ошибка"
        activex= Null
        SetFocusInNullField
    Else
        MsgBox Err.Description
    End If
End Sub

Private Sub dblSigmaT_AfterUpdate()
      ActiveXUpdate(SigmaT)
End Sub

Private Sub dblSigmaV_AfterUpdate()
      ActiveXUpdate(SigmaV)
End Sub

http://www.sql.ru/forum/1126126/peredacha-v-kachestve-argumenta-funkcii-elementa-upravleniya-activex