Если еще не прочитано должным образом после изменений, внесенных в любой документ

Question

У меня есть кнопка в форме, в которой я использую Если еще, чтобы проверить, есть ли в списке просматриваемых документов «ЕСЛИ» какой-либо документ со статусом «Блокировка», я выведу окно с сообщением «Сначала проверьте компьютер!».Итак,

Сначала, после нажатия кнопки, запускается код и все работает.Затем я пытаюсь нажать кнопку еще раз без внесения каких-либо изменений, и появится окно сообщения.

Но когда я внес изменения в какой-либо документ и изменил статус на другие, такие как «Активный», я возвращаюсь ксформируйте и нажмите кнопку, это не вызовет сообщение, но пропустит первый If и перейдет к другому.

Ниже приведен мой код:

If doc.PStatus(0) = "Lock" Then
    Msgbox "Complete PC Inspection first!"
    Exit Sub
Else
    answer% = Messagebox("Do you confirm with this infomation?", 4,"Batch Number")
    Some code...
    ...
End If

Что я хочу сделать, так это то, что кнопка не переходит в «другое», если в любом документе в представлении все еще есть статус «Блокировка».Он будет продолжать «еще», если в представлении нет статуса «Блокировка».Любая помощь будет оценена.Спасибо!

Answer 1

Лучше использовать представление, которое содержит все заблокированные документы, заказанные ключом ПК или около того. Или используйте вид, отсортированный по ключу и состоянию, чтобы вы могли выбрать все заблокированные документы для конкретного компьютера. Если их нет, GetDocumentByKey ничего не возвращает.