VBA中如何不传入新参数、复用已有参数调用现有sub过程

核心思路 #

在窗体模块内定义全局可访问的模块级变量，每次调用showCosts时自动存储传入的参数，Option Button触发时直接读取存储的参数调用即可。

操作步骤 #

1. 在当前窗体代码模块的通用声明区域（所有Sub/Function过程的最顶部，不属于任何过程内部）添加两个模块级变量：

' 存储上一次调用showCosts的HS参数
Dim lastHS As String
' 存储上一次调用showCosts的ID参数
Dim lastID As Integer

2. 修改原有showCosts过程，新增参数存储逻辑，原有业务代码无需改动：

Private Sub showCosts(HS As String, ID As Integer)
    ' 新增参数存储逻辑
    lastHS = HS
    lastID = ID
    
    ' 此处保留你原本的showCosts业务代码，不需要修改
End Sub

3. 修改Option Button的更新后事件代码：

Private Sub optInflated_AfterUpdate()
    ' 存在有效历史参数时才调用，避免初始状态无参数报错
    If lastHS <> "" And lastID > 0 Then
        Call showCosts(lastHS, lastID)
    End If
End Sub

混淆概念说明 #

• ByVal是参数传递修饰符，仅用于定义参数的传递规则（传值/传引用），和“存储历史调用参数”的需求没有关联，无需使用
• DLookup是Access内置的表查询函数，仅用于从持久化存储的表/查询中读取数据，你的参数是运行时动态生成的，无需使用该函数

内容的提问来源于stack exchange，提问作者lv2424