MS Access技术求助：如何关联员工时薪与耗时计算对应费用？

我来帮你搞定这个需求，其实只需要在你现有的VBA保存逻辑里加几步计算就行，分两种常见方案给你说明：

方案一：存储固定计算值（推荐，记录当时的费用） #

这种方式会把计算结果直接存在tblLogInspection的新增列里，后续哪怕员工时薪修改，旧记录的费用也不会变，适合需要留存历史数据的场景。

步骤1：准备工作 #

1. 先在tblLogInspection里新增一列，比如命名为TotalCost，数据类型选货币或者双精度浮点数（根据你的精度需求）。
2. 确保表单上的员工组合框行来源包含HourlyRate字段，比如行来源的SQL可以写成：

   SELECT EmployeeID, EmployeeName, HourlyRate FROM tblemployeedetails ORDER BY EmployeeName
   

   组合框的列数设为3，绑定列设为1（对应EmployeeID），如果不想显示时薪，把第三列的列宽设为0即可，不影响后台取值。

步骤2：修改保存按钮的VBA代码 #

假设你原来的保存代码是用DAO记录集插入的，修改后如下：

Private Sub btnSave_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim hourlyRate As Double
    Dim totalCost As Double
    
    '先校验必填项
    If IsNull(Me.cboEmployee) Or IsNull(Me.txtTimeTaken) Then
        MsgBox "请选择员工并填写耗时！", vbExclamation
        Exit Sub
    End If
    
    '从组合框获取选中员工的时薪（Access组合框列索引从0开始，第三列对应索引2）
    hourlyRate = Me.cboEmployee.Column(2)
    
    '计算总费用：如果TIMETAKEN是分钟数，记得除以60转成小时
    totalCost = hourlyRate * Me.txtTimeTaken.Value
    '如果是分钟：totalCost = hourlyRate * (Me.txtTimeTaken.Value / 60)
    
    '插入记录
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tblLogInspection", dbOpenDynaset)
    
    rs.AddNew
    rs!EmployeeID = Me.cboEmployee.Value '绑定的员工ID
    rs!TIMETAKEN = Me.txtTimeTaken.Value '表单上的耗时字段
    rs!TotalCost = totalCost '新增的计算列
    '这里继续赋值其他需要存入的字段，比如检查日期、备注等
    rs.Update
    
    '清理对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "记录已保存，总费用已自动计算！", vbInformation
End Sub

如果你习惯用SQL语句插入，也可以用下面的写法，效率更高：

Private Sub btnSave_Click()
    Dim sqlStr As String
    Dim hourlyRate As Double
    Dim totalCost As Double
    
    '校验必填项
    If IsNull(Me.cboEmployee) Or IsNull(Me.txtTimeTaken) Then
        MsgBox "请选择员工并填写耗时！", vbExclamation
        Exit Sub
    End If
    
    hourlyRate = Me.cboEmployee.Column(2)
    totalCost = hourlyRate * Me.txtTimeTaken.Value
    
    '拼接SQL语句，注意文本/日期字段要加对应符号
    sqlStr = "INSERT INTO tblLogInspection (EmployeeID, TIMETAKEN, TotalCost, InspectionDate) " & _
             "VALUES (" & Me.cboEmployee.Value & ", " & Me.txtTimeTaken.Value & ", " & totalCost & ", #" & Me.txtInspectionDate.Value & "#)"
    
    '执行插入，出错时提示
    On Error GoTo ErrorHandler
    CurrentDb.Execute sqlStr, dbFailOnError
    MsgBox "记录保存成功！", vbInformation
    Exit Sub
    
ErrorHandler:
    MsgBox "保存失败：" & Err.Description, vbCritical
End Sub

方案二：使用计算字段（实时更新） #

如果你希望费用自动跟随员工时薪变化，不需要存储固定值，可以直接在tblLogInspection里创建计算字段：

1. 打开tblLogInspection的设计视图，新增一列，字段名设为TotalCost。
2. 数据类型选择计算，在表达式生成器里输入：

   [tblemployeedetails].[HourlyRate]*[TIMETAKEN]
   

3. 确保tblLogInspection和tblemployeedetails已经通过EmployeeID建立了一对多关系，这样才能关联到对应员工的时薪。

不过这种方式的缺点是，一旦员工时薪修改，所有旧记录的TotalCost都会同步更新，如果需要留存历史费用，还是方案一更合适。

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