Vraag : Probleem met code IN de pas gecreëerde lijst van de Toegang OP TE NEMEN 2007

Ik probeer om een lijst (tblTopDate) te creëren en een waarde (dteTopDate) op te nemen in het pas gecreëerde eerste deel table.

The van boete de van het code (lijnen 1-12) werk.  De tblTopDatelijst is behoorlijk created.

I verklaarde een datumvariabele (dteTopDate) om de nieuwste datum van het lijsttblSales.

The van de code (lijn 15) te selecteren dteTopDate
This de codewerken moet ook selecteren.  Ik voegde een msgbox toe om de waarde van dteTopDay.

However te testen en te tonen, wanneer ik de code in werking stel, ik krijg een Enter Paramater Waarde vragend om dteTopDate.
If ik een datum inga, wordt deze datum opgenomen in de lijst.  Wat ik niet kan berekenen is waarom dteTopDate niet automatisch opgenomen=wordt= in de hulp table.

Any zal worden gewaardeerd.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23:

Private SubcmdImportSales_Click () Schemerige dbs als Gegevensbestand, tbl als TableDef, fld als Gebied Schemerige dteTopDate als Datum DoCmd.SetWarnings Vals Reeks dbs = CurrentDb Reeks tbl = dbs.CreateTableDef („tblTopDate“) Reeks fld = tbl.CreateField („TopDate“, dbDate) tbl. Fields.Append fld dbs.TableDefs.Append tbl dbs.TableDefs.Refresh 'Vind hoogste datum in de bestaande tblSales lijst dteTopDate = DMax („InvDate“,“ [tblSales] „) 'Dit is een test om te verifiëren dat de maximumdatum wordt geselecteerd MsgBox dteTopDate 'Voeg de Hoogste Datum aan de pas gecreëerde tblTopDatelijst toe DoCmd.RunSQL „TUSSENVOEGSEL IN [tblTopDate] ([TopDate]) WAARDEN (dteTopDate)“ Sub van het eind

Antwoord : Probleem met code IN de pas gecreëerde lijst van de Toegang OP TE NEMEN 2007

DoCmd.RunSQL „TUSSENVOEGSEL IN [tblTopDate] ([TopDate]) WAARDEN (#“ & dteTopDate & „#)“