Public Function TestQDF()
On Error Resume Next
DBEngine.BeginTrans
Me.Tag =  "Фигняс и ошибочки" 
    With CurrentDb.CreateQueryDef( "")    
        If True Then
           ' Заносим в таблицу1
           .sql = "INSERT INTO tests Values(1,1,1)"
           .Execute dbFailOnError
           '  Заносим в таблицу2
           .sql = Me.Tag ' здесь запрос такой же
           Debug.Print Err.Description
           Err.Clear
           .Execute dbFailOnError
        End If
    End With
If Err <> 0  Then
    DBEngine.Rollback
    Debug.Print "Rollback "
Else
    DBEngine.CommitTrans
    Debug.Print " Committed"
End If
End Function