Private Function DataEntry() As Boolean ... If ValidateBeforeIntializeWithRow() Then ' Initialization code with row If Not InitializeWithRow() Then Return False End If End If ... Return True End Function Private Function ValidateBeforeIntializeWithRow() As Boolean ' validation code here End Function Public Overridable Function InitializeWithRow() As Boolean Return True End FunctionNow, perhaps you meant you only wanted to do that validation *IF* the sub-class overrode the InitializeWithRow() function and you're right, there's no way to know that. Depending on what this validation is supposed to do, it may not matter if it runs even when there's Override.
> Private Function DataEntry() As Boolean > >... > > ' Initialization code with row > If Not InitializeWithRow() Then > Return False > End If > >... > > Return True > End Function > > Public Overridable Function InitializeWithRow() As Boolean > Return True > End Function >>
> Public Overrides Function InitializeWithRow() As Boolean > > ' If the status is Voided or Closed > If oProcess.oApp.Inlist(oRow("NoStatus"), 7, 8) Then > AddDate("ContactDate", , False) > Else > AddDate("ContactDate", , False, True) > End If > > Return True > End Function >>