Fråga : Problemet med kodifierar för ATT SÄTTA IN IN I nyligen skapat tar fram 2007 bordlägger

Pröva förmiddag I att skapa en bordlägga (tblTopDate) och att sätta in en värdera (dteTopDate) in i den nyligen skapade delen för table.

The först av arbetsboten för kodifiera (fodrar 1-12).  TblTopDaten bordlägger är created.

I förklarade riktigt att en dateravariabel (dteTopDate) som väljer det nyast daterar från sconddelen för bordlägga tblSales.

The av kodifiera (fodra 15) är att välja dteTopDate
This kodifierar också arbeten.  Jag tillfogade en msgbox för att testa, och att visa värdera av dteTopDay.

However, när jag kör kodifiera, jag får en skriva in Paramater värderar att fråga för dteTopDate.
If som jag skriver in en datera, denna daterar sätts in in i bordlägga.  Vad jag inte kan figurera ut, är varför dteTopDate inte sätts automatiskt in in i den ska hjälpen för table.

Any uppskattas. class= " lineNumbers " >

1 för >Private " för prettyprint " ()

Dunkla dbs som databas, tbl som TableDef, fld som sätter in
Dunkel dteTopDate som daterar

Falsk DoCmd.SetWarnings
Fastställda dbs = CurrentDb
Fastställd tbl = dbs.CreateTableDef (”tblTopDate”)
Fastställd fld = tbl.CreateField (”TopDate”, dbDate)
fld för tbl. Fields.Append
dbs.TableDefs.Append-tbl
dbs.TableDefs.Refresh

'Det bästa fyndet daterar i de existerande tblSalesna bordlägger
dteTopDate = DMax (”InvDate”,” [tblSales] ”)

'Denna är en testa som verifierar att maximat daterar är utvalt
MsgBox dteTopDate

'Tillfoga det bästa daterar till den nyligen skapade tblTopDaten bordlägger
DoCmd.RunSQL ”MELLANLÄGG IN I [tblTopDate] ([TopDate]) VÄRDERAR (dteTopDate)”,

Avsluta suben
<-/pre>

  
  " klar " 

Svar : Problemet med kodifierar för ATT SÄTTA IN IN I nyligen skapat tar fram 2007 bordlägger

DoCmd.RunSQL ”MELLANLÄGG IN I [tblTopDate] ([TopDate]) VÄRDERAR (nr.” & dteTopDate & ”nr.)”,