User Defined type as Sub parameter?
 

I would have thought this would be OK:

Dim NewOrder As udtNewOrder
'In the public area. udtNewOrder is a User Defined Type

With NewOrder
...
...
...
RecalculateRawMaterial (NewOrder)
...
...
...
End With

Sub RecalculateRawMaterial(udtNO As udtNewOrder)

'DoSomething

End Sub

But I get: "Type Mismatch"

I seemed to recall there was something funny about udt's as parameters, but
damned if I can recall...
Thank You,
-plh


--
I keep hitting "Esc" -- but I'm still here!

User Defined type as Sub parameter?
 

In article , plh says...

I would have thought this would be OK:

Dim NewOrder As udtNewOrder
'In the public area. udtNewOrder is a User Defined Type

With NewOrder
...
...
...
RecalculateRawMaterial (NewOrder)

C-A-L-L RecalculateRawMaterial (NewOrder)
As my daughter would say, "Duhuh!"
-plh


...
...
...
End With

Sub RecalculateRawMaterial(udtNO As udtNewOrder)

'DoSomething

End Sub

But I get: "Type Mismatch"

I seemed to recall there was something funny about udt's as parameters, but
damned if I can recall...
Thank You,
-plh




--
I keep hitting "Esc" -- but I'm still here!

User Defined type as Sub parameter?
 

If you do:

With NewOrder
RecalculateRawMaterial NewOrder
End With

or
With NewOrder
Call RecalculateRawMaterial(NewOrder)
End With

does it work ok?

plh wrote:

I would have thought this would be OK:

Dim NewOrder As udtNewOrder
'In the public area. udtNewOrder is a User Defined Type

With NewOrder
...
...
...
RecalculateRawMaterial (NewOrder)
...
...
...
End With

Sub RecalculateRawMaterial(udtNO As udtNewOrder)

'DoSomething

End Sub

But I get: "Type Mismatch"

I seemed to recall there was something funny about udt's as parameters, but
damned if I can recall...
Thank You,
-plh

--
I keep hitting "Esc" -- but I'm still here!

--

Dave Peterson

User Defined type as Sub parameter?
 

Yes. (Please see my reply to myself!)
Thanx,
-plh

In article , Dave Peterson says...

If you do:

With NewOrder
RecalculateRawMaterial NewOrder
End With

or
With NewOrder
Call RecalculateRawMaterial(NewOrder)
End With

does it work ok?

plh wrote:

I would have thought this would be OK:

Dim NewOrder As udtNewOrder
'In the public area. udtNewOrder is a User Defined Type

With NewOrder
...
...
...
RecalculateRawMaterial (NewOrder)
...
...
...
End With

Sub RecalculateRawMaterial(udtNO As udtNewOrder)

'DoSomething

End Sub

But I get: "Type Mismatch"

I seemed to recall there was something funny about udt's as parameters, but
damned if I can recall...
Thank You,
-plh

--
I keep hitting "Esc" -- but I'm still here!



--
I keep hitting "Esc" -- but I'm still here!