TableDef オブジェクト (DAO)

[アーティクル]
04/04/2023

適用先: Access 2013、Office 2013

TableDef オブジェクトは、ベーステーブルまたはリンクテーブルの保存済み定義を表します (Microsoft Access ワークスペースのみ)。

解説

テーブルの定義は、TableDef オブジェクトおよびそのメソッドとプロパティを使用して操作します。たとえば、以下の操作を実行できます。

データベースの任意のローカルテーブル、リンクテーブル、または外部キー側のテーブルのフィールドおよびインデックス構造を調べます。
Connect プロパティおよび SourceTableName プロパティを使用して、リンクテーブルに関する情報を設定または取得し、 RefreshLink メソッドを使用して、リンクテーブルへの接続を更新します。
ValidationRule プロパティおよび ValidationText プロパティを使用して、検証条件を設定したり、返したりします。
OpenRecordset メソッドを使用して、テーブル定義に基づいて、テーブル、ダイナセット、ダイナミック、スナップショット、転送専用の種類の Recordset オブジェクトを作成します。

ベーステーブルの場合、RecordCount プロパティには、指定されたデータベーステーブルのレコード数が含まれます。リンクテーブルの場合、RecordCount プロパティ設定値は必ず –1 です。

新しい TableDef オブジェクトを作成するには、CreateTableDef メソッドを使用します。

テーブルにフィールドを追加するには

テーブルに基づいた Recordset オブジェクトがすべて閉じていることを確認します。
CreateField メソッドを使用して、 Field オブジェクト変数を作成し、そのプロパティを設定します。
Append メソッドを使用して、 Field オブジェクトを TableDef オブジェクトの Fields コレクションに追加します。

インデックスが割り当てられていない場合、 TableDefs コレクションから Field オブジェクトを削除できますが、フィールドのデータが失われます。

データベースの新しいレコードを格納するテーブルを作成するには

CreateTableDef メソッドを使用して、 TableDef オブジェクトを作成します。
そのプロパティを設定します。
テーブルのフィールドごとに、 CreateField メソッドを使用して、 Field オブジェクト変数を作成し、そのプロパティを設定します。
Append メソッドを使用して、フィールドを TableDef オブジェクトの Fields コレクションに追加します。
Append メソッドを使用して、新しい TableDef オブジェクトを Database オブジェクトの TableDefs コレクションに追加します。

リンクテーブルは、 TableDef オブジェクトの SourceTableName プロパティおよび Connect プロパティによってデータベースに接続されます。

テーブルをデータベースにリンクするには

CreateTableDef メソッドを使用して、 TableDef オブジェクトを作成します。
その Connect プロパティおよび SourceTableName プロパティ、さらにオプションで Attributes プロパティを設定します。
Append メソッドを使用して、 Database の TableDefs コレクションに追加します。

コレクション内の TableDef オブジェクトを、コレクションで付けられたインデックスまたは Name プロパティの設定値で参照するには、次のいずれかの構文を使います。

TableDefs(0)

TableDefs("name")

TableDefs![name]

例

この例では、新しい TableDef オブジェクトを作成し、Northwind Database オブジェクトの TableDefs コレクションに追加します。次に、 TableDefs コレクションおよび新しい TableDef オブジェクトの Properties コレクションを列挙します。

    Sub TableDefX() 
     
       Dim dbsNorthwind As Database 
       Dim tdfNew As TableDef 
       Dim tdfLoop As TableDef 
       Dim prpLoop As Property 
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     
       ' Create new TableDef object, append Field objects  
       ' to its Fields collection, and append TableDef  
       ' object to the TableDefs collection of the  
       ' Database object. 
       Set tdfNew = dbsNorthwind.CreateTableDef("NewTableDef") 
       tdfNew.Fields.Append tdfNew.CreateField("Date", dbDate) 
       dbsNorthwind.TableDefs.Append tdfNew 
     
       With dbsNorthwind 
          Debug.Print .TableDefs.Count & _ 
             " TableDefs in " & .Name 
     
          ' Enumerate TableDefs collection. 
          For Each tdfLoop In .TableDefs 
             Debug.Print "  " & tdfLoop.Name 
          Next tdfLoop 
     
          With tdfNew 
             Debug.Print "Properties of " & .Name 
     
             ' Enumerate Properties collection of new 
             ' TableDef object, only printing properties 
             ' with non-empty values. 
             For Each prpLoop In .Properties 
                Debug.Print "  " & prpLoop.Name & " - " & _ 
                   IIf(prpLoop = "", "[empty]", prpLoop) 
             Next prpLoop 
     
          End With 
     
          ' Delete new TableDef since this is a  
          ' demonstration. 
          .TableDefs.Delete tdfNew.Name 
          .Close 
       End With 
     
    End Sub

この例では、Northwind データベースで新しい TableDef オブジェクトを作成します。

Sub CreateTableDefX() 
 
   Dim dbsNorthwind As Database 
   Dim tdfNew As TableDef 
   Dim prpLoop As Property 
 
   Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
 
   ' Create a new TableDef object. 
   Set tdfNew = dbsNorthwind.CreateTableDef("Contacts") 
 
   With tdfNew 
      ' Create fields and append them to the new TableDef  
      ' object. This must be done before appending the  
      ' TableDef object to the TableDefs collection of the  
      ' Northwind database. 
      .Fields.Append .CreateField("FirstName", dbText) 
      .Fields.Append .CreateField("LastName", dbText) 
      .Fields.Append .CreateField("Phone", dbText) 
      .Fields.Append .CreateField("Notes", dbMemo) 
 
      Debug.Print "Properties of new TableDef object " & _ 
         "before appending to collection:" 
 
      ' Enumerate Properties collection of new TableDef  
      ' object. 
      For Each prpLoop In .Properties 
         On Error Resume Next 
         If prpLoop <> "" Then Debug.Print "  " & _ 
           prpLoop.Name & " = " & prpLoop 
         On Error GoTo 0 
      Next prpLoop 
 
      ' Append the new TableDef object to the Northwind  
      ' database. 
      dbsNorthwind.TableDefs.Append tdfNew 
 
      Debug.Print "Properties of new TableDef object " & _ 
         "after appending to collection:" 
 
      ' Enumerate Properties collection of new TableDef  
      ' object. 
      For Each prpLoop In .Properties 
         On Error Resume Next 
         If prpLoop <> "" Then Debug.Print "  " & _ 
           prpLoop.Name & " = " & prpLoop 
         On Error GoTo 0 
      Next prpLoop 
 
   End With 
 
   ' Delete new TableDef object since this is a  
   ' demonstration. 
   dbsNorthwind.TableDefs.Delete "Contacts" 
 
   dbsNorthwind.Close

次の例は、集計フィールドを作成する方法を示します。 CreateField メソッドで、" FullName" という名前のフィールドを作成します。次に、 Expression プロパティを、フィールドの値を計算する式に設定します。

サンプルコードの提供元:Microsoft Access 2010 Programmer's Reference。

    Sub CreateCalculatedField()
        Dim dbs As DAO.Database
        Dim tdf As DAO.TableDef
        Dim fld As DAO.Field2
        
        ' get the database
        Set dbs = CurrentDb()
        
        ' create the table
        Set tdf = dbs.CreateTableDef("tblContactsCalcField")
        
        ' create the fields: first name, last name
        tdf.Fields.Append tdf.CreateField("FirstName", dbText, 20)
        tdf.Fields.Append tdf.CreateField("LastName", dbText, 20)
        
        ' create the calculated field: full name
        Set fld = tdf.CreateField("FullName", dbText, 50)
        fld.Expression = "[FirstName] & "" "" & [LastName]"
        tdf.Fields.Append fld
        
        ' append the table and cleanup
        dbs.TableDefs.Append tdf
        
    Cleanup:
        Set fld = Nothing
        Set tdf = Nothing
        Set dbs = Nothing
    End Sub

Share via

TableDef オブジェクト (DAO)

解説

テーブルにフィールドを追加するには

データベースの新しいレコードを格納するテーブルを作成するには

テーブルをデータベースにリンクするには

例

その他のリソース