Passing public property

[Zach Ahmed]

Hi All:
I created a public property on my form3. The property I created is called lVisible. I assigned "F' to this property from Form2. Like so: Form3.lVisible = "F". Than I call form3 like so:
Load Form3
Form3.Show 1

If my form3, I have some code like so:
Private Sub Form_Activate()
If Me.lVisible = F Then
txtbxaddr2.Visible = False
End If
txtPerson.SetFocus
End Sub

The lVisible property in Form3 is null, even though I am setting the value to "F" in form. What am I doing wrong?
Thanks

[techgnome]

Try loading it first then setting the property, then showing it.

Load Form3
Form3.lVisible = "F"
Form3.Show 1

TG

[Zach Ahmed]

Still the value of lVisible is emtpy. What do I do next?

[Zach Ahmed]

Hi:
I still need some help on setting a value on a public property.
I created a public property on form 3 the property is called lVisible.

Before I call form3 this is what I do:

Private Sub cmdaddpersoncollect_Click()
Form2.Hide
Load Form3
Form3.lVisible = "F"
Form3.txtPerson.Text = RTrim(ComboPrsTicket.Text)
Form3.Show 1
End Sub

In Form3, the lVisible is empty. What do I need to do in order to save the value I store in lVisible in Form2?

Thanks

[techgnome]

What does the code behind your property look like?

TG

[Zach Ahmed]

I do not have any code behind the property.

Public Property Get lVisible() As Variant

End Property

Public Property Let lVisible(ByVal vNewValue As Variant)

End Property

What code should I add behind the property?

[techgnome]

OK,..... now the source of the problem has been exposed. You've created the property, but not told it where to hold the data.

dim mvarIVisible as Variant
 
Public Property Get lVisible() As Variant
  IVisible = mvarIVisible
End Property
 
Public Property Let lVisible(ByVal vNewValue As Variant)
  mvarIVisible = vNewValue
End Property

And you really should type case the property (and the related variable) to a specific type.

TG

[Zach Ahmed]

Thank you very much that was it.