MS Access VBA中.FindFirst方法报错，如何正确应用？

核心错误修正 #

你的代码在FindFirst处报错，主要存在两个关键问题：

1. 字段名不匹配 #

你创建的表主键是Product_ID，但组合框行来源的SQL和VBA代码里都误用了ID，这会导致系统找不到对应字段，直接触发错误。先修正组合框的行来源SQL：

SELECT tblProduct.Product_ID, tblProduct.Product_Name, tblProduct.Sale_Unit
FROM tblProduct
ORDER BY tblProduct.Product_Name;

2. FindFirst字符串拼接错误 #

你把Me.cboProductID.Column(0)当成固定字符串写在引号里了，正确的写法是将控件的实际值拼接到查询字符串中，同时注意短文本类型需要用单引号包裹：

rs1.FindFirst "Product_ID = '" & Me.cboProductID.Column(0) & "'"

另外建议添加错误处理，避免找不到匹配记录时的报错：

Private Sub cboProductID_AfterUpdate()
    Dim rs1 As Recordset
    Set rs1 = CurrentDb.OpenRecordset("tblProduct", dbOpenDynaset, dbSeeChanges)
    
    rs1.FindFirst "Product_ID = '" & Me.cboProductID.Column(0) & "'"
    ' 检查是否找到匹配记录
    If Not rs1.NoMatch Then
        txtProduct_Name = rs1!Product_Name
        txtSale_Unit = rs1!Sale_Unit
    Else
        ' 未找到时清空文本框
        txtProduct_Name = ""
        txtSale_Unit = ""
    End If
    
    rs1.Close
    Set rs1 = Nothing
End Sub

更高效的简化方案 #

其实完全不需要打开记录集，组合框的行来源已经包含了Product_Name和Sale_Unit数据，直接通过组合框的Column属性取值即可，代码更简洁高效：

Private Sub cboProductID_AfterUpdate()
    ' Column索引从0开始，对应行来源的第1、2、3列
    txtProduct_Name = Me.cboProductID.Column(1)
    txtSale_Unit = Me.cboProductID.Column(2)
End Sub

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