'------------------------------------------------------------------------'
'
' "_インポート エラー*"テーブルを全て削除
'
'------------------------------------------------------------------------'
Public Function DeleteInportErrTbl()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
If obj.Name Like "_インポート エラー*" Then
DoCmd.DeleteObject acTable, obj.Name
End If
Next obj
End Function
'------------------------------------------------------------------------'
'
' テーブルが存在するか？
'
'------------------------------------------------------------------------'
' "myTableName"のテーブルが存在すれば"True"を返し、存在しなければ"False"を返します。
Public Function TableExists(ByVal myTableName As String) As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
TableExists = False
For Each obj In dbs.AllTables
If obj.Name = myTableName Then
TableExists = True
Exit For
End If
Next obj
End Function
