Access 2016 VBA代码无法识别重复产品名称求助

问题场景 #

以下VBA代码用于根据产品名称获取编号并检测重复，但即使存在多条重复的产品名称记录，rs.RecordCount始终返回1，无法触发重复提示：

Dim db as dao.database
Dim rs as dao.recordset

Set db = currentdb

Sql_string = "SELECT code_number FROM table_product WHERE name_product ='Printer HP Color Laser Jet 550dn'"

Set rs = db.openrecordset(Sql_string)

If rs.recordcount > 1 then 
    Msgbox "Duplicate Product"
    db.close
    rs.close 'all seted to nothings
    Exit sub
Else:Text1.value =rs!code_number
End if

而结构相似、根据产品编号查询名称的代码却能正常工作：

Dim db as dao.database
Dim rs as dao.recordset

Set db = currentdb

Sql_string = "SELECT product_name FROM table_product WHERE code_number ='INK001'"

Set rs = db.openrecordset(Sql_string)

If rs.recordcount > 1 then 
    Msgbox "Duplicate Product"
    db.close
    rs.close
    Exit sub
Else:Text2.value =rs!product_name
End if

已排查表结构、字段名，SQL语句单独执行正常，修复Office、查阅DAO文档后仍未解决问题。

原因分析 #

DAO的RecordCount属性对于动态集类型的记录集（默认打开类型），仅返回当前已加载到内存的记录数。打开记录集时，Access默认只加载第一条记录，因此RecordCount初始值为1，除非强制加载所有记录。

第二段代码能正常工作，是因为code_number通常是主键或带有唯一约束，查询结果最多1条，无需加载所有记录即可得到正确的RecordCount；但第一段查询针对可能存在重复的name_product，不加载所有记录就无法获取真实的总条数。

此外，原代码存在资源关闭顺序错误（先关数据库再关记录集），且未释放对象引用，可能导致资源泄漏。

解决方案 #

方案1：强制加载所有记录后再获取RecordCount #

打开记录集后，通过MoveLast和MoveFirst触发DAO加载所有记录，确保RecordCount返回真实总条数：

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Sql_string As String

Set db = CurrentDb
Sql_string = "SELECT code_number FROM table_product WHERE name_product ='Printer HP Color Laser Jet 550dn'"

Set rs = db.OpenRecordset(Sql_string)

' 强制加载所有记录
rs.MoveLast
rs.MoveFirst

If rs.RecordCount > 1 Then
    MsgBox "Duplicate Product"
Else
    Text1.Value = rs!code_number
End If

' 正确关闭资源：先关记录集，再关数据库，最后释放对象
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Exit Sub

方案2：使用DCount/DLookup函数替代记录集（更高效） #

无需打开记录集，直接用Access内置函数统计数量和查询值，代码更简洁高效：

Dim duplicateCount As Long
duplicateCount = DCount("*", "table_product", "name_product = 'Printer HP Color Laser Jet 550dn'")

If duplicateCount > 1 Then
    MsgBox "Duplicate Product"
Else
    Text1.Value = DLookup("code_number", "table_product", "name_product = 'Printer HP Color Laser Jet 550dn'")
End If

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