vba - 向语句添加另一个查找

Question

我在一个表单上有这个简单的代码块，可以在输入订单之前查找零件号是否存在。如果有，则显示绿色复选标记，如果没有，则显示红色 X。我想添加一个查找以确保零件号也没有过时（真/假）。但我不确定我需要做什么。

'这是代码

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