How to Build a Business Rules Engine

ChkColumnUse = 0

Set rstChk = New ADODB.Recordset

strSQL = "SELECT COUNT(*) AS MYCOUNT " _

& " FROM " & strTable _

& " WHERE " & strColumn & " IS NOT NULL "

If strNumInd = "Y" Then

strSQL = strSQL & " AND " & strColumn & " <> 0"

End If

' It is assumed that numeric columns have 0 as a default value.

' We assume that for numeric columns zero and null values mean

‘ that the column is not used

rstChk.Open strSQL, CurrentProject.Connection, _

adOpenKeyset, adLockOptimistic, adCmdText

If rstChk("MYCOUNT") <> 0 And Not IsNull(rstChk("MYCOUNT")) Then

ChkColumnUse = rstChk("MYCOUNT")

End If

End Function

Public Function ChkColAsRuleTgt(strTable As String, strColumn As

String) As Long

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

' This function ...