将另一个查找添加到语句

Question

我在一个表单上有一个简单的代码块，用于在输入订单之前查找是否存在零件号。如果有，它会显示一个绿色的复选标记，如果没有，它会显示一个红色的X。我想添加一个查找，以确保部件号也不会过时(true/false)。但我不确定我需要做什么。

‘这是代码

Private Sub txtPN1_LostFocus()
If Not IsNull(txtPN1) Then
    If DCount("[PartNum]", "[PartsFinished]", "[PartNum] = '" & txtPN1 & "'") > 0 Then
        pic1.Picture = "\\TORQSERVER\Torq\Shawn\check.png"
    Else:
        pic1.Picture = "\\TORQSERVER\Torq\Shawn\cross.jpg"
    End If
End If
End Sub

Answer 1

这可能是：

If DCount("*", "[PartsFinished]", "[PartNum] = '" & txtPN1 & "' And [Obsolete] = False") > 0 Then