Bonjour,
J'aimerais faire apparaître dans une liste, à la suite de sélections sur plusieurs listes modifiables, des champs en provenances de 2 tables différentes... J'ai essayé le code suivant et ca ne marche pas après sélection d'une des listes modifiables:
Alors que le code suivant fonctionne au demarrage de la page (tout s'affiche bien)... :
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
20
21
22
23
24
25 Private Sub RefreshQuery() Dim SQL As String Dim SQLWhere As String SQL = "SELECT Guests.CodMedia, Guests.Guest, Episodes.Nom, Episodes.Titre, Guests.GuestA INNER JOIN Guests ON Episodes.Titre=Guests.Titre Where Guests.CodMedia <> 0" If Me.chkTitre Then SQL = SQL & "And Episodes!Titre = '" & Me.cmbRechTitre & "' " End If If Me.chkGuest Then SQL = SQL & "And Guests!Guest = '" & Me.cmbRechGuest & "' " End If If Me.chkNom Then SQL = SQL & "And Episodes!Nom = '" & Me.cmbRechNom & "' " End If SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1)) SQL = SQL & " ORDER BY Guests.Guest, Episodes.Nom ;" Me.lblStats.Caption = DCount("*", "Episodes", SQLWhere) & " / " & DCount("*", "Episodes") Me.lstResults.RowSource = SQL Me.lstResults.Requery End Sub
Quelqu'un aurait une idée d'où vient mon erreur?
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_Load() Dim ctl As Control For Each ctl In Me.Controls Select Case Left(ctl.Name, 3) Case "chk" ctl.Value = 0 Case "cmb" ctl.Visible = False End Select Next ctl Me.lstResults.RowSource = "SELECT Guests.CodMedia, Guests.Guest, Episodes.Nom, Episodes.Titre, Guests.GuestA FROM [Episodes] INNER JOIN Guests ON Episodes.Titre=Guests.Titre ORDER BY Guests.Guest, Episodes!Nom;" Me.lstResults.Requery End Sub
Merci beaucoup!
Partager