
<html><div style='background-color:'><DIV>

<P>I am trying to get linked to a selected database through code. I get a failure on the append. The very informative 3251 "Operation is not supported for this type of object". I need to delete all the attached tables and relink to new ones.</P>

<P>I am doing this: db_Be is the new database I want to link to. dbcur is the front end I am running code from.</P>

<P>Thanks, and How's everybody been?(don't answer that you'll kill my hotmail account)</P>

<P>_D</P>

<P>For intI = 0 To db_BE.TableDefs.Count - 1<BR>            Set TdfBE = db_BE.TableDefs(intI)<BR>            SysCmd acSysCmdUpdateMeter, intI<BR>                If Not TdfBE.Name Like "msys*" Then<BR>                    Set tdfNew = dbCur.CreateTableDef()<BR>                    With tdfNew<BR>                        .Name = "newtable" & intI<BR>                        '.Attributes = dbAttachedTable<BR>                        .SourceTableName = TdfBE.Name<BR>                        .Connect = "MS Access;DATABASE=" & strDBName<BR>                    End With<BR>                    'dbCur.TableDefs.Append (tdfNew)<BR>                    <BR>                    dbCur.TableDefs.Append (tdfNew)<BR>                End If<BR>        Next intI<BR><BR></P></DIV></div><br clear=all><hr>Tired of spam? Get <a href="http://g.msn.com/8HMJENUS/2734">advanced junk mail protection</a> with MSN 8.</html>