Ant8386
Messages postés36Date d'inscriptionjeudi 9 juin 2005StatutMembreDernière intervention16 mai 2006
-
7 juil. 2005 à 18:27
Ant8386
Messages postés36Date d'inscriptionjeudi 9 juin 2005StatutMembreDernière intervention16 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
cs_wape
Messages postés262Date d'inscriptionsamedi 21 décembre 2002StatutMembreDernière intervention19 décembre 201012 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
Ant8386
Messages postés36Date d'inscriptionjeudi 9 juin 2005StatutMembreDernière intervention16 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 ?