Dlookup功能在访问?

时间:2016-01-14 20:06:14

标签: vba ms-access

我正在尝试使用Access中的dlookup函数查找一些值。我正在进行查询并使用两个不同的标准来提取数据。所以我从查询中提取数据然后将其插入到临时表中。我很难避免使用NULL值。

 With rs2
    While Not .EOF
        lngVendorID = rs2("CompanyID")
        lngUnitPrice = rs2("UnitPrice")
        'Beginning Count
        lngBegCount = (DLookup("BegCount", "qryBegInv", "UnitPrice = " & [lngUnitPrice] & " AND CompanyID = " & [lngCompanyID] & ""))
        If IsNull(lngBegCount) Or lngBegCount = "" Then
            lngBegCount = 0
        End If
        .Edit
        rs2("BegInvCount") = lngBegCount
        .Update
        rs2.MoveNext
        Wend

我一直有各种各样的错误。基本上我想查看DLOOKUP值是否为空,如果是,则使用0并将其插入rs2("BegInvCount"),如果它不为空,则将lngBegCount插入rs2("BegInvCount")

1 个答案:

答案 0 :(得分:1)

使用Nz()函数处理NULL值:

lngBegCount = Nz(DLookup("BegCount", "qryBegInv", _
    "UnitPrice = " & lngUnitPrice & " AND CompanyID = " & lngCompanyID & ""), 0)

你不需要围绕变量括号。