Thanks
Tim
Private Sub MyBO_BusinessRulesChecked(ByVal e As MicroFour.StrataFrame.Business.BusinessRulesCheckedEventArgs) Handles Me.BusinessRulesChecked e.IgnoreRulesAndForceSave = TrueEnd Sub
Hope it helps