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
J-Pierre
Bonjour David,
Oui, c'est possible en parcourant tous les objets de la collection AllForms si tu es en Access 2000 ou +. Il y a un très bon exemple dans l'aide en ligne, si tu as des difficultés, tu reviens demander.
J-Pierre
"David" a écrit dans le message de news:O$
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les formulaires de ma base données. Est ce possible ? si oui, comment faire ?
merci d'avance pour votre aide
Bonjour David,
Oui, c'est possible en parcourant tous les objets de la collection AllForms si tu es en Access 2000 ou +. Il y a un très bon exemple
dans l'aide en ligne, si tu as des difficultés, tu reviens demander.
J-Pierre
"David" <spinfoprog@wanadoo.fr> a écrit dans le message de news:O$Odu8BtDHA.2392@TK2MSFTNGP10.phx.gbl...
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les
formulaires de ma base données. Est ce possible ? si oui, comment faire ?
Oui, c'est possible en parcourant tous les objets de la collection AllForms si tu es en Access 2000 ou +. Il y a un très bon exemple dans l'aide en ligne, si tu as des difficultés, tu reviens demander.
J-Pierre
"David" a écrit dans le message de news:O$
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les formulaires de ma base données. Est ce possible ? si oui, comment faire ?
merci d'avance pour votre aide
Jeff
Bonjour
A tout hasard je te donne un exemple
Dim db As Database Dim MonContainer As Container Dim L As Long, J As Long
Open "LISTE.TXT" For Output Access Write As #1 Set db = CurrentDB() Set MonContainer = db.Containers("Forms") J = MonContainer.Documents.Count For L = 0 To J - 1 Print #1, MonContainer.Documents(L).Name Next L db.Close Close #1 MsgBox "Opération terminée", 64, "Information"
Cordialement
Jeff
"David" a écrit dans le message de news:O$
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les formulaires de ma base données. Est ce possible ? si oui, comment faire ?
merci d'avance pour votre aide
Bonjour
A tout hasard je te donne un exemple
Dim db As Database
Dim MonContainer As Container
Dim L As Long, J As Long
Open "LISTE.TXT" For Output Access Write As #1
Set db = CurrentDB()
Set MonContainer = db.Containers("Forms")
J = MonContainer.Documents.Count
For L = 0 To J - 1
Print #1, MonContainer.Documents(L).Name
Next L
db.Close
Close #1
MsgBox "Opération terminée", 64, "Information"
Cordialement
Jeff
"David" <spinfoprog@wanadoo.fr> a écrit dans le message de
news:O$Odu8BtDHA.2392@TK2MSFTNGP10.phx.gbl...
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les
formulaires de ma base données. Est ce possible ? si oui, comment faire ?
Dim db As Database Dim MonContainer As Container Dim L As Long, J As Long
Open "LISTE.TXT" For Output Access Write As #1 Set db = CurrentDB() Set MonContainer = db.Containers("Forms") J = MonContainer.Documents.Count For L = 0 To J - 1 Print #1, MonContainer.Documents(L).Name Next L db.Close Close #1 MsgBox "Opération terminée", 64, "Information"
Cordialement
Jeff
"David" a écrit dans le message de news:O$
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les formulaires de ma base données. Est ce possible ? si oui, comment faire ?
merci d'avance pour votre aide
Raymond [mvp]
Bonjour.
Tu peux utiliser cette procédure pour 2000 + Dim Objao As AccessObject On Error Resume Next Me.Liste.RowSource = "" For Each Objao In CurrentProject.AllForms Me.Liste.RowSource = Me.Liste.RowSource & Objao.Name & ";" Next Objao End Function
mais attention, le rowsource ne peut contenir plus de 4ko de liste, donc tu risques de perdre beaucoup de noms de formulaires s'ils sont nombreux. dans ce cas il faut remplir une table et baser ta liste sur cette table.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"David" a écrit dans le message de news:O$
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les formulaires de ma base données. Est ce possible ? si oui, comment faire ?
merci d'avance pour votre aide
Bonjour.
Tu peux utiliser cette procédure pour 2000 +
Dim Objao As AccessObject
On Error Resume Next
Me.Liste.RowSource = ""
For Each Objao In CurrentProject.AllForms
Me.Liste.RowSource = Me.Liste.RowSource & Objao.Name & ";"
Next Objao
End Function
mais attention, le rowsource ne peut contenir plus de 4ko de liste, donc tu
risques de perdre beaucoup de noms de formulaires s'ils sont nombreux. dans
ce cas il faut remplir une table et baser ta liste sur cette table.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"David" <spinfoprog@wanadoo.fr> a écrit dans le message de
news:O$Odu8BtDHA.2392@TK2MSFTNGP10.phx.gbl...
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les
formulaires de ma base données. Est ce possible ? si oui, comment faire ?
Tu peux utiliser cette procédure pour 2000 + Dim Objao As AccessObject On Error Resume Next Me.Liste.RowSource = "" For Each Objao In CurrentProject.AllForms Me.Liste.RowSource = Me.Liste.RowSource & Objao.Name & ";" Next Objao End Function
mais attention, le rowsource ne peut contenir plus de 4ko de liste, donc tu risques de perdre beaucoup de noms de formulaires s'ils sont nombreux. dans ce cas il faut remplir une table et baser ta liste sur cette table.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"David" a écrit dans le message de news:O$
Salut à tous,
j'aimerais créer une zone de liste qui contient la liste de tous les formulaires de ma base données. Est ce possible ? si oui, comment faire ?
