OVH Cloud OVH Cloud

DAO et Date

1 réponse
Avatar
Philippe
Bonjour,

Je me retourne vers vous car j ai un petit probleme. je créée une table
"réglement" en DAO et danc j' ai un champs "Date_echéance".
Je n'ai aucun probleme pour crééer cette table avec les champs . Par contre
là où ça coince c'est que j aimerai mettre le format date abregé a mon champs
"date_echeance". j'ai access 2000.voici les codes:

Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim chp As DAO.Field
Dim idx As DAO.Index
Dim Prp As DAO.Property

Set chp = Tbl.CreateField("dateech", dbDate) chp.OrdinalPosition = 5
Tbl.Fields.Append fld
chp = Tbl.Fields("date_echeance")
Set Prp = fld.CreateProperty("Caption", dbText)
Prp.Value = "Date échéance"
chp.Properties.Append Prp

alors si quelqu'un peut me donner un conseil pour donner le format date
abregée sur mon champs "date_echeance" je le remercie d'avance ainsi que tous
ceux qui cherchent pour nous aider
cordialement
Philippe

1 réponse

Avatar
3stone
Salut,

"Philippe"
| Je me retourne vers vous car j ai un petit probleme. je créée une table
| "réglement" en DAO et danc j' ai un champs "Date_echéance".
| Je n'ai aucun probleme pour crééer cette table avec les champs . Par contre
| là où ça coince c'est que j aimerai mettre le format date abregé a mon champs
| "date_echeance". j'ai access 2000.voici les codes:
<snip>


Peut-être ici :
http://officesystem.access.free.fr/vba/module_de_classe_clstables.htm



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw