Tout d'abord bonjour a tous
voila mon souci.
Je possède une table dans laquelle j'ai un champ texte contenant du texte du type soit "oui" ou "non".
Je souhaiterais mettre a jour un champ de type oui/non dans une seconde table en lui disant que si le texte est oui la case est cochée
Voila le code que j'ai fait.
A l'execution il n'y a pas d'erreur mais rien ne change dans ma table.
Si vous aves des questions ou des propositions n'hésitez pas.
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 Dim rcs As DAO.Recordset Dim dbs As DAO.Database Dim req, reqUp As String 'je récupere tous les enregistrement qui ont le champ a oui req = "SELECT F1,F3,F4,F14 FROM TEMP WHERE F14=""oui"";" 'je met a jour dans la table CANDIDATURE_INTERNET le champ Répondeur? ' en utilisant les nom prénom et date correspondant reqUp = "UPDATE CANDIDATURE_INTERNET set [Répondeur?] = True" reqUp = reqUp & " WHERE Nom = rcs(""F3"") AND Prénom =rcs(""F4"")" reqUp = reqUp & " [Date contact]=rcs(""F1"");" Set dbs = CurrentDb Set rcs = dbs.OpenRecordset(req) Do While Not rcs.EOF DoCmd.RunSQL reqChek rcs.MoveNext Loop Set rcs = Nothing Set dbs = Nothing End Sub
Merci d'avance
Partager