User-defined Type Issue
Yes I have OPTION EXPLICIT at the top of all my modules. But I'm really
scratching my head on why the compile error is happening saying "With object
must be user-defined type, variant or object". My Total is a UDF, so why am
I still getting this error?
Thanks in advance!
--
Cheers,
Ryan
"Patrick Molloy" wrote:
Your code was fine - all I had to do was set some value in tbxQuantity
making sure
OPTION EXPLICIT
is at the top of each module would have highlighted this
"Ryan H" wrote:
I reed the with statement help and it said it could be used with any
user-defined type. Do you know why it wouldn't work in my application?
--
Cheers,
Ryan
"Patrick Molloy" wrote:
to use totals type you'd need to be absolute
ie
some_material = total.material
an alternative would be to open a new CLASS MODULE, name it cTotals and give
it the variables that you gave to the type.
now you'd SET total = New cTotals
as total is an object of class cTotals, you can use the WITH method as you
showed.
"Ryan H" wrote:
I have a UDF below that is located in a Standard Module.
Type Totals
COGS As Double
Material As Double
Labor As Double
UnitPrice As Currency
QuotePrice As Currency
End Type
I declared a Public Variable in another Standard Module like this.
Public Total As Totals
For some reason when I use Total with the With...End With Statement in the
code below VBA is throwing an exception stating "With object must be
user-defined type, variant or object". Anybody know why?
Sub Test()
With Total
' determines labor effiency % and COGS %
Select Case Val(tbxQuantity)
Case Is = 1
.COGS = 1.1
Case Is = 2
.COGS = 1.08
Case Is = 3
.COGS = 1.05
End Select
.Material = 300
.Labor = 1000
End With
End Sub
--
Cheers,
Ryan
|