Can I find out the class of a custom object 1

[RSfromCO]

I have defined several custom classes that are similar. I have a sub-report that needs to be passed one of these custom objects and then know which type of object it is dealing with.

I wanted to do something like:

Dim genericObject As Object

Set genericObject = Reports("MainReport").theObject

If genericObject.Class = "CustomClass1" then...
If genericObject.Class = "CustomClass2" then...
If genericObject.Class = "CustomClass3" then...

Any suggestions?

 

[CautionMP]

RSfromCO,
Add a property (string) to each of the Classes that you could call from your report?

CMP

(GMT-07:00) Mountain Time (US & Canada)

 

[MajP]

Like CautionMP said.

Private mObjectType As String

Public Property Get ObjectType() As string
ObjectType = mObjectType
End Property

Public Sub Class_Initialize()
mObjectType = "Name of Class"
End Sub

 

[Craig0201]

TypeOf statement is what you're after.

If TypeOf yourVar Is Something Then

 

[MajP]

Craig,
Good tip. I did not know that, been spending my time rolling my own property. Also found out that you can use the
TypeName function which is supposedly more reliable.