Discussion :

[nawakbling]

Bonjour

Je crée une table via Vb :

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

[Manhexter]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[nawakbling]

Merci de cette solution qui marche !

[Manhexter]

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

Cordialement,