MS Access VBA：如何从窗体按钮跳转回函数指定代码行续执行

针对你的需求，推荐两种无需复制代码就能实现后续逻辑执行的方案，直接结合你的现有代码修改即可：

方案1：将后续逻辑封装为独立子过程（最简洁） #

把原函数中laptop version之后的代码抽成独立子过程，窗体按钮直接调用这个子过程即可，逻辑清晰且易于维护。

修改原函数代码 #

Public Function CopyDSTM()
    DoCmd.SetWarnings False
    Dim x As String
    x = Dir("C:\Users\david\Downloads\dstm*.pdf")
    
    If Len(x) > 0 Then
        FileCopy "C:\Users\david\Downloads\" & x, "C:\Users\david\Downloads\StoneState.pdf"
        If ComputerName() = "DESKTOP-DPXXXX" Then
            DoCmd.RunMacro "Statement"
            ' 台式机直接执行后续逻辑
            Call CleanupDSTMTable
        Else
            ' 笔记本版本：打开操作窗体，退出当前函数
            DoCmd.OpenForm "你的窗体名称"
            Exit Function
        End If
    End If
    
    DoCmd.SetWarnings True
End Function

' 封装后续清理逻辑为独立子过程
Public Sub CleanupDSTMTable()
    If DCount("ID", "dstm") > 0 Then
        DoCmd.RunSQL "DELETE * FROM [dstm]"
    End If
    ' 后续新增的逻辑也可以放在这里
End Sub

窗体按钮点击事件代码 #

Private Sub btn_Continue_Click()
    ' 先执行窗体上的操作逻辑
    ' ... 你的窗体业务代码 ...
    
    ' 调用封装好的后续子过程
    Call CleanupDSTMTable
    
    ' 关闭窗体
    DoCmd.Close acForm, Me.Name
End Sub

方案2：用模块级变量标记执行阶段（适合复杂分支场景） #

如果需要保留原函数的执行上下文，可以通过模块级变量记录当前执行阶段，窗体按钮触发后重新进入原函数并跳过已执行的步骤。

模块顶部定义状态变量 #

' 定义执行阶段枚举
Private Enum ExecutionStage
    Stage_Initial
    Stage_AfterFormOperation
End Enum
' 模块级变量，记录当前执行到哪个阶段
Private currentStage As ExecutionStage

修改原函数代码 #

Public Function CopyDSTM()
    DoCmd.SetWarnings False
    Dim x As String
    
    Select Case currentStage
        Case Stage_Initial
            x = Dir("C:\Users\david\Downloads\dstm*.pdf")
            If Len(x) > 0 Then
                FileCopy "C:\Users\david\Downloads\" & x, "C:\Users\david\Downloads\StoneState.pdf"
                If ComputerName() = "DESKTOP-DPXXXX" Then
                    DoCmd.RunMacro "Statement"
                    Call CleanupDSTMTable
                Else
                    ' 设置阶段为窗体操作后，打开窗体
                    currentStage = Stage_AfterFormOperation
                    DoCmd.OpenForm "你的窗体名称"
                    Exit Function
                End If
            End If
        Case Stage_AfterFormOperation
            ' 窗体操作完成后，直接执行后续逻辑
            Call CleanupDSTMTable
            ' 重置阶段，避免下次调用出错
            currentStage = Stage_Initial
    End Select
    
    DoCmd.SetWarnings True
End Function

' 封装后续清理逻辑
Public Sub CleanupDSTMTable()
    If DCount("ID", "dstm") > 0 Then
        DoCmd.RunSQL "DELETE * FROM [dstm]"
    End If
End Sub

窗体按钮点击事件代码 #

Private Sub btn_Continue_Click()
    ' 执行窗体操作逻辑
    ' ...
    
    ' 调用原函数，自动进入后续阶段执行
    Call CopyDSTM
    
    DoCmd.Close acForm, Me.Name
End Sub

推荐方案1，它无需维护状态变量，代码结构更清晰，后续修改逻辑也更方便。

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