数据库拆分后如何将Access表数据宏转换为VBA？

针对拆分前后端后数据宏失效的问题，以下是适合VBA基础薄弱者的分步转换方案，完全对应你提供的宏逻辑：

一、将数据宏Quotes.Submit转换为VBA函数 #

1. 打开前端Access数据库，按Alt+F11打开VBA编辑器
2. 右键点击左侧工程窗格的前端数据库名称 → 插入 → 模块
3. 在模块中粘贴以下代码（注释对应原宏逻辑，方便理解）：

' 对应原数据宏Quotes.Submit，参数为报价ID
Function SubmitQuote(prmQuoteID As Long) As Boolean
    On Error GoTo ErrorHandler ' 错误捕获
    
    ' 1. 检查prmQuoteID是否为空
    If IsNull(prmQuoteID) Then
        Err.Raise 10, , "Please specify quote details."
    End If
    
    ' 2. 调用原数据宏GetNextQuoteNumber（如果这个宏也失效，后续可按同样逻辑转VBA）
    DoCmd.RunDataMacro "Quotes.GetNextQuoteNumber"
    
    ' 3. 获取返回的下一个报价编号
    Dim varNextQuoteNumber As Long
    varNextQuoteNumber = TempVars("retNextQuoteNumber")
    
    ' 4. 调用原数据宏UpdateQuoteTotal并传入参数
    DoCmd.RunDataMacro "Quotes.UpdateQuoteTotal", "prmQuoteId", prmQuoteID
    
    ' 5. 检查报价编号是否有效
    If varNextQuoteNumber = 0 Then
        Err.Raise 20, , "Unable to retrieve next quote number!"
    End If
    
    ' 6. 查询并编辑目标报价记录
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT ID, StatusID, QuoteNumber, Submitted FROM Quotes WHERE ID = " & prmQuoteID)
    
    If Not rs.EOF Then
        ' 检查报价是否已提交
        If rs("StatusID") >= 10 Then
            Err.Raise 30, , "Quote has already been marked submitted."
        End If
        
        ' 更新记录字段
        rs.Edit
        rs("StatusID") = 10
        rs("QuoteNumber") = varNextQuoteNumber
        rs("Submitted") = Date()
        rs.Update
    End If
    
    rs.Close
    Set rs = Nothing
    SubmitQuote = True ' 执行成功返回True
    Exit Function

ErrorHandler:
    ' 抛出错误（会被调用方的错误处理捕获）
    Err.Raise Err.Number, Err.Source, Err.Description
End Function

二、将表单嵌入宏转换为按钮的VBA点击事件 #

假设原来的嵌入宏绑定在某个按钮的OnClick事件上，按以下步骤替换：

1. 打开对应表单的设计视图
2. 右键点击触发嵌入宏的按钮 → 事件生成器 → 选择“代码生成器”
3. 在打开的代码窗口中粘贴以下代码：

Private Sub btnSubmit_Click() ' 替换为你的按钮实际名称
    On Error GoTo ErrorHandler
    
    ' 1. 设置提示变量并打开确认弹窗
    TempVars("YesNoMessage") = "Quote cannot be changed once it is submitted."
    TempVars("YesNoMessage2") = "Do you want to continue?"
    DoCmd.OpenForm "YesNoAlert", acNormal, , , , acDialog
    
    ' 2. 用户取消则终止操作
    If TempVars("YesNoResponse") = False Then
        Exit Sub
    End If
    
    ' 3. 保存当前记录
    DoCmd.RunCommand acCmdSaveRecord
    
    ' 4. 调用刚才写的SubmitQuote函数，传入表单上的ID文本框值
    SubmitQuote Me.txtID.Value
    
    ' 5. 刷新记录并执行状态设置宏
    Me.Refresh
    DoCmd.RunMacro "SetFromState"
    
    ' 6. 设置成功提示并打开弹窗
    TempVars("AlertMessage") = "Quote #" & Me.txtQuoteNumber.Value & " is now submitted for approval."
    DoCmd.OpenForm "Okalert", acNormal, , , , acDialog
    
    ' 清理临时变量（可选，避免残留）
    TempVars.Remove "YesNoMessage"
    TempVars.Remove "YesNoMessage2"
    TempVars.Remove "YesNoResponse"
    TempVars.Remove "AlertMessage"
    
    Exit Sub

ErrorHandler:
    ' 调用原错误提示宏
    DoCmd.RunMacro "Utilities.ErrorAlert"
End Sub

三、入门级操作注意事项 #

• 确保前端数据库已正确链接后端表：如果链接失效，先通过“外部数据”→“链接表”重新链接后端的Quotes表
• 按钮名称要对应：把代码中的btnSubmit_Click替换为你实际的按钮名称（比如你的按钮叫cmdSubmit，就改成cmdSubmit_Click）
• 临时变量名称要和你的弹窗表单一致：确保YesNoAlert表单确实返回YesNoResponse临时变量，Okalert表单读取AlertMessage临时变量
• 测试前备份数据库：避免操作失误导致数据丢失

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