Create table - valeur par défaut

Bonjour

Je crée une table via Vb :

Citation:

---

CurrentDb.Execute "CREATE TABLE Ventes(CodePdt TEXT(10), CanalVente TEXT(100), DateAjout DateTime);"

---

Je voudrais que le champ DateAjout prenne la valeur par défaut : aujourdhui()

Comment le faire ? J'ai tenté : DateAjout DateTime Default '" & now & "' mais ça ne marche pas.

Merci de votre aide

Salutations,

As-tu essayé de définir la valeur par défaut une fois la table créée ?

Je viens de tester avec ce code et cela fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test()   Dim table As TableDef Dim db As Database   Set db = CurrentDb Set table = db.TableDefs("Ventes")   table.Fields("DateAjout").DefaultValue = "Date()"   End Sub

---

Pour le faire dans la même requête que la création, je ne sais pas xD

En espérant que cela t'aide quand même.

Cordialement,

Merci de cette solution qui marche !

Pense à cliquer sur "résolu" en bas de la discussion si tu considère le problème réglé.

Cordialement,