Bonsoir,
J'utilise le code VBA ci-après pour filtrer un formulaire à partir d'une liste déroulante, mais j'ai un message d'erreur (erreur de compilation).
Ce code devrait permettre de filtrer automatiquement le formulaire au fur et à mesure des saisies dans la zone de liste déroulante.
Les lignes concernées par l'erreur sont mis en rouge.
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 Option Compare Database Private Sub cboFilter_Change() 'If the combo box is cleared, clear the form filter. If Nz(Me.cboFilter.Text) = “” Then Me.Form.Filter = “” Me.FilterOn = False 'If a combo box item is selected, filter for an exact match. 'Use the ListIndex property to check if the value is an item in the list. ElseIf Me.cboFilter.ListIndex <> -1 Then Me.Form.Filter = “[Clients] = ‘” & _ Replace(Me.cboFilter.Text, “‘”, “””) & “‘” Me.FilterOn = True 'If a partial value is typed, filter for a partial company name match. Else Me.Form.Filter = “[Clients] Like ‘*” & _ Replace(Me.cboFilter.Text, “‘”, “””) & “*’” Me.FilterOn = True End If 'Move the cursor to the end of the combo box. Me.cboFilter.SetFocus Me.cboFilter.SelStart = Len(Me.cboFilter.Text) End Sub
Merci de votre aide.
Partager