bonjour a tous
voici, j'essaie d'executer une requete update a l'intérieur de mon recordset depuis un moment déjà mais j'ai toujours une erreur..."Erreur de synthaxe : opérateur Absent)
Pourtant mon recordset marche et ma requete est correcte quand je la teste manulemment... J'ai essayé de changer les guillemets en quote et vis versa...
Voila =) Je serai gentil de me dire ou est l'erreur =)
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 Set Dirco = CurrentDb.OpenRecordset("Dirco", dbOpenTable, dbReadOnly) Dirco.MoveFirst While Not Dirco.EOF ziDirco = Dirco!ZI mailDirco = Dirco!MAIL prenomDirco = Dirco!PRENOM fonctionDirco = Dirco!FONCTION canalDirco = Dirco!CANAL csvDirco = Dirco!CSV dotcDirco = Dirco!DOTC DoCmd.RunSQL "UPDATE [$MU Fichiers 1] SET [$MU Fichiers 1].[ZI] =" & ziDirco & ", [$MU Fichiers 1].[Adresse Email] = " & mailDirco & " WHERE (([$MU Fichiers 1].[CANAL]) Like " & canalDirco & ") AND ([$MU Fichiers 1].CSV) Like " & csvDirco & ";" rsDirco.MoveNext Wend
Zephir
Partager