Réponse acceptée !
Bonjour,
un truc du genre:

Function EXEMPLE(MaRequete As String) As Boolean
  On Error GoTo err_trans
  DBEngine.Workspaces(0).BeginTrans
     CurrentDB.Execute MaRequete, dbFailOnError
  DBEngine.Workspaces(0).CommitTrans
  EXEMPLE= True
Exit Function
err_trans
 DBEngine.Workspaces(0).Rollback
 MsgBox Err.Description
End Function

[] Ce qui va sans dire. va mieux en le disant.

---