What is wrong with this code ?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

mscertified - 11 Mar 2005 17:49 GMT

I get an error message on the .Add LINE ("only user-defined types defined in
public object modules can be coerced to or from a variant or passed to
late-bound functions")

Dim myPriority As typPriority 'In module CustomTypes
Dim colPriority As New Collection
.........
Do While Not rs.EOF
myPriority.Code = rs.Fields("Code").Value
myPriority.Desc = rs.Fields("Desc").Value
colPriority.Add myPriority <==== Error here
Loop

Reply to this Message

George Nicholson - 11 Mar 2005 19:48 GMT

"object module" = class module

AFAIK, if typPriority were a Class (or if it was "from" a Class?), you could
add instances of it to a collection. But if it isn't a built-in type, or
created from a Class module, no.

HTH,

Signature

George Nicholson

Remove 'Junk' from return address.

>I get an error message on the .Add LINE ("only user-defined types defined
>in
[quoted text clipped - 9 lines]
> colPriority.Add myPriority <==== Error here
> Loop

Reply to this Message