Bonjour à Tous,

Merci User, tout fonctionne

Voici le code complet

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
Je vous souhaite une Belle journée et un Excellent week-end🌞