Discussion :

[Salsaboy60]

Bonjour,

Help!! svp;

j'ai creer une formulaire - qui jusqu'à hier marchait très bien (voir screenshot). Et soudainement il me donne une message erreur, comme quoi "Le champs spécifié [IDMarque] peut désigner plusieurs tables listées dans la clause FROM de votre instruction SQL".

voici le code sous le bouton cmdFiltre :

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
26
27
Private Sub cmdFilter_Click()
Dim stFilter As String
Dim vItem As Variant
Dim ctl As Control
 
        ' Construit le filtre string
    For Each vItem In Me.lstMarques.ItemsSelected
        stFilter = stFilter & "[IDMarque] = " & _
        Me.lstMarques.ItemData(vItem)
    Next
        'enlève le dernier ‘ OR ‘
    stFilter = Left(stFilter, Len(stFilter) - 4)
    Me.sfrmResults.Form.Filter = stFilter
    Me.sfrmResults.Form.FilterOn = True
 
 
    For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
    End Select
Next ctl
 
    Me.lblStats.Caption = DCount("*", "tblMachines", stFilter) & " / " & DCount("*", "tblMachines")
End Sub

Ce que je trouve très bisar, c'est que le bouton imprimer marche bien avec quasi le même code :

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
Private Sub imprime_Click()
 
Dim strWhere As String
Dim strSql As String
 
    For Each vItem In Me.lstMarques.ItemsSelected
        stFilter = stFilter & "[IDMarque] = " & _
        Me.lstMarques.ItemData(vItem) & " OR "
    Next
        'enlève le dernier ‘ OR ‘
    stFilter = Left(stFilter, Len(stFilter) - 4)
 
DoCmd.OpenReport ("MachinesFiltre"), acViewPreview, , stFilter
 
End Sub

j'ai surment dû changé quelque chose, mais je ne vois vraiment pas ou se trouve l'erreur.

Est-ce que quelqu'un peut me renseigner??

Merci bcp d'avance

Hans

[Salsaboy60]

PS: le screenshot