Problème de requête Selection

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Médiamaticien

XLDnaute Nouveau
Bonjour,

J'ai crée une fonction de recherche, qui effectue une requete sélection celon des critères contenu dans des champs dans mon formulaire.
Cependant, quand je clique sur le bouton qui contient le code, rien ne se passe...😕
Voici mon code :

Sub Commande20_Click()





Dim Query As String
Dim rst As New ADODB.Recordset
Dim strPath As String
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset



Nom = Texte21
Prenom = Texte23
NUM_PERSONNEL = Texte25
Telephone = Texte27
Team = Texte29

If Nom <> "*" Then Nom = "Like """ & Nom & """" Else: Nom = ""
If Prenom <> "*" Then Prenom = "Like """ & Prenom & """" Else: Prenom = ""
If NUM_PERSONNEL <> "*" Then NUM_PERSONNEL = "Like """ & NUM_PERSONNEL & """" Else: NUM_PERSONNEL = ""
If Telephone <> "*" Then Telephone = "Like """ & Telephone & """" Else: Telephone = ""

Query = "SELECT T_Team.Nom, T_Collaborateur.NUM_PERSONNEL, T_Collaborateur.[E-Mail], T_Collaborateur.Nom, T_Collaborateur.Prenom, T_Collaborateur.Telephone, T_Collaborateur.Lieu, T_Collaborateur.Team_Leader"
Query = Query & " FROM T_Unite INNER JOIN (T_Team INNER JOIN T_Collaborateur ON T_Team.[_Team] = T_Collaborateur.[_Team]) ON T_Unite.[_Unite] = T_Team.[_Unite]"
Query = Query & " WHERE (((T_Collaborateur.NUM_PERSONNEL)" & NUM_PERSONNEL & ") AND ((T_Collaborateur.Nom)" & Nom & ") AND ((T_Collaborateur.Prenom)" & Prenom & ") AND ((T_Collaborateur.Telephone)" & Telephone & "));"

rs.Open Query, CurrentProject.Connection, adOpenStatic, adLockReadOnly

End Sub

Ou est le problème?
Merci pour votre aide 😀
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
1 K
Retour