access-vba
現在のDBにテーブルが存在するかどうかを確認する

.NET Framework C# Language excel-vba HTML MySQL Regular Expressions SQL Microsoft SQL Server Visual Basic .NET Language VBA
サーチ…


備考

このコードを他のプロシージャから呼び出せるパブリックモジュールとして配置するだけです。コードを呼び出すときは、かっこ内で検索するテーブルの名前を追加します。このコードは、テーブルがすでに存在するかどうかに応じて真偽値を返します。これは、追加のコードを実行する前にテーブルを削除/パージする必要があるかどうか、またはテーブルがすでに存在するかどうかを判断する必要がある場合に役立ちます。

例

Public Function TblExists(sTable As String) As Boolean
    
    On Error Resume Next
    Dim tdf As TableDef
  
    Set tdf = CurrentDb.TableDefs(sTable)

    If Err.Number = 0 Then
        TblExists = True
    Else
        TblExists = False
    End If
End Function

1行で使用できるややシンプルな関数

Public Function TableExists(value as String) as Boolean

    On Error Resume Next
    TableExists = Len(CurrentDb.Tabledefs(value).Name & "") > 0

End Function


Modified text is an extract of the original Stack Overflow Documentation
ライセンスを受けた CC BY-SA 3.0
所属していない Stack Overflow