Discussion :

[tichu77]

Bonjour, j'ai un petit pb.
Quand je clique sur mon bouton lancer recherche ce message erreur apparait:
) en trop dans l'expression '(((Clients![N°OS]=) OR (Clients![N°OS]=)) AND ((Clients![N°Progi]=) OR (Clients![N°Progi]=)) AND ((Clients![N°Lang]=) OR (Clients![N°Lang]=)))'.

Voici mon code:
Private Sub Lancer_la_recherche_Click()
On Error GoTo err_recherche

'
' 4 cas de figure : ET/ET, ET/OU, OU/ET, OU,OU
'

'
' cas ET/ET
'

If ((ETOU1 = 1) And (ETOU2 = 1)) Then
Forms.Recherche.RecordSource = "SELECT * FROM Clients WHERE (((Clients![N° OS] = " & Me![OS1] & ") OR (Clients![N° OS] = " & Me![OS2] & "))" _
& " AND ((Clients![N° Progi] = " & Me![Progi1] & ") OR (Clients![N° Progi] = " & Me![Progi2] & "))" _
& " AND ((Clients![N° Lang] = " & Me![Lang1] & ") OR (Clients![N° Lang] = " & Me![Lang2] & ")))"
End If

'
' cas ET/OU
'

If ((ETOU1 = 1) And (ETOU2 = 2)) Then
Forms.Recherche.RecordSource = "SELECT * FROM Clients WHERE (((Clients![N° OS] = " & Me![OS1] & ") OR (Clients![N° OS] = " & Me![OS2] & "))" _
& " AND ((Clients![N° Progi] = " & Me![Progi1] & ") OR (Clients![N° Progi] = " & Me![Progi2] & "))" _
& " OR ((Clients![N° Lang] = " & Me![Lang1] & ") OR (Clients![N° Lang] = " & Me![Lang2] & ")))"
End If

'
' cas OU/ET
'

If ((ETOU1 = 2) And (ETOU2 = 1)) Then
Forms.Recherche.RecordSource = "SELECT * FROM Clients WHERE (((Clients![N° OS] = " & Me![OS1] & ") OR (Clients![N° OS] = " & Me![OS2] & "))" _
& " OR ((Clients![N° Progi] = " & Me![Progi1] & ") OR (Clients![N° Progi] = " & Me![Progi2] & "))" _
& " AND ((Clients![N° Lang] = " & Me![Lang1] & ") OR (Clients![N° Lang] = " & Me![Lang2] & ")))"
End If

'
' cas OU/OU
'

If ((ETOU1 = 2) And (ETOU2 = 2)) Then
Forms.Recherche.RecordSource = "SELECT * FROM Clients WHERE (((Clients![N° OS] = " & Me![OS1] & ") OR (Clients![N° OS] = " & Me![OS2] & "))" _
& " OR ((Clients![N° Progi] = " & Me![Progi1] & ") OR (Clients![N° Progi] = " & Me![Progi2] & "))" _
& " OR ((Clients![N° Lang] = " & Me![Lang1] & ") OR (Clients![N° Lang] = " & Me![Lang2] & ")))"
End If


exit_err_recherche:
Exit Sub
err_recherche:
MsgBox Error$
Resume exit_err_recherche
End Sub

SVP pourriez vous m'aider?
Merci d'avance.

[lucienkany]

Bonjour
essaies d'éffacer une ) après Progi.

à+

[tichu77]

C'est bon j'ai résolu l'erreur, fallait que j'enlève presque toutes les parentheses car elles étaient inutile.
Merci beaucoup de m'avoir répondu.
C'est très gentil de ta part.
Bonne journée et bon week end