向语句添加另一个查询

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

结束子

Answer 1

可能是：

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