Question : Problème avec le code À INSÉRER DANS la table de création récente de l'accès 2007

J'essaye de créer une table (tblTopDate) et d'insérer une valeur (dteTopDate) dans la première pièce de création récente de table.

The du travail de code (lignes 1-12) très bien.  La table de tblTopDate est correctement created.

I avoué une variable de date (dteTopDate) pour choisir la plus nouvelle date à partir de la pièce de scond de la table tblSales.

The du code (ligne 15) est de choisir des travaux de code du dteTopDate
This également.  J'ai ajouté un msgbox pour examiner et montrer la valeur de dteTopDay.

However, quand je cours le code, j'obtiens une valeur de Paramater de pénétrer dans demandant dteTopDate.
If que j'écris une date, cette date est inséré dans la table.  Ce que je ne peux pas figurer dehors est pourquoi le dteTopDate n'est pas automatiquement inséré dans l'aide de table.

Any sera apprécié. class= " lineNumbers " >

1 de >
Private " codeBody " de " prettyprint " ()

Faibles dbs comme base de données, tbl comme TableDef, fld comme champ
Faible dteTopDate comme date

DoCmd.SetWarnings faux
Placer les dbs = le CurrentDb
Placer le tbl = le dbs.CreateTableDef (le « tblTopDate »)
Placer le fld = le tbl.CreateField (« TopDate », le dbDate)
fld du tbl. Fields.Append
tbl de dbs.TableDefs.Append
dbs.TableDefs.Refresh

'Date supérieure de trouvaille dans la table existante de tblSales
dteTopDate = DMax (« InvDate », » [tblSales] ")

'C'est un essai pour vérifier que la date maximum est choisie
dteTopDate de MsgBox

'Ajouter la date supérieure à la table de création récente de tblTopDate
DoCmd.RunSQL « INSERTION DANS [tblTopDate] ([TopDate]) des VALEURS (dteTopDate) »

Sous-marin d'extrémité
class= > " clair " de 

  
  class= de 

Réponse : Problème avec le code À INSÉRER DANS la table de création récente de l'accès 2007

DoCmd.RunSQL « INSERTION DANS [tblTopDate] ([TopDate]) des VALEURS (# » et dteTopDate et « #) »