系统退出的时侯把操作时所用的临时表删除。 代码如下, Private Sub 标签16_Click() DoCmd.SetWarnings False If fExistTable("临时表") = True Then DoCmd.DeleteObject acTable, "临时表" End If If fExistTable("临时表子表") = True Then DoCmd.DeleteObject acTable, "临时表子表" DoCmd.SetWarnings True End If DoCmd.Quit acQuitSaveAll End Sub