Forcer Format Champ Date/Heure - VB/VBA/VBS - Programmation
MarshPosté le 07-07-2005 à 18:23:16
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
Marsh Posté le 07-07-2005 à 18:23:16
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