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

切换两行。

导入数据后刷新表格

1 个答案: