referencing the same class objects in two forms

  • Thread starter Thread starter rocco
  • Start date Start date
R

rocco

Hello,
I have a button in Form A that will open another form (Form B).
In Form B I have declared a class object:
Public WithEvents Calendario As Calendar
(it is calendar I have created with few feature needed by the application).

I have declared it as public hoping this will allow me to set two of its
properties through code in Form A by coding in Form A module:
DoCmd.OpenForm FormBname, acNormal 'and its module will create the
public Calendario object
Calendario.WhichControl = "contactData"
Calendario.WhichForm = Me.Name

But I get the error that the object doesn't exist.

Then I tried to solve the issue by creating a public calendar object in Form
A and setting its two properties in Form A module:
Public CalendarioST as Calendar

Private Sub Form_Load()
Dim i As Integer
Set CalendarioST = New Calendar
CalendarioST.WhichControl = "contactData"
CalendarioST.WhichForm = Me.Name
'then I open Form B
DoCmd.OpenForm FormBname, acNormal
Set CalendarioST=nothing
End sub

in Form B I tried this:
Private Calendario as Calendar

Private Sub Form_Load()
Dim i As Integer
Set Calendario = New Calendar
Calendario.WhichControl = CalendarioST.WhichControl
Calendario.WhichForm = CalendarioST.WhichForm
End sub

But still I get error! I need to create the object in Form B, but I have to
set two of its properties in Form A. I know I can go through public module
variables, but I would really know why my solutions shouldn't work! They both
seem reasonable to me. Obviously they are not and I would love to learn why.

Thanks!
Rocco
 
rocco said:
Hello,
I have a button in Form A that will open another form (Form B).
In Form B I have declared a class object:
Public WithEvents Calendario As Calendar
(it is calendar I have created with few feature needed by the
application).

I have declared it as public hoping this will allow me to set two of its
properties through code in Form A by coding in Form A module:
DoCmd.OpenForm FormBname, acNormal 'and its module will create the
public Calendario object
Calendario.WhichControl = "contactData"
Calendario.WhichForm = Me.Name

But I get the error that the object doesn't exist.

Then I tried to solve the issue by creating a public calendar object in
Form
A and setting its two properties in Form A module:
Public CalendarioST as Calendar

Private Sub Form_Load()
Dim i As Integer
Set CalendarioST = New Calendar
CalendarioST.WhichControl = "contactData"
CalendarioST.WhichForm = Me.Name
'then I open Form B
DoCmd.OpenForm FormBname, acNormal
Set CalendarioST=nothing
End sub

in Form B I tried this:
Private Calendario as Calendar

Private Sub Form_Load()
Dim i As Integer
Set Calendario = New Calendar
Calendario.WhichControl = CalendarioST.WhichControl
Calendario.WhichForm = CalendarioST.WhichForm
End sub

But still I get error! I need to create the object in Form B, but I have
to
set two of its properties in Form A. I know I can go through public module
variables, but I would really know why my solutions shouldn't work! They
both
seem reasonable to me. Obviously they are not and I would love to learn
why.
Click to expand...


Since your Calendar object is declared in form B, any reference to it must
be qualified with a reference to form B. So you should do this:

DoCmd.OpenForm FormBname, acNormal
' assuming that Form B's Open event instantiates the
' calendar object.
With Forms!FormBName.Calendario
.WhichControl = "contactData"
.WhichForm = Me.Name
End With

Note that the code above assumes that the calendar object is instantiated in
the Open event of Form B, not its Open event; e.g.,

' in form B
Private Sub Form_Open()

Set Calendario = New Calendar

End sub
 
Dirk Goldgar said:
Note that the code above assumes that the calendar object is instantiated
in the Open event of Form B, not its Open event
Click to expand...

Er, that should have been, "in the Open event of Form B, not its Load
event".
 
Back
Top