Access组合框填充遇多余表头及Error 3075语法错误求助

1. 修复Error 3075语法错误 #

问题根源 #

当前组合框仅存储员工姓名，用姓名匹配数字类型的StaffID时，会出现类型不匹配+字符串未加引号的语法错误，甚至姓名重复时会导致查询结果错误。

修正步骤 #

（1）重构组合框填充逻辑，绑定StaffID与姓名

替换原PopulateComboBox过程，让组合框同时绑定StaffID（作为控件值）和显示StaffName：

Private Sub PopulateComboBox()
    Dim strSQL As String
    
    strSQL = "SELECT StaffID, StaffName FROM tblStaff WHERE Employed = True"
    
    With Me.cmbboxStaffName
        .RowSourceType = "Table/Query"
        .RowSource = strSQL
        .ColumnCount = 2 ' 包含ID和姓名两列
        .ColumnWidths = "0cm;5cm" ' 隐藏ID列，仅显示姓名（可按需调整宽度）
        .BoundColumn = 1 ' 将控件值绑定到第一列（StaffID）
        .ColumnHeads = False ' 关闭表头显示
        .Requery
    End With
End Sub

（2）修正后续引用组合框值的代码

• 在checkStillEmployed_Click中，直接获取组合框绑定的StaffID，无需DLookup：

  ' 移除原DLookup语句，替换为：
  RowID = Me.cmbboxStaffName.Value
  

• 在cmbboxStaffName_AfterUpdate中，同样用绑定值查询：

  intEmployed = DLookup("Employed", "tblStaff", "StaffID = " & Me.cmbboxStaffName.Value)
  

2. 去除组合框多余表头 #

• 上述重构代码中已明确设置.ColumnHeads = False，同时改用Table/Query类型绑定，避免了Value List模式下可能残留的表头问题。
• 额外检查组合框设计视图的Column Heads属性，确保设置为No，双重保证表头不显示。

优化建议（可选） #

将checkStillEmployed_Click中的记录集操作改为直接执行Update语句，更高效简洁：

Private Sub checkStillEmployed_Click()
    Dim strSQL As String
    Dim employedStatus As Integer
    
    ' 组合框未选中时直接退出
    If IsNull(Me.cmbboxStaffName.Value) Then Exit Sub
    
    employedStatus = IIf(Me.checkStillEmployed.Value = 0, 0, -1)
    strSQL = "UPDATE tblStaff SET Employed = " & employedStatus & " WHERE StaffID = " & Me.cmbboxStaffName.Value
    
    CurrentDb.Execute strSQL, dbFailOnError
End Sub

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