добавить еще один поиск к заявлению - PullRequest
Новая
       26

добавить еще один поиск к заявлению

1 голос
/ 31 октября 2019

У меня есть этот простой блок кода в форме, который проверяет, существует ли номер детали до того, как заказ может быть введен. Он отображает либо зеленую галочку, если он делает, либо красный 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

1 Ответ

0 голосов
/ 31 октября 2019

Это может быть: 

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