<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face="Courier New" size=2>I don't use many features within Access so
I don't have</FONT></DIV>
<DIV><FONT face="Courier New" size=2>example of all the possible Types, and I've
been unable</FONT></DIV>
<DIV><FONT face="Courier New" size=2>to locate a table defining them. My current
requirement</FONT></DIV>
<DIV><FONT face="Courier New" size=2>is for Access2000.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>I'm writting a process to copy the contents
from one</FONT></DIV>
<DIV><FONT face="Courier New" size=2>MDB to a new copy. I'm reading MSysObjects
and</FONT></DIV>
<DIV><FONT face="Courier New" size=2>keying the structure of my copy command
from the</FONT></DIV>
<DIV><FONT face="Courier New" size=2>contents of the type field ( see following
) and</FONT></DIV>
<DIV><FONT face="Courier New" size=2>for what I have in my MDB now it seems to
work well.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New"
size=2>'==================================================</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Do<BR>DoIt = False<BR>AName = Rs!Name<BR>If
Left(AName, 4) <> "MSys" Then</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Select Case Rs!Type<BR>Case Is =
1<BR> TheCopyType = acTable<BR> DoIt =
True<BR>Case Is = 5<BR> TheCopyType =
acQuery<BR> DoIt = True<BR>Case Is = 6<BR>
TheCopyType = acTable<BR> DoIt = True<BR>Case Is =
-32761<BR> TheCopyType = acModule<BR> DoIt =
True<BR>Case Is = -32764<BR> TheCopyType =
acReport<BR> DoIt = True<BR>Case Is =
-32766<BR> TheCopyType = acMacro<BR> DoIt =
True<BR>Case Is = -32768<BR> TheCopyType =
acForm<BR> DoIt = True<BR>End Select</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>If DoIt = True Then<BR>
DoCmd.TransferDatabase acExport, "Microsoft Access", _<BR>
"E:\Mine\NewDB.mdb", TheCopyType, AName, AName, True<BR>End If</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>End If</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Rs.MoveNext</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>If Rs.EOF Then<BR>Exit Do<BR>End
If</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>===========================</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>It seems to do what I need; but I strongly
beleive that</FONT></DIV>
<DIV><FONT face="Courier New" size=2>there are more values for type. I know that
the TransferDatabase </FONT></DIV>
<DIV><FONT face="Courier New" size=2>method also supports the
following:</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT><FONT face="Courier New"
size=2></FONT><FONT face="Courier New"
size=2></FONT><BR><STRONG>acDataAccessPage<BR>acServerView<BR>acDiagram<BR>acStoredProcedure</STRONG></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>I will appreciate any information on
which Type or Types relate to each ?</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Thanks</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Dave</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV></BODY></HTML>