Forcer Format Champ Date/Heure

Question

Bonsoir &#224; tous,


Je voudrai en VBA pouvoir d&#233;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&#233;es de ce champ au format "dd-mm-yyyy hh:nn:ss" par exemple. Comment faire en VBA ? 


Pour l'instant j'ai &#231;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 &#231;a que je cherche


    Set MCat = Nothing
    Set MTable = Nothing
    Set MField = Nothing
    
End Function


Si vous vouviez m'aider, ce serait cool. Merci

Ant8386 · Answer

svp... j'ai toujours pas trouv&#233;...
merci.

cs_wape · Answer

Bonjour,

Une possibilit&#233; 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&#233;es
Set Db = CurrentDb


'S&#233;lectionner la table
Set Td = Db.TableDefs("TB")


'S&#233;lectionner le champ
Set Fi = Td.Fields("chp_date")


'Supprimer l'&#233;ventuelle propri&#233;t&#233; "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&#233;er une nouvelle propri&#233;t&#233; "Format"
Set Pr = Fi.CreateProperty("Format", dbText, "dd-mm-yyyy hh:nn:ss")


'Ajouter la propri&#233;t&#233; au champ
Fi.Properties.Append Pr


'Fermer la base de donn&#233;es
Db.Close

wape

Ant8386 · Answer

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

Forcer Format Champ Date/Heure

3 réponses

Discussions similaires