MS-Accessでは、更新と削除のカスケード、およびDDLを使用したそれらの作成などの参照整合性ルールを認識しています。
しかし、テーブルがすでに作成された後、これらを再度リストするにはどうすればよいでしょうか。
MS-Accessでは、更新と削除のカスケード、およびDDLを使用したそれらの作成などの参照整合性ルールを認識しています。
しかし、テーブルがすでに作成された後、これらを再度リストするにはどうすればよいでしょうか。
VBAでは、TableDefsコレクションとRelationsコレクションを使用して、テーブルとリレーションシップのプロパティを表示できます。ADOスキーマを使用して情報を取得することもできます。
特に、関係の属性を参照する必要があります。
Name Value Description
dbRelationDeleteCascade 4096 Deletions cascade
dbRelationDontEnforce 2 Relationship not enforced (no referential integrity)
dbRelationInherited 4 Relationship exists in the database containing the two linked tables
dbRelationLeft 16777216 Microsoft Access only. In Design view, display a LEFT JOIN as the default join type.
dbRelationRight 33554432 Microsoft Access only. In Design view, display a RIGHT JOIN as the default join type.
dbRelationUnique 1 One-to-one relationship
dbRelationUpdateCascade 256 Updates cascade
http://msdn.microsoft.com/en-us/library/bb225809.aspx
Dim rel As Relation
Dim tdf As TableDef
For Each rel In CurrentDb.Relations
Debug.Print rel.Attributes
Next
4352 = dbRelationUpdateCascade + dbRelationDeleteCascade