Sub MyTransaction
BeginTrans
CurrentDb.CreateQueryDef("", "INSERT INTO test (a) VALUES (1)").Execute
CommitTrans
End Sub
Sous Access, il n'est possible de définir des transactions sur plusieurs objets requêtes qu'en VBA.