Bonjour à Tous,
Merci User, tout fonctionne
Voici le code complet
Je vous souhaite une Belle journée et un Excellent week-end🌞
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
28
29
30
31
32 Private Sub but_ctrl_H24_Click() ' recherche d'accès H24 sur les noms sélectionnés dim qry as DAO.queryDef Dim db As DAO.Database Dim rst As DAO.Recordset Dim sSQL As String dim UpSQL as string Vimmeuble = Nz(Me.lst_immeuble.Column(0), "") ' MsgBox (Vimmeuble) sSQL = "SELECT T_employe_TMP.ID_Employe, 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 = True) And export_H24.Profil Like '*" & Vimmeuble & "*';" On Error Resume Next CurrentDb.QueryDefs.Delete ("MaRequête") On Error GoTo 0 Set qry = CurrentDb.CreateQueryDef("MaRequête", sSQL) DoCmd.Openquery("MaRequête") set qry = nothing UpSQL = "UPDATE T_employe_TMP " & _ "SET Coche_H24_TMP = True " & _ "WHERE ID_Employe in (select ID_Employe from MaRequête);" currentdb.Execute UpSQL, dbFailOnError End Sub
Partager