Private VorcmdImportSales_Click ()
Schwache dbs als Datenbank, tbl als TableDef, fld als Feld
Schwaches dteTopDate als Datum
DoCmd.SetWarnings falsch
Dbs = CurrentDb einstellen
Tbl = dbs.CreateTableDef („tblTopDate“) einstellen
Fld = tbl.CreateField („TopDate“, dbDate) einstellen
tbl. Fields.Append fld
dbs.TableDefs.Append tbl
dbs.TableDefs.Refresh
'Entdeckungspitzendatum in der vorhandenen tblSales Tabelle
dteTopDate = DMax („InvDate“,“ [tblSales] ")
'Dieses ist ein Test, zum zu überprüfen, dass das maximale Datum vorgewählt ist
MsgBox dteTopDate
'Das Spitzendatum dem neu erstellten tblTopDate Tabelle hinzufügen
DoCmd.RunSQL „EINSATZ IN [tblTopDate] ([TopDate]) WERTE (dteTopDate)“
Enden-Unterseeboot
|