Forcer Format Champ Date/Heure

Signaler
Messages postés
36
Date d'inscription
jeudi 9 juin 2005
Statut
Membre
Dernière intervention
16 mai 2006
-
Messages postés
36
Date d'inscription
jeudi 9 juin 2005
Statut
Membre
Dernière intervention
16 mai 2006
-
Bonsoir à tous,


Je voudrai en VBA pouvoir définir le format d'un champ de type date dans une table Access


Par exemple j'ai une table TB qui contient un champ chp_date de type Date/Heure et je voudrai pouvoir lui forcer l'affichage des données de ce champ au format "dd-mm-yyyy hh:nn:ss" par exemple. Comment faire en VBA ?


Pour l'instant j'ai ça comme code :


Function format_champ()


Dim MCat As New ADOX.Catalog
Dim MTable As ADOX.table
Dim MField As ADOX.Column
Dim i As Object

Set MCat.ActiveConnection = CurrentProject.connection
Set MTable = MCat.Tables("TB")
Set MField = MTable.Columns("chp_date")


'il manque quelque chose ici dans le style :
'MField.Propertiers.(...).Value = "dd-mm-yyyy hh:nn:ss"
'et c'est ça que je cherche


Set MCat = Nothing
Set MTable = Nothing
Set MField = Nothing

End Function


Si vous vouviez m'aider, ce serait cool. Merci

3 réponses

Messages postés
36
Date d'inscription
jeudi 9 juin 2005
Statut
Membre
Dernière intervention
16 mai 2006

svp... j'ai toujours pas trouvé...
merci.
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
9
Bonjour,

Une possibilité avec DAO :

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 = CurrentDb


'Sélectionner la table
Set Td = Db.TableDefs("TB")


'Sélectionner le champ
Set Fi = Td.Fields("chp_date")


'Supprimer l'éventuelle propriété "Format" existante
On Error Resume Next
Set Pr = Fi.Properties("Format")
On Error GoTo 0
If Not Pr Is Nothing Then
Fi.Properties.Delete "Format"
End If


'Créer une nouvelle propriété "Format"
Set Pr = Fi.CreateProperty("Format", dbText, "dd-mm-yyyy hh:nn:ss")


'Ajouter la propriété au champ
Fi.Properties.Append Pr


'Fermer la base de données
Db.Close

wape
Messages postés
36
Date d'inscription
jeudi 9 juin 2005
Statut
Membre
Dernière intervention
16 mai 2006

merci beaucoup pour ta réponse je ne doute pas une seule seconde que ça marche seulement je ne voudrai utiliser que ADOX et non pas DAO...
tu n'aurais pas une petite idée ?

merci encore