禁用导入错误表在MS Access(Disable Import errors table in M

刚开始用，我不是在Access中一个非常有经验的程序员。 有没有什么办法可以禁用导入错误表这是当你从Excel导入文件的访问自动生成？

我想这样做的原因是我的excel文件有关于不同位置的数据，约4000行，现在我要做的是上导入报告的位置正确这就是为什么我不担心有关导入错误。 此外，它只是检测一排的错误，因为我是从VBA代码导入表，将保持产生这个错误表和我结束了很大的一群人。

我做了一些研究，但我找到通过固定进口的文件格式，解决问题的答案，但我没有得到有关如何禁用这些问题的答案。

不胜感激，如果任何人都可以提供帮助。

编辑：

从@parfait建议后，下面的代码并获得成功。 任何其他建议也欢迎。

Sub dropImportError() Dim tbl_name As DAO.TableDef, str As String With CurrentDb For Each tbl_name In .TableDefs str = tbl_name.Name If InStr(str, "ImportErrors") <> 0 Then str = "DROP TABLE ” ＆STR＆“ " DoCmd.RunSQL str End If Next End With End Sub

Answer 1:

刚碰到这个问题我自己，运行程序的导入后我马上跑到下面的代码保存在一个独立的模块。 简单地粘贴功能DeleteImportErrors到宏观，过程或函数。

模块代码：

Public Function DeleteImportErrors()
    Dim n As Integer
    Dim db As DAO.Database

    Set db = CurrentDb
    For n = db.TableDefs.Count - 1 To 0 Step -1
    ' loop through all tables
        If InStr(1, db.TableDefs(n).Name, "ImportError") > 0 Then
        ' if table is import errors table
            DoCmd.DeleteObject acTable, db.TableDefs(n).Name
            ' delete table
        End If
    Next n
End Function

Answer 2:

 'Delete Import Error tables Private Sub Delete_Error_Tables() Do Until IsNull(DLookup("Name", "Msysobjects", "Name like '*ImportErrors*'")) DoCmd.DeleteObject acTable, DLookup("Name", "Msysobjects", "Name like '*ImportErrors*'") Loop End Sub 

文章来源: Disable Import errors table in Ms Access