COUNT(DISTINCT [bomid]) 在ACCESS中对应的代码

在 Microsoft Access 中，`COUNT(DISTINCT [bomid])` 这句 SQL 查询是用来计算名为 `bomid` 的字段中有多少个唯一的值。在Access表单或查询设计视图中，这会等同于使用 `COUNT()` 函数结合条件 `DISTINCT` 来获取不重复的 `bomid` 数量。如果你想要在 VBA 宏或SQL查询中编写这个逻辑，你可以这样做：

Dim qdf As DAO.QueryDef
Set qdf = CurrentDb.CreateQueryDef("MyQuery", "SELECT COUNT(*) AS DistinctBomid FROM MyTable WHERE DistinctBomid IS NOT NULL")
qdf.Open
Dim result As Long
result = qdf.Recordset!DistinctBomid
qdf.Close
Set qdf = Nothing

' 或者直接在SQL窗格中输入
'SET qdf = CurrentDb.QueryDefs.Add(ProperName, "SELECT COUNT(DISTINCT bomid) AS DistinctCount FROM MyTable")
' 然后运行 qdf.Execute 或 .RunSQL

这里假设你有一个名为 "MyTable" 的表，并且 "bomid" 是该表的一个字段。`ProperName` 可以替换为你实际查询定义的名称。