Private Function SaveAddress() As Boolean Dim saveResult As mmSaveDataResult Me.oAddress.TransactionBegin() saveResult = Me.Save(Me.oAddress) Select Case saveResult Case mmSaveDataResult.RulesPassed Me.oAddress.TransactionCommit() Return True Case mmSaveDataResult.RulesBroken ' Do something Me.oAddress.TransactionRollback() Return False Case Else Me.oAddress.TransactionRollback() Return False End Select End FunctionThe save function for the other BizObj is similar. Whenver there is any broken rules, the error message will be duplicated, thanks.