Bonjour,
Je souhaite mettre à jour un champ d'une table en fonction de critères particuliers. Pour cela je developpe en premier une requête Select.
Mon idée est donc d'utiliser cette requête sélect qui contient les enregistrements à mettre à jour.
je souhaite mettre à jour les enregistrements dont la date est antérieur ou égal à la date de la veille et dont le champ Second Controle = OUI.
voici le code que j'ai :
Ma requête select est bonne. Là ou je bloque c'est comment appeler cette requete select (SQ) dans la requête Update afin de mettre à jour le champ Second Controle (remplacé OUI par rien)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub Commande94_Click() Dim SQ As String SQ = SELECT T_dossiers.IDdossier, T_controle.DateSélectionDossier, T_dossiers.[Second Controle] FROM T_dossiers INNER JOIN T_controle ON T_dossiers.IDdossier = T_controle.IDdossier GROUP BY T_dossiers.IDdossier, T_controle.DateSélectionDossier, T_dossiers.[Second Controle] HAVING (((First(T_controle.DateSélectionDossier)) <= Date - 1) And ((T_dossiers.[Second Controle]) = 'OUI')) ORDER BY First(T_controle.DateSélectionDossier) DoCmd.RunSQL "UPDATE SQ SET T_dossier.[Second controle]= null End Sub
Si quelqu'un pouvait m'aider sur ce point, ca m'aiderait énormément dans l'avancement de mon appli !
merci
Partager