Sql 数据计数错误MS访问

Sql 数据计数错误MS访问,sql,ms-access,vba,Sql,Ms Access,Vba,这可能是一个简单的解决办法。有些东西我的眼睛就是抓不住。我不断得到一个运行时错误,标准表达式中有3464个数据类型不匹配。错误在intX行中。我有一个命令按钮“cmdShowLot”。我正在尝试检查tblLots的lotID,确保tblLots上的所有者ID和表单上的customerID匹配。如果有任何帮助,我将不胜感激 Private Sub cmdShowLots_Click() Dim intX As Integer intX = DCount("fld

这可能是一个简单的解决办法。有些东西我的眼睛就是抓不住。我不断得到一个运行时错误,标准表达式中有3464个数据类型不匹配。错误在intX行中。我有一个命令按钮“cmdShowLot”。我正在尝试检查tblLots的lotID,确保tblLots上的所有者ID和表单上的customerID匹配。如果有任何帮助,我将不胜感激

    Private Sub cmdShowLots_Click()
       Dim intX As Integer
       intX = DCount("fldLotID", "tblLots", "fldOwnerID = '" & Me.fldCustomerID & "'")
       If intX = 0 Then
         MsgBox "This Customer does not own a lot."
       Else
         DoCmd.OpenReport "rptCutomerLots", acViewReport, "", "", acNormal
       End If
    End Sub

假设fldOwnerID是一个数字,删除此表达式中的撇号:

"fldOwnerID = '" & Me.fldCustomerID & "'"
那就

"fldOwnerID = " & Me.fldCustomerID
我还将在DCount周围包装一个Nz()(null to zero函数),以防DCount返回null(表单上缺少的CustomerID),这将引发错误。