0

我创建了一个将 csv 文件导入为名为“ImportTable”的新表的表单。我有查询要查看数据。

完成数据后，我想完全删除表（作为客户端工作流程要求的一部分）。我被困在如何将 delete_table 函数应用于点击事件。

我把下面的函数放在一起来删除表。如何将此应用于点击事件？

按钮名称为：cmdDeleteImportTable_Click()

Public Function table_exists(tblName As String) As Boolean

'Returns True if table exists in current DB. Else False

Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
    If StrComp(tblName, tdf.Name) = 0 Then
        table_exists = True
        Exit For
    End If
Next tdf
End Function


Public Function delete_table(tblName As String) As Boolean
'Returns true if the table is deleted or if the table does not exist

On Error GoTo errHandler

If table_exists(tblName) Then
    DoCmd.DeleteObject acTable, tblName
End If
delete_table = True
ExitSuccess:
    Exit Function
errHandler:
    Debug.Print Err.Number, Err.Description
    Resume ExitSuccess

End Function

Sub Test()
Const Names_Table = "ImportTable"
DoCmd.SetWarnings False
Debug.Print delete_table(Names_Table)
DoCmd.SetWarnings True
End Sub
4

1 回答 1

2

您的代码似乎正确。

您现在需要做的就是添加一个按钮。在访问表单中，您必须选择按钮，然后在事件选项卡中，您有On Click。选择它并选择代码。

这将为单击事件创建一个事件处理程序。在此事件处理程序中，您可以调用代码来导入数据或删除表。

更多细节在这里

于 2021-06-22T04:44:08.010 回答