G
Guest
Sorry I forgot the code (Please see below). The first time that I call this class, I populate colScrollArea. The second time that I call this class, it, for some reason that I don't see, destroys colScrollArea. Does anyone have any ideas
I am using XL 2002
TIA
Jo
Code
Private Sub Class_Initialize(
Set m_f = New frmSecurit
If colScrollArea Is Nothing The
Call populateScrollAreaCollectio
End I
End Su
Private Sub Class_Terminate(
Unload m_
Set colScrollArea = Nothin
Set m_f = Nothin
End Su
populateScrollAreaCollection is a public sub in a module and has the following code
Public Sub populateScrollAreaCollection(
Set colScrollArea = New Collectio
With colScrollAre
.Add WKS_SA_MAIN, WKS_MAI
.Add WKS_SA_ECHO, WKS_ECH
.Add WKS_SA_CATH, WKS_CAT
.Add WKS_SA_NUCLEAR, WKS_NUCLEA
.Add WKS_SA_OTHER, WKS_OTHE
.Add WKS_SA_PACS, WKS_PAC
.Add WKS_SA_SYSTEM, WKS_SYSTE
.Add WKS_SA_REVIEW, WKS_REVIE
.Add WKS_SA_NETWORK, WKS_NETWOR
.Add WKS_SA_RESULTS, WKS_RESULT
End Wit
End Su
where colScrollArea is declared as
Public colScrollArea As Collectio
I am using XL 2002
TIA
Jo
Code
Private Sub Class_Initialize(
Set m_f = New frmSecurit
If colScrollArea Is Nothing The
Call populateScrollAreaCollectio
End I
End Su
Private Sub Class_Terminate(
Unload m_
Set colScrollArea = Nothin
Set m_f = Nothin
End Su
populateScrollAreaCollection is a public sub in a module and has the following code
Public Sub populateScrollAreaCollection(
Set colScrollArea = New Collectio
With colScrollAre
.Add WKS_SA_MAIN, WKS_MAI
.Add WKS_SA_ECHO, WKS_ECH
.Add WKS_SA_CATH, WKS_CAT
.Add WKS_SA_NUCLEAR, WKS_NUCLEA
.Add WKS_SA_OTHER, WKS_OTHE
.Add WKS_SA_PACS, WKS_PAC
.Add WKS_SA_SYSTEM, WKS_SYSTE
.Add WKS_SA_REVIEW, WKS_REVIE
.Add WKS_SA_NETWORK, WKS_NETWOR
.Add WKS_SA_RESULTS, WKS_RESULT
End Wit
End Su
where colScrollArea is declared as
Public colScrollArea As Collectio