Discussion :

[Kihmé Xs]

Bonjour à tous!

Sur ce formulaire je souhaite séléctionner un ou plusieurs spéctacle dans la liste tout à gauche, une fois séléctionné un spéctacle doit apparaitre dans la liste vide (deuxième en partant de la gauche), les listes concernants les documents seront aussi mise à jour en fonction des spéctacles choisis.

En consultant la faq access j'ai trouvé comment de ma liste de spéctacle choisit avoir la liste des documents qui leur correspond mais je ne vois pas comment faire apparaitre dans la deuxième liste les spéctacles choisit dans la première. Dans la faq il y a des choses qui y ressemblent mais je n'arrive pas à les adapter à ceci.

Si vous voyez comment faire ceci votre aide me sera précieuse, merci.

[Invité]

Bonjour

Il n'y a pas que la FAQ, il y'a aussi les sources, va jeter un coup d'oeil là.

Starec

[Kihmé Xs]

tout d'abord désolé pour le poste mal placé mais entre le forum access et celui ci l'access m'avait semblé plus adapté, je me suis trompé. Aussi merci je pense avoir trouvé ce qu'il me faut ici : http://access.developpez.com/sources...terListeValeur

Je vais mettre ceci en application

[Kihmé Xs]

J'ai utilisé le code source et je l'ai adapté au mieux que j'ai pu mais il est fait pour une clé primaire texte semble t'il, la mienne est numérique, je vois pas trop comment faire pour ne plus avoir d'incompatibilité sur cette ligne car mon code_spectacle est numérique (c'est un numero auto que je ne me vois pas mettre en texte) :

Code :

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

Db.Execute "UPDATE SPECTACLE SET selection=NOT Selection WHERE code_spectacle=" & Chr(34) & .Column(0, i) & Chr(34)

code en entier :

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 choix_spectacle(liste_spectacle_all As ListBox, liste_spectacle_select As ListBox, Optional LimiteSelection As Boolean = True, Optional bolSelection As Boolean = True)
    Dim i As Integer
    Dim Db As DAO.Database
    Set Db = CurrentDb
 
    With liste_spectacle_all
        If LimiteSelection Then
            For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Db.Execute "UPDATE SPECTACLE SET selection=NOT Selection WHERE code_spectacle=" & Chr(34) & .Column(0, i) & Chr(34)
            End If
            Next i
        Else
            Db.Execute "UPDATE SPECTACLE SET selection=" & CInt(bolSelection)
        End If
        .Requery
    End With
    liste_spectacle_select.Requery
End Sub

[Kihmé Xs]

Personne n'est capable de m'aider? Je suis toujours dessus, à un moment je me suis résigné à mettre ma clé en texte mais je ne répond plus à une de mes diréctives du cahier des charges, donc j'ai toujours ce problème, merci bien.