Discussion :

[gbuxo]

Bonjour,
Dans le Form_Load de mon formulaire je place :
Lst_Form.RowSource = ListeForm
ListeForm est une fonction placée dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Function ListeForm() As String
Dim Vtxt As String
Dim i As Integer
Vtxt = ""
For i = 0 To Forms.Count - 1
  If Trim(Vtxt) <> "" Then Vtxt = Vtxt & ";" & Forms(i).Name Else Vtxt = Forms(i).Name
Next i
ListeForm = Vtxt
End Function

Le resultat n'affiche que le formulaire actif alors que je devrais avoir la
liste des Forms....
Merci

[ft035580]

Salut,

Pourquoi ne te sers tu pas de la table "MSysObjects" en créant une requête.
Avec pour champs:
NAME;TYPE(critères=-32768);FLAGS(Critères=0)
Les 2 derniers champs non apparents.
Cette requête alimenterait ta liste.

[gbuxo]

OK
ca marche nickel
Pour info je donne le code ça peut servir
ou Lst_Form est le nom de la liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Lst_Form.RowSource = "SELECT MSysObjects.Name from MSysObjects WHERE (TYPE=-32768) AND (FLAGS=0) " _
                   & "ORDER BY Name"