Création d'une table avec un champ de type dbdate

Question

Salut !

voilà j'ai créé une table avec un champ de type DBdate mais par défaut il me met la date générale c'est à dire la date + l'heure.
    Set chp = tbldef.CreateField("date_livraison", dbDate)

je voudrais une date de type abrégé...

Comme puis je faire ?

Merci par avance..

cs_wape · Answer

Apparemment, il faut d'abord ajouter la table à la base, puis modifier le format date du champ. Voici un exemple avec DAO 3.6 :

Dim Db As DAO.Database
Dim Td As DAO.TableDef
Dim Fi As DAO.Field
Dim Pr As DAO.Property

'Ouvrir la base de données
Set Db = OpenDatabase("C:\MaBase.mdb")

'Créer la table
Set Td = Db.CreateTableDef("MaTable")

'Ajouter le champ à la table
Set Fi = Td.CreateField("MonChamp", dbDate)
Td.Fields.Append Fi

'Ajouter la table à la base
Db.TableDefs.Append Td

'Modifier le format de date du champ
Set Pr = Td.Fields("MonChamp").CreateProperty("Format", dbText, "Short Date")
Td.Fields("MonChamp").Properties.Append Pr

'Fermer la base de données
Db.Close

@+

wape

sleepman23 · Answer

ok ben merci j'y vais essayer tout de suite