Question on Allen Brownes FindAsUType

Hi,
I was wondering if anyone can help. I am stuck and how exhausted all
avenues. I have downloaded Allen Brownes sample of the FindAsUType
utility. I have gotten it working my own tables and forms on his
sample database but as soon as I copy it over to my own database it
stops working.

The following are the errors and I assume are to do with the database
itself but I am puzzled that one database will work and the other will
not.

Errors are:

Dim rs As DAO.Recordset (I know taking out DAO will work but dont
understand why)

Case dbBoolean, dbLongBinary, dbBinary, dbGUID, Is > 100 (dbBoolean is
not recognised - unknown variable)

Set rs = DBEngine(0)(0).OpenRecordset(ctl.RowSource, dbOpenDynaset,
dbAppendOnly) (DBOPENDYNASET is not recognised - unknown variable)

strField = "[Lookup_" & ctl.Name & "].[" & .SourceField & "]" )
(sourcefield is not recognised)

I figure I am either missing a libary or using the wrong code version

I am using 2002 but it says Access 2000 file format on the title bar
of database


Thanks and much appreciated if anyone knows the
solution .............................

Josephine

Re: Question on Allen Brownes FindAsUType

Jo Nolan wrote:

> Hi,
> I was wondering if anyone can help. I am stuck and how exhausted all
> avenues. I have downloaded Allen Brownes sample of the FindAsUType
> utility. I have gotten it working my own tables and forms on his
> sample database but as soon as I copy it over to my own database it
> stops working.
>
> The following are the errors and I assume are to do with the database
> itself but I am puzzled that one database will work and the other will
> not.
>
> Errors are:
>
> Dim rs As DAO.Recordset (I know taking out DAO will work but dont
> understand why)
>
> Case dbBoolean, dbLongBinary, dbBinary, dbGUID, Is > 100 (dbBoolean is
> not recognised - unknown variable)
>
> Set rs = DBEngine(0)(0).OpenRecordset(ctl.RowSource, dbOpenDynaset,
> dbAppendOnly) (DBOPENDYNASET is not recognised - unknown variable)
>
> strField = "[Lookup_" & ctl.Name & "].[" & .SourceField & "]" )
> (sourcefield is not recognised)
>
> I figure I am either missing a libary or using the wrong code version
>
> I am using 2002 but it says Access 2000 file format on the title bar
> of database
>
>
> Thanks and much appreciated if anyone knows the
> solution .............................
>
> Josephine
>
Open up any code module. Check your references. The first 3 may be
VBA, Access Lib, DAO. If ADO is before DAO, switch.

Re: Question on Allen Brownes FindAsUType

On Nov 8, 6:02 pm, Salad wrote:
> Jo Nolan wrote:
> > Hi,
> > I was wondering if anyone can help. I am stuck and how exhausted all
> > avenues. I have downloaded Allen Brownes sample of the FindAsUType
> > utility. I have gotten it working my own tables and forms on his
> > sample database but as soon as I copy it over to my own database it
> > stops working.
>
> > The following are the errors and I assume are to do with the database
> > itself but I am puzzled that one database will work and the other will
> > not.
>
> > Errors are:
>
> > Dim rs As DAO.Recordset (I know taking out DAO will work but dont
> > understand why)
>
> > Case dbBoolean, dbLongBinary, dbBinary, dbGUID, Is > 100 (dbBoolean is
> > not recognised - unknown variable)
>
> > Set rs = DBEngine(0)(0).OpenRecordset(ctl.RowSource, dbOpenDynaset,
> > dbAppendOnly) (DBOPENDYNASET is not recognised - unknown variable)
>
> > strField = "[Lookup_" & ctl.Name & "].[" & .SourceField & "]" )
> > (sourcefield is not recognised)
>
> > I figure I am either missing a libary or using the wrong code version
>
> > I am using 2002 but it says Access 2000 file format on the title bar
> > of database
>
> > Thanks and much appreciated if anyone knows the
> > solution .............................
>
> > Josephine
>
> Open up any code module. Check your references. The first 3 may be
> VBA, Access Lib, DAO. If ADO is before DAO, switch.- Hide quoted text -
>
> - Show quoted text -

THANKS A MILLION - That sorted it. I REALLY appreciate this. It have
spent hours on it and it is great to have it working.

Thanks for the help,

Josephine

Re: Question on Allen Brownes FindAsUType

Here's some more information about the library references, Jo:
http://allenbrowne.com/ser-38.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Jo Nolan" wrote in message
news:1194558161.147456.307790@y27g2000pre.googlegroups.com.. .
> On Nov 8, 6:02 pm, Salad wrote:
>> Jo Nolan wrote:
>> > Hi,
>> > I was wondering if anyone can help. I am stuck and how exhausted all
>> > avenues. I have downloaded Allen Brownes sample of the FindAsUType
>> > utility. I have gotten it working my own tables and forms on his
>> > sample database but as soon as I copy it over to my own database it
>> > stops working.
>>
>> > The following are the errors and I assume are to do with the database
>> > itself but I am puzzled that one database will work and the other will
>> > not.
>>
>> > Errors are:
>>
>> > Dim rs As DAO.Recordset (I know taking out DAO will work but dont
>> > understand why)
>>
>> > Case dbBoolean, dbLongBinary, dbBinary, dbGUID, Is > 100 (dbBoolean is
>> > not recognised - unknown variable)
>>
>> > Set rs = DBEngine(0)(0).OpenRecordset(ctl.RowSource, dbOpenDynaset,
>> > dbAppendOnly) (DBOPENDYNASET is not recognised - unknown variable)
>>
>> > strField = "[Lookup_" & ctl.Name & "].[" & .SourceField & "]" )
>> > (sourcefield is not recognised)
>>
>> > I figure I am either missing a libary or using the wrong code version
>>
>> > I am using 2002 but it says Access 2000 file format on the title bar
>> > of database
>>
>> > Thanks and much appreciated if anyone knows the
>> > solution .............................
>>
>> > Josephine
>>
>> Open up any code module. Check your references. The first 3 may be
>> VBA, Access Lib, DAO. If ADO is before DAO, switch.- Hide quoted text -
>>
>> - Show quoted text -
>
> THANKS A MILLION - That sorted it. I REALLY appreciate this. It have
> spent hours on it and it is great to have it working.
>
> Thanks for the help,
>
> Josephine