刷新MS Access表中所有记录的好方法是什么

Question

我有一个必须定期刷新的现有表。 无法删除表，但表中的记录可以删除。 是否可以通过删除所有记录并在一个查询中附加新记录来执行此操作？ 这样做的好方法是什么？

Answer 1

如果可以允许删除该表，则一个查询可以执行此操作：

SELECT * INTO TempTable FROM YourTable;

否则，必须使用两个查询：首先是删除查询，然后是追加查询：

Public Function RefreshTable()
Dim AppendSql As String
Dim DeleteSql As String
AppendSql = "<Your append SQL>"  ' Copy/paste from a working query.
DeleteSql = "<Your delete SQL>"  ' Copy/paste from a working query.
CurrentDb.Execute DeleteSql
CurrentDb.Execute AppendSql
End Sub