导入数据后刷新表单

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而没有执行。

切换两条线。