External Database - Check if object exists 1

[mmogul]

While running one mdb, I want to verify the existence of a form in another mdb. If the form does not exist, then I will transfer the form from the first mdb.

I am unclear on how to verify if the form (or other objects) exist in an external mdb.

Thanks.

 

[Crowley16]

you can query the external database with dao or ado, and then query the msysobjects hidden table for your form...

--------------------
Procrastinate Now!

 

[PWise]

dim rst as recordset
set rst = currentdb.openrecordset("SELECT MSysObjects.Name
FROM MSysObjects IN 'c:\xxx.mdb'
WHERE (((MSysObjects.Name)="& xxx & ") AND ((MSysObjects.Type)=-32768));")
if rst.bof and rst.eof then

copyform.......
end if

 

[mmogul]

Thanks to pwise and crowley16.

In this code:

FROM MSysObjects IN 'c:\xxx.mdb'
WHERE (((MSysObjects.Name)="& xxx & ") AND ((MSysObjects.Type)=-32768));")
if rst.bof and rst.eof then

does the xxx (the second one) represent the form name? If so, does it need to be in single quotes? Without quotes, I get a compile error: variable not defined.


Thanks.

 

[Crowley16]

do a select * to check just what is in msysobjects...

--------------------
Procrastinate Now!

 

[PWise]

mmogul:
you are right that you need single quotes

 

[mmogul]

Thanks all. You were very helpful.