Private Function ValidateAddress() As Boolean Dim saveResult As mmSaveDataResult Me.oAddress.TransactionBegin() saveResult = Me.Save(Me.oAddress) Select Case saveResult Case mmSaveDataResult.RulesPassed Me.oAddress.TransactionRollback() Return True Case mmSaveDataResult.RulesBroken Me.oAddress.ResolveConcurrency() Me.oAddress.TransactionRollback() Return False Case Else Me.oAddress.TransactionRollback() Return False End Select End FunctionThe validation functions are working fine. When it is actually saving the record in the Save Button click in the last tab, even the saveResult is RulePassed and commited, but the record is not inserted into the table. Thanks.