"DFS" <nospamDS@nospam.com> wrote in message news:<vsvbst5dl4rk42@corp.supernews.com>...[color=blue]
> JMCN,
>
>
> Is there really a need to delete the tabledef? If so, you may need to do a
>
> dbsEtrack.TableDefs.Refresh
>
> after the table creation.
>
> Alternatively, you don't have to create the tabledef that way at all. You
> could just do
>
> dbsEtrack.TableDefs.Delete ("tblImportET")
> dbsEtrack.TableDefs.Refresh
> dbsEtrack.Execute("SELECT * INTO tblImportET FROM [qryBMODReport];")
> dbsEtrack.TableDefs.Refresh
>
>[/color]
i thought i had to delete it for updated information. but since the
refresh pretty much takes care of updating the newer loan information,
no i don't need to :) thanks again for the help!!!!
[color=blue]
> "JMCN" <picarama@yahoo.fr> wrote in message
> news:2772ee20.0312041356.7226b2e3@posting.google.c om...[color=green]
> > i have a question regarding the insert into statement in access 97[/color]
> database.[color=green]
> > i wrote a small insert statement for my new table def ("tblImportET") but[/color]
> when[color=green]
> > i run the code, no records are appended to "tblImportET".
> > i thought that the "*" would select all of the fields and then
> > import into the "tblImportET".
> >
> > any advice would be appreciated - thanks jung
> > here is the code:
> > Set dbsEtrack = CurrentDb
> > 'Set rstET = ("Exception Tracking")
> >
> > 'step one: delete the tdf("tblImportET")
> > dbsEtrack.TableDefs.Delete ("tblImportET")
> >
> > 'step two: Create a new TableDef object.
> > Set tdfNew = dbsEtrack.CreateTableDef("tblImportET")
> >
> > With tdfNew
> >
> > .Fields.Append .CreateField("ET LN Shortname", dbText)
> > .Fields.Append .CreateField("ET Amount", dbCurrency)
> > .Fields.Append .CreateField("ET EC Code", dbText)
> >
> > '.Fields.Append.CreateField("ET Number", dbLong) = rstET![ET[/color]
> Number] + 1[color=green]
> >
> > ' Append the new TableDef object to the Etrack
> > ' database.
> > dbsEtrack.TableDefs.Append tdfNew
> >
> > End With
> >
> > dbsEtrack.TableDefs.Refresh
> >
> > 'step three: insert data from qryBMODReport into "tblImportET"
> > ' nothing happens
> > insertsql = ("INSERT INTO [tblImportET] SELECT * FROM[/color]
> [qryBMODReport]")[/color]
