Discussion :

[singebleu]

Bonjour a tous,
je suis bloqué sur mon code, pourriez-cous m'aider ?
voila jai un formulaire ki affiche la requête suivante en mode tabulaire :

Code :

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

1
2
SELECT [Réseau].[LibelléRéseau], [agence].[LibelléAgence], [utilisateur].[NomUtilisateur], [utilisateur].[IdUtilisateur]
FROM utilisateur INNER JOIN (Réseau INNER JOIN (agence INNER JOIN Affectationagence ON [agence].[IdAgence]=[Affectationagence].[IdAgence]) ON [Réseau].[IdRéseau]=[agence].[IdRéseau]) ON [utilisateur].[IdUtilisateur]=[Affectationagence].[IdUtilisateur];

et je cherche a effectuer une recherche avec une zone de texte des utilisateur ou des réseau qui correspondrai a la donnée saisie dan la zone de texte

je fait le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Texte11_AfterUpdate()
If IsNull(Me.Texte11) Then
Me.Filter = ""
Me.FilterOn = False
Else
Me.Filter = "NomUtilisateur Like ""*" & Me.Texte11 & ""*" LibelléRéseau Like ""*" &Me.Texte11 & ""*" "
Me.FilterOn = True
End If
End Sub

pouvez vous me dire ou est l'erreur

merci d'avance

[alassanediakite]

Salut
Il me semble que la ligne suivante a des problèmes:

Code :

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

1
2
3
Me.Filter = "NomUtilisateur Like ""*" & Me.Texte11 & ""*" LibelléRéseau Like ""*" &Me.Texte11 & ""*" "
Me.FilterOn = True
End If

Il faut plutôt

Code :

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

1
2
3
Me.Filter = "NomUtilisateur Like *" & Me.Texte11 & "LibelléRéseau Like *" & Me.Texte11
Me.FilterOn = True
End If

@+

[alassanediakite]

Salut
Un pétit problème dont je me suis rendu compte plus tard
le code doit être plutôt

Code :

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

1
2
3
Me.Filter = "NomUtilisateur Like '" & Me.Texte11 & "*' and LibelléRéseau Like '" & Me.Texte11 & "*'"
Me.FilterOn = True
End If

@+