[AccessD] OT Colby's Framework

Borg,

Did my response help at all.  Do you want to discuss this?  Here on the list
is fine, or off list as well if you wish.

John W. Colby
www.ColbyConsulting.com 

Contribute your unused CPU cycles to a good cause:
http://folding.stanford.edu/

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen
Sent: Thursday, October 20, 2005 8:48 AM
To: Access Developers discussion and problem solving
Subject: [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




-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com