Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour.
tu peux faire ceci pour les champs d'une table: On Error Resume Next Dim Ix As Integer Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("Matable") For Ix = 0 To Rs.Fields.Count - 1 Debug.Print Rs.Fields(Ix).Name & ";" & Rs.Fields(Ix).Type Debug.Print Rs.Fields(Ix).Size & ";" & Rs.Fields(Ix).Properties("description") Next Ix Rs.Close Set Db = Nothing Set Rs = Nothing
La description est une propriété en lecture seule qui n'existe que si elle est renseignée dans la table. si elle n'existe pas une erreur est générée d'où le on error resume next en début.
pour un formulaire tu peux faire: Dim Ctl As Control For Each Ctl In Form_Formulaire1 Debug.Print Ctl.Name & ";" & Ctl.ControlType Next
tout ceci n'étant que des exemples. -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"HA" a écrit dans le message de news:
Bonjour
Comment peut on faire pour imprimer les propriétés d'un champs ou autres ctrl dans access xp?
Merci
Bonjour.
tu peux faire ceci pour les champs d'une table:
On Error Resume Next
Dim Ix As Integer
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("Matable")
For Ix = 0 To Rs.Fields.Count - 1
Debug.Print Rs.Fields(Ix).Name & ";" & Rs.Fields(Ix).Type
Debug.Print Rs.Fields(Ix).Size & ";" &
Rs.Fields(Ix).Properties("description")
Next Ix
Rs.Close
Set Db = Nothing
Set Rs = Nothing
La description est une propriété en lecture seule qui n'existe que si elle
est renseignée dans la table. si elle n'existe pas une erreur est générée
d'où le on error resume next en début.
pour un formulaire tu peux faire:
Dim Ctl As Control
For Each Ctl In Form_Formulaire1
Debug.Print Ctl.Name & ";" & Ctl.ControlType
Next
tout ceci n'étant que des exemples.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"HA" <ha@free.fr> a écrit dans le message de
news:ejGHKmngDHA.1200@TK2MSFTNGP09.phx.gbl...
Bonjour
Comment peut on faire pour imprimer les propriétés d'un champs ou autres
ctrl dans access xp?
tu peux faire ceci pour les champs d'une table: On Error Resume Next Dim Ix As Integer Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("Matable") For Ix = 0 To Rs.Fields.Count - 1 Debug.Print Rs.Fields(Ix).Name & ";" & Rs.Fields(Ix).Type Debug.Print Rs.Fields(Ix).Size & ";" & Rs.Fields(Ix).Properties("description") Next Ix Rs.Close Set Db = Nothing Set Rs = Nothing
La description est une propriété en lecture seule qui n'existe que si elle est renseignée dans la table. si elle n'existe pas une erreur est générée d'où le on error resume next en début.
pour un formulaire tu peux faire: Dim Ctl As Control For Each Ctl In Form_Formulaire1 Debug.Print Ctl.Name & ";" & Ctl.ControlType Next
tout ceci n'étant que des exemples. -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"HA" a écrit dans le message de news:
Bonjour
Comment peut on faire pour imprimer les propriétés d'un champs ou autres ctrl dans access xp?
