Compare an object to a type?

[Ricky D]

If I have

Type tFare(TableID Int, FareDate As Long, AddingNew As Boolean)
Type tShift(TableID Int, ShiftDate As Long, AddingNew As Boolean

how would I write a sub to do something like

Sub Save(obj As Object, addingnew As Boolean
    If typeof(obj)=typeof(tFare) Then
        'add or edit the Fare
        Dim f as tFare
        f = obj
        Msgbox(f.TableID,"")
    Else If typeof(obj)=typeof(tShift) Then
        'add or edit the Shift
    End If
End Sub

Is there a way to check if an object is one of my types?

I can't find anything like typeof

regards, Ricky

 

[Ricky D]

made a workaround :

Type tFare(TableID Int, FareDate As Long, AddingNew As Boolean)
Type tShift(TableID Int, ShiftDate As Long, AddingNew As Boolean

Sub Save(obj as Object, thistype As String)
    If thistype="fare" Then
        Dim f As tFare
        If f.AddingNew Then
'add a new fare
        Else
'update existing fare
        End If
    Else If thistype="shift" Then
        dim s as tShift
        s = obj
        If s.AddingNew Then
'add a new shift
        Else
'update existing shift
        End If
    End If
End Sub

call it like this

Dim Fare As tFare
Dim Shift As tShift

    Fare.Initialize
    Fare.TableID = 3
    Fare.FareDate = DateTime.Now
    Fare.AddingNew = True

    Save(Fare,"fare")

regards, Ricky

 

[Erel]

You should use:

If obj Is tFare then
 dim t As tFare
 t = obj
 ...

 

[Ricky D]

thanks Erel.

Thats simplifies it

:sign0142:

regards, Ricky