Я новичок в Microsoft Access и пытаюсь понять проблему.
Я использую форму для поиска номера приложения на основе таблицы (UpdatedFiles).
Я пытаюсь получить форму для отображения последнего введенного статуса по заданному номеру заявки. Однако, когда я пытаюсь это сделать, в результате всегда отображается самый ранний введенный статус для данного номера приложения.
В моей форме есть код, который обновляет дату входа (ENTRYDT) после сохранения записи.
Я в основном пытаюсь использовать последнюю версию ENTRYDT, когда ищу номер приложения (APPID). APPID - это первичный ключ таблицы.
Вот как выглядит мой код:
Private Sub SearchCommand_Click()
Dim strfilapp As String
Dim strcheck As Variant
strfilapp = "[APPID] = " & "'" & Me!APPID & "'"
strcheck = DLookup("[APPID]", "UpdatedFiles", strfilapp)
If Not IsNull(strcheck) Then
On Error Resume Next
[APPID] = DLookup("[APPID]", "UpdatedFiles", strfilapp)
[LN] = DLookup("[LN]", "UpdatedFiles", strfilapp)
[FN] = DLookup("[FN]", "UpdatedFiles", strfilapp)
[PAPERAPP] = DLookup("[PAPERAPP]", "UpdatedFiles", strfilapp & "[ENTRYDT]" >= # LATEST #)
On Error GoTo 0
Else
Me.APPID = ""
MsgBox ("No file with an hyperlinked paper application found for your search. Searching for a file without...")
strcheck = DLookup("[APPID]", "InitialFiles", strfilapp)
If Not IsNull(strcheck) Then
On Error Resume Next
[APPID] = DLookup("[APPID]", "InitialFiles", strfilapp)
[LN] = DLookup("[LN]", "InitialFiles", strfilapp)
[FN] = DLookup("[FN]", "InitialFiles", strfilapp)
On Error GoTo 0
Else
Me.APPID = ""
MsgBox ("No file found for your search. Try again.")
Me.SearchField.SetFocus
End If
End If
End Sub
Когда я выполняю поиск по APPID, я продолжаю получать приложение, которое было впервые введено в базу данных, а не самое последнее (на основе ENTRYDT).
Я пробовал добавить ENTRYDT в строку [PAPERAPP] в качестве параметра в DLookup, но просто не могу понять, как это сделать. Не могли бы вы мне помочь?
Спасибо!
If Not IsNull(Me.APPID) Then
. Тогда зачем устанавливать в поле APPID значение APPID? Я не вижу использования ENTRYDT. Отредактируйте вопрос, чтобы показать свою попытку. Код, кажется, дублирует информацию об имени в нескольких записях - почему? - person June7   schedule 22.02.2021& " AND [ENTRYDT] >= #" & [LATEST] & "#")
- person June7   schedule 23.02.2021