Установить модуль доступа в качестве переменной Publi c

Question

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

Я попытался добавить переменную Publi c Mod_ActiveModule, как показано ниже:

Public Str_FormLevel_01 As String
Public Str_FormLevel_02 As String
Public Str_FormLevel_03 As String
Public frm_FormLevel_01 As Form
Public frm_FormLevel_02 As Form
Public frm_FormLevel_03 As Form
Public Mod_ActiveModule As Module

Ниже показан Sub, который, как я думал, установит Mod_ActiveModule для модуля с именем "Mod_Batches_DP_Pack" - НО ЭТО НЕ РАБОТАЕТ !!!!

Private Sub cmd_Options_Click()
  On Error GoTo ErrorHandler

    Str_FormLevel_01 = "frm_Batches_04_DP_Pack"
    Str_FormLevel_02 = "frm_Batches_04_DP_Pack_Edit"
    Str_FormLevel_03 = "frm_Batches_04_DP_Pack_Edit_Detail"

    Set frm_FormLevel_01 = Form_frm_Batches_04_DP_Pack
    Set frm_FormLevel_02 = Form_frm_Batches_04_DP_Pack_Edit
    Set frm_FormLevel_03 = Form_frm_Batches_04_DP_Pack_Edit_Detail

    Set Mod_ActiveModule = Mod_Batches_DP_Pack

    Call ActiveModule.SetUpContextMenu_Level_01
        CommandBars("MenuOptions").ShowPopup

ExitHandler:
    Exit Sub
ErrorHandler:
    Debug.Print "Error: " & Err.Number & ": " & Err.Description
    Debug.Print "Error On: " & Form.Name & " - cmd_Options_Click"
        Resume ExitHandler
End Sub

Любая помощь здесь будет принята с благодарностью