Discussion :

[Houmem]

Bonjour

J'ai plusieurs état dans mon application, je voudrais placer sur mon formulaire "Rapports" une zone de liste contenant tout mes états. Par un clic su un bouton l'état sélectionné dans la zone de liste est affiché.

Merci

[User]

Salut

un truc comme:

Code :

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

1
2
3
4
5
private TaListe_click()
 
DoCmd.OpenReport TaListe.Value,acViewPreview
 
end sub

ouvre l'état selectionné dans la liste en mode apercu

A+

[Houmem]

salut
Je connais pas grand chose, mais "value" c la valeur de quoi ??

[User]

En gros ca renvoie la valeur sélectionnée dans ta liste...

[Jacques-Henri]

Cet exemple m'intéresse beaucoup, mais voilà une zone de liste est , en principe, toujours basée sur une table ou une requête. Alors comment construire l'une ou l'autre de ces dernières avec une liste d'états.Je me pose la question. J'attends donc profiter des infos sur la question.En fin de compte, je me demande s'il ne serait pas utile d'explorer la piste " pièces jointes" évoquée quelque part sur le forum pa christophe warim.

[User]

Pour alimenter liste sur openform J'ai trouvé un truc comme ca dans la faq

Code :

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

1
2
3
4
5
Dim acobjLoop As AccessObject
 
    For Each acobjLoop In CurrentProject.AllReports
              TaListe.AddItem(acobjLoop.Name)
   Next acobjLoop

A+

[Jeannot45]

Voici une petite procédure qui te permettra d'afficher toutes les requetes qui sont dans ta base

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Form_Open(Cancel As Integer)
    Dim l_intCompteur As Integer
    Dim l_Requete As QueryDef
    Dim l_strListe As String
 
    For Each l_Requete In CurrentDb.QueryDefs
        ' Ne recupère que les requêtes dont le nom commence par R
        If Left(l_Requete.Name, 1) = "R" Then
            If l_strListe = "" Then
                l_strListe = l_Requete.Name
            Else
                l_strListe = l_strListe & ";" & Chr(34) & l_Requete.Name & Chr(34)
            End If
        End If
    Next
 
    Me.lstRequete.RowSource = l_strListe
    Me.lstRequete.Requery
End Sub

Remarque la propriété Origine source de ta liste est sur : Liste Valeurs

Bonne continuation