Forcer Format Champ Date/Heure

Ant8386 Messages postés 36 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 16 mai 2006 - 7 juil. 2005 à 18:27
Ant8386 Messages postés 36 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 16 mai 2006 - 11 juil. 2005 à 12:07
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

Ant8386 Messages postés 36 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 16 mai 2006
8 juil. 2005 à 15:57
svp... j'ai toujours pas trouvé...
merci.
0
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 11
8 juil. 2005 à 19:53
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
0
Ant8386 Messages postés 36 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 16 mai 2006
11 juil. 2005 à 12:07
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
0