如果有人有记录的话，MS访问
如果有人有记录的话，MS访问
提问于 2018-06-06 08:41:23
我有以下的VBA代码，我想在意识到它不正确之前使用它；
Len(DLookup("Service_User_ID", "tblPurchaseOrders", "Service_User_ID=" & .Person_ID) > 0) And IsNull(DLookup("Purchase_Order_Number", "tblPurchaseOrders", "Purchase_Order_Number='" & .Purchase_Order & "'"))我想要代码做的是检查Purchase_Order_Number是否存在，以获得该Service_User_ID的记录。
回答 2
Stack Overflow用户
回答已采纳
发布于 2018-06-06 09:14:49
只要检查一下空
Found = Not IsNull(DLookup("Service_User_ID", "tblPurchaseOrders", "Service_User_ID = " & .Person_ID & " And Purchase_Order_Number = '" & .Purchase_Order & "'"))Stack Overflow用户
发布于 2018-06-06 09:09:33
我不确定我是否正确地理解了您的表字段，因为我假设Purchase_Order_Number是唯一的？如果是这样的话，你为什么需要Service_User_ID？
不管怎样，试试这个。
将它包装在一个函数中，以便能够从多个地方调用它。
Function OrderExists(ByVal purchaseOrder As String, ByVal personId As Long)
OrderExists = DCount("Purchase_Order_Number", "tblPurchaseOrders", "Purchase_Order_Number='" & purchaseOrder & "' AND Service_User_ID=" & personId) > 0
End Function称之为：
Sub T()
Dim bool As Boolean
bool = OrderExists("ABCD", 112)
Debug.Print bool
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50715897
复制相关文章
相似问题
腾讯云开发者
