How to Build a Business Rules Engine

Setting a Value for an Indicator 393

LISTING 18.4

GetParentValue() Function

Public Function GetParentValue(rstCurr As ADODB.Recordset, strStTab

As String, _

strDestTab As String, strCol As String, intLevel As Integer,

strPath As String) As Variant

'*******************************************************************

' Returns a value of a specified column from its table, based on a

' call from a routine that has opened a child table and is

' current on one particular row in that child table

'

' Parameters:

' rstCurr = The currently open recordset. This is originally the

' recordset for the child table at the other end of

' the pathway.

' However, GetParentValue() opens all intermediate

' tables as it issues recursive calls as it navigates

' up the pathway, ...