检查记录集中的值差异

时间:2016-06-18 11:09:20

标签: access-vba access

我正在尝试检查记录集中字段的值,以查看它们是否完全相同。该字段是一个字符串。但是,字段应该没有正确的值,它们应该完全相同。

我的想法是,当我在调用函数时,如果记录集中的所有字段(公司名称)不相等,则函数将退出。

1 个答案:

答案 0 :(得分:2)

  

您可以使用基于公司名称的简单计数记录集

     

这样的东西应该有效 - 为表名和字段名修改

     

您想要计算表格中DISTINCT公司名称的数量(或   查询)

     

如果他们都一样 - 那么NumRecs会返回1个唯一值

strSQL = "SELECT COUNT(*) AS NumRecs FROM " & _
"(SELECT DISTINCT Table1.CompanyName" & _
"FROM Table1) AS t1;"

Set rs = currentdb.openrecordset(strSQL)
if rs!NumRecs = 1 then
 ' all good
else
  ' exit function
endif