ACCESS/VBA:无法使Dcount正常工作

Question

下面是我用来根据结果启用/禁用按钮(允许创建新版本)的一部分代码。

如果dcount返回0，则意味着下一个修订版本还不存在(因此可以创建)；如果dcount返回1，则意味着下一个修订版本已经存在(因此该按钮将被禁用)

DCount("index_rit", "t_données_rit", "[RITn°]=" & Me.RITn°.Value & " AND [Revision]=" & Me.Revision.Value + 1)

我的问题是，由于某些原因，即使一条记录与dcount中输入的值相对应，它仍然返回0。

我在ant中尝试了这两种方法，但没有使用字段的[]。

我还尝试使用*而不是index_rit...

我哪里搞错了？

Answer 1

明白了。这是一个格式问题: RITn°的形式是xx-xx，所以我不得不这样说：

"[RITn°]='" & Me.RITn°.Value & "' AND [Revision]=" & Me.Revision.Value + 1)

(增加了单引号)

Answer 2

第一件事是DCount (和其他‘D’函数)通常被认为是性能的一点拖累。试着用这个快速函数替换它。您只需向它传递一个查询，它将返回记录计数

Private Function GetRecordCount(strSearch as String) as Long
Dim rst As ADODB.Recordset
Dim RecCount As Long

Set rst = New ADODB.Recordset

With rst
   .ActiveConnection = CodeProject.Connection
   .CursorType = adOpenForwardOnly
   .LockType = adLockReadOnly
   .Source = strSearch
   .Open Options:=adCmdText
   if .EOF = true then
        RecCount=0
   else
        RecCount=.Collect(0)
   End If

   .Close
End With

GetRecordCount = RecCount

Set rst = Nothing

End Function

这使用了ADO，但是如果您只是使用access表，那么可以/应该使用DAO，但这是另一个问题！