[AccessD] OT Colby's Framework

Hi John,
This probably doesn't belong here... but

Is someone framing me?

Case : DemoFW_FE.mdb

I have problem initializing.....

When executing the line
        mclsFramework.Init Nothing in function FWinit()

it runs the init of the clsFramework:

Public Sub Init(ByRef robjParent As Object)
    Set mobjParent = robjParent
    cIS.Register Me
    assDebugPrint "init " & mstrInstanceName, DebugPrint
    mclsSVFW.Init Nothing, gfwcnn, "usystblFWSysVars"
    cIS.EnblPtrStack = SV("EnblPtrStack")     <================== crashes
here
    cIS.EnblNameStack = SV("EnblNameStack")
    mclsZip.Init Nothing
End Sub

The function
Public Function SV(strSVName As String) As Variant
    SV = mclsSVFW.SV(strSVName)
End Function

takes us to : with "EnblPtrStack" as the strSVName value

Function SV(strSVName As String, Optional strSVFld As String =
"SV_VarValue") As Variant
On Error GoTo Err_SV
    Select Case strSVFld
    Case "SV_VarValue"
        SV = mcolSysVars(strSVName).Value()   <========= errors here (error
number 5)
    Case "SV_Memo"
        SV = mcolSysVars(strSVName).Memo()
    Case "SV_UserEditable"
        SV = mcolSysVars(strSVName).UserEditable()
    Case "SV_AllowOverride"
        SV = mcolSysVars(strSVName).AllowOverride()
    Case Else
    End Select
Exit_SV:
Exit Function
Err_SV:
    Select Case Err
    Case 0
        Resume Exit_SV
    Case 5
        SV = Null                      <======== You set the SV to null, but
then errors with : "Invalid Use of NULL"
        Resume Exit_SV
    Case Else
        MsgBox Err.Description, , "Error in Function clsSysVars.SV"
        Resume Exit_SV
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

.......
Being able to run your sample code is the first step ...

Persistence is getting me nowhere!

Any suggestions?

/borge