Обновление формы после импорта данных

Question

Все еще плохо знаком с доступом, поэтому не уверен, что это вообще возможно, или мне просто нужно добавить отдельную кнопку, в основном я написал код для импорта документов Excel, и мне нужна форма для обновления / запроса после завершения импорта.

Я пробовал и me.refresh, и me.requery, однако форма не обновляется.

Private Sub ImportBlacklist_Click()

Dim SelectedFile    As String
Dim FilePicker      As FileDialog
Dim SQLdelete       As String

Set FilePicker = Application.FileDialog(msoFileDialogFilePicker)
FilePicker.AllowMultiSelect = False
FilePicker.Filters.Add "Excel", "*.xls*", 1
FilePicker.InitialFileName = "C:\Users\"
FilePicker.Title = "Select Suppression List Location..."
FilePicker.Show

If FilePicker.SelectedItems.Count <> 0 Then
    SelectedFile = FilePicker.SelectedItems(1)

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Blacklist", SelectedFile, True

    MsgBox ("Import Success")
End If

Exit Sub

Me.Requery

ErrorHandler:
MsgBox "There was an Error: " & Err & ": " & Error(Err)
End Sub

Импорт все работает как положено, мне просто нужно обновить форму после закрытия MsgBox

Answer 1

У вас есть

Exit Sub

Me.Requery

Me.Requery выполнит эту работу, но она не будет выполнена из-за Exit Sub ранее.

Переключить две линии.