如何在Access VBA中从独立表读取价格，替代硬编码值

这是数据库设计中分离数据与业务逻辑的标准做法，能让价格维护更灵活，无需修改VBA代码即可调整价格。具体实现步骤：

1. 创建价格数据表 #

新建一个用于存储价格规则的数据表，推荐表名PrecioPorExamenClinica，字段设置如下：

• ID：自动编号，主键
• ClinicaID：数字类型，对应原代码中CLINICA.Value的数值（如400）
• ExamenID：数字类型，对应原代码中EXAMEN.Value的数值（如10、11）
• PrecioUnitario：货币类型，存储对应组合的单位价格

录入现有数据：

2. 修改VBA代码，从数据表读取价格 #

替换原硬编码的逻辑，改为从数据表查询对应价格，推荐两种实现方式：

方式一：使用DLookup函数（简单场景） #

Private Sub CLINICA_LostFocus()
    Dim precioUnitario As Variant
    ' 查询对应诊所+检查组合的单位价格
    precioUnitario = DLookup("PrecioUnitario", "PrecioPorExamenClinica", _
                            "ClinicaID = " & Me.CLINICA.Value & " AND ExamenID = " & Me.EXAMEN.Value)
    
    ' 计算总价（未查到价格时清空并提示）
    If Not IsNull(precioUnitario) Then
        Me.PRECIO.Value = Me.CANTIDAD.Value * precioUnitario
    Else
        Me.PRECIO.Value = Null
        MsgBox "未找到该诊所与检查的对应价格，请先维护价格表。"
    End If
End Sub

方式二：使用DAO记录集（复杂/大量数据场景） #

Private Sub CLINICA_LostFocus()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    Set db = CurrentDb()
    ' 构建查询SQL
    strSQL = "SELECT PrecioUnitario FROM PrecioPorExamenClinica " & _
             "WHERE ClinicaID = " & Me.CLINICA.Value & " AND ExamenID = " & Me.EXAMEN.Value
    
    Set rs = db.OpenRecordset(strSQL)
    
    ' 读取价格并计算总价
    If Not rs.EOF Then
        Me.PRECIO.Value = Me.CANTIDAD.Value * rs!PrecioUnitario
    Else
        Me.PRECIO.Value = Null
        MsgBox "未找到对应价格，请检查价格表配置。"
    End If
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

3. 额外优化建议 #

• 给PrecioPorExamenClinica表的ClinicaID和ExamenID设置联合唯一索引，避免重复的诊所-检查组合。
• 创建一个专用的价格维护表单，通过表单修改价格数据，比直接编辑数据表更安全、易用。
• 可将价格查询逻辑封装为自定义函数，方便在表单其他事件或报表中复用。

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