適用先: Access 2013、Office 2013
オブジェクトがトランザクションをサポートしているかどうかを示す値を取得します。 読み取り専用の Boolean です。
構文
式 。トランザクション
expression: Recordset オブジェクトを表す変数。
注釈
Microsoft Access ワークスペースでは、ダイナセット タイプまたはテーブル タイプの Recordset オブジェクトでも Transactions プロパティを使用できます。 Snapshot-and forward-only-type Recordset オブジェクトは常に False を返します。
ダイナセット タイプまたはテーブル タイプの Recordset が Microsoft Access データベース エンジン テーブルに基づいている場合、 Transactions プロパティは True となるため、トランザクションを使用できます。 他のデータベース エンジンでは、トランザクションがサポートされていないことがあります。 たとえば、Paradox テーブルに基づくダイナセット タイプの Recordset オブジェクトでは、トランザクションを使用できません。
Recordset オブジェクトの Workspace オブジェクトで BeginTrans メソッドを使用する前に、 Transactions プロパティでトランザクションがサポートされているかどうかを確認してください。 トランザクションがサポートされていないオブジェクト上で BeginTrans、 CommitTrans、または Rollback の各メソッドを使用しても、何も変化しません。
例
次の例では、Microsoft Access ワークスペースでの Transactions プロパティの機能を示します。
Sub TransactionsX()
Dim wrkAcc As Workspace
Dim dbsNorthwind As Database
Dim conPubs As Connection
Dim rstTemp As Recordset
Set wrkAcc = CreateWorkspace("", "admin", "", dbUseJet)
Set dbsNorthwind = wrkAcc.OpenDatabase("Northwind.mdb")
' Open two different Recordset objects and display the
' Transactions property of each.
Debug.Print "Opening Microsoft Access table-type " & _
"recordset..."
Set rstTemp = dbsNorthwind.OpenRecordset( _
"Employees", dbOpenTable)
Debug.Print " Transactions = " & rstTemp.Transactions
Debug.Print "Opening forward-only-type " & _
"recordset where the source is an SQL statement..."
Set rstTemp = dbsNorthwind.OpenRecordset( _
"SELECT * FROM Employees", dbOpenForwardOnly)
Debug.Print " Transactions = " & rstTemp.Transactions
rstTemp.Close
dbsNorthwind.Close
conPubs.Close
wrkAcc.Close
End Sub