<!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.1141" name=GENERATOR>
<STYLE>@font-face {
font-family: Tahoma;
}
@page Section1 {size: 8.5in 11.0in; margin: 1.0in 1.25in 1.0in 1.25in; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
P.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
SPAN.EmailStyle17 {
FONT-WEIGHT: normal; COLOR: windowtext; FONT-STYLE: normal; FONT-FAMILY: Tahoma; TEXT-DECORATION: none
}
DIV.Section1 {
page: Section1
}
</STYLE>
</HEAD>
<BODY lang=EN-US vLink=purple link=blue>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff size=2>Hi
Mark:</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff size=2>For
older Access97 applications the following code could be
used...</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff size=2>Dim
db1 As Database<BR>Dim ltabdefTables As TableDef</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT size=2><FONT face=Arial
color=#0000ff> <BR>Set db1 = CurrentDb()<BR>With
db1<BR> For Each ltabdefTables In
.TableDefs<BR> If strDoesthisTableExis
= ltabdefTables.Name Then </FONT></FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT size=2><FONT face=Arial
color=#0000ff>
TableExists = True</FONT></FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2>
Exit For</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003> <FONT face=Arial
color=#0000ff size=2> End if</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2> Next<BR>End With</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff size=2>...
and for current Access applications...</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff size=2>if
currentdb.TableDefs(strDoesthisTableExist).Name <> "" Then TableExists =
True</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2>HTH</FONT></SPAN></DIV>
<DIV><SPAN class=290335021-19032003><FONT face=Arial color=#0000ff
size=2>Jim</DIV>
<DIV></FONT></SPAN><FONT size=+0><FONT face=Tahoma><BR></FONT><FONT size=2><FONT
face=Tahoma><SPAN class=290335021-19032003> </SPAN>-----Original
Message-----<BR><B>From:</B> accessd-admin@databaseadvisors.com
[mailto:accessd-admin@databaseadvisors.com]<B>On Behalf Of </B>Mark
Boyd<BR><B>Sent:</B> Wednesday, March 19, 2003 9:48 AM<BR><B>To:</B>
AccessD@databaseadvisors.com<BR><B>Subject:</B> [AccessD] Does table
exist?<BR><BR></DIV></FONT></FONT></FONT>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=Section1>
<P class=MsoNormal><FONT face=Tahoma size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Is there code to find out if an
Access table exists in the database?</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Tahoma size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Tahoma size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">TIA,</SPAN></FONT></P>
<P class=MsoAutoSig><FONT face=Tahoma size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Mark Boyd</SPAN></FONT></P>
<P class=MsoAutoSig><FONT face=Tahoma size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Sr. Systems
Analyst</SPAN></FONT></P>
<P class=MsoAutoSig><FONT face=Tahoma size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">McBee Associates,
Inc.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"></SPAN></FONT> </P></DIV></BLOCKQUOTE></BODY></HTML>