Public Variables - Releasing Values

[AlanAnderson]

Hi,
Another dumb question:
I have Userform1 which obtains info which is then used by Userform 2. To achieve this I am using public variables.
What I am unsure of is how to clear the values in those variables once UserForm2 ends. Is it as simple as vPublic1="" in the last line of userform?
Is there a better way to do this?

Regards,

Alan

 

[mole999]

its how I do it, or if numeric, just fill it with a zero

 

[RoryA]

Pass the information to the second userform directly, either by public variables declared in that userform, or using Property routines. They will automatically go out of scope when the form is unloaded.

 

[AlanAnderson]

Hi Mole - thanks - that's what I'm doing.

Rory, would you mind explaining what you mean by "using property routines"?
Thanks,

Alan

 

[AlanAnderson]

Hi Rory, Further to my last mail. If I run these user forms using F5 until they end. I then click reset. If I then run a small routine with msgbox I find these Public Variables still retain the values from both Forms 1 and 2. Do I haqve to clear them by setting as = "" or 0 ?

Thanks again,

Alan

 

[RoryA]

The public variables must be declared in the userform code module, not a normal module. They will then go out of scope when the form terminates.

 

[AlanAnderson]

Thanks Rory, I'll give it a try.

Regards,

Alan

 

[RoryA]

For the property procedures, have a look at the Class Basics section on this page (userforms are effectively a class)

 

[AlanAnderson]

Thanks again Rory, I appreciate the help.
Regards,

Alan

 

[RoryA]

Glad to help. As an example, this is the code I have in my template form so that all my forms have a Cancelled property (and they are always hidden, not unloaded, from the form itself - the calling code takes care of unloading them):

Option Explicit
Private m_blnCancelled As Boolean

Public Property Get Cancelled() As Boolean
    Cancelled = m_blnCancelled
End Property

Private Sub cmdCancel_Click()
    m_blnCancelled = True
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    m_blnCancelled = False
    Me.Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        cmdCancel_Click
    End If
End Sub