向语句添加另一个查找

Question

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

"这是代码

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

Answer 1

这可能是：

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