VBA Classes

[PanzerRanger]

Hi!

Is it possible to get and let data between classes, and if yes, how?

delclaring as follows resets the information in the class despite that the class has´nt been terminated and I have´nt figured out how to calling it in a other way
Dim x as class1
Set x = new class1

Thanks!

 

[RoryA]

I think you'll need to give more information. The code you posted is just creating a new instance of a class, not passing any information anywhere.

 

[PanzerRanger]

I think you'll need to give more information. The code you posted is just creating a new instance of a class, not passing any information anywhere.

The problem, as I think, is I have multiple subs and in those I need to get information from the class i.e.

Sub1
Dim p as project
Set p = new project
yada yadha
End Sub

sub2dim p as project
set p = new project
yada yadha
end sub

As sub2 defines p again it erases/resets the values in the class project which holds information that is needed. I´ve tried
Dim p as Object and Set p = project but neither of thoses works

 

[RoryA]

If you need both routines to use the same class instance, you need to declare it outside both procedures:

Dim p as project
Sub1
Set p = new project
yada yadha
End Sub

sub2
yada yadha with p.Property
end sub

 

[PanzerRanger]

I assume that works for a modul but is it possible to somehow pull it off within a class?

 

[RoryA]

It's really not clear what you mean. A class is a module, so that will work.

 

[PanzerRanger]

It's really not clear what you mean. A class is a module, so that will work.

I´ll try and refine the code tonight or tomorrow to show the whole thing. I may been in over my head as Im just starting to lear about classes. What is the best why to post the code, it uses aform with a sub (main sub) and two classes that needs to pass the information between eachother

 

[RoryA]

Just paste the sub, then the code for each class, indicating which is which. And please use code tags when doing so.

 

[PanzerRanger]

Better late then never =/

'    Sub in Userform
Sub Button_Click
Dim Pplan as PersonalPlaning, P as project
Set Pplan = New PersonalPlaning
Set P = New Project

P.ProjectNumber = Me.ProjectNumber
'    This writes then projectnumber to class which in return gets
'    all the projectinformation from the databas

'Code to loop form values to plan personal

If Pplan.Days = 1 Then Call Pplan.PlanDay
end sub

'    Sub in classmodual PersonalPlaning
Public Sub PlanDay()
    Dim P as project
    Set P = New Project
    
    'lots of code checking for criterias
    
    Day.ClearComments
    Day.AddComment P.ProjectNumber '    Here I need the information from my classmoudal named Project
    Day.Value = P.Project

End Sub

From my understanding, as soon as I declare (in this case in PlanDay sub) a new instance of the project class it terminates the information within even thouh the main sub has´nt ended
Is there anyway for me to get the information from the project class modual to the projectplaner classmoudal without terminating the information with the project class

 

[RoryA]

It doesn't terminate anything, but you are creating a new Project instance, which therefore has only its default values. You could simply pass a Project object:

Sub Button_Click
Dim Pplan as PersonalPlaning, P as project
Set Pplan = New PersonalPlaning
Set P = New Project

P.ProjectNumber = Me.ProjectNumber
'    This writes then projectnumber to class which in return gets
'    all the projectinformation from the databas

'Code to loop form values to plan personal

If Pplan.Days = 1 Then Call Pplan.PlanDay(P)
end sub

'    Sub in classmodual PersonalPlaning
Public Sub PlanDay(P as Project)
    
    'lots of code checking for criterias
    
    Day.ClearComments
    Day.AddComment P.ProjectNumber '    Here I need the information from my classmoudal named Project
    Day.Value = P.Project

End Sub