Bonjour à Tous,
Je suis vraiment fâché avec les requêtes en VBA ☹
J’essaye de faire fonctionner celle-ci mais n’y arrive pas ☹
J’ai une incompatibilité de type erreur 13 et en plus le débogage considère « export_H24.Profil » comme une variable non définie alors que c’est un champs.
Il doit surement manquer des " ou parenthèses mais mes essais sont infructueux.
Merci pour votre aide
Je vous souhaite une Belle journée
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 but_ctrl_H24_Click() ' recherche d'accès H24 sur les noms sélectionnés Dim db As DAO.Database Dim rst As DAO.Recordset Dim sSQL As String Vimmeuble = Nz(Me.lst_immeuble.Column(0), "") ' MsgBox (Vimmeuble) sSQL = "SELECT T_employe_TMP.Coche_TMP, T_employe_TMP.Coche_H24_TMP, T_employe_TMP.NOM_TMP, T_employe_TMP.PRENOM_TMP, export_H24.Profil" & _ " FROM T_employe_TMP INNER JOIN export_H24 ON T_employe_TMP.IGG_TMP = export_H24.IGG" & _ " WHERE T_employe_TMP.Coche_TMP = (Yes) And export_H24.Profil Like " * " & Vimmeuble & " * " & " ';" End Sub
Partager