En m'inspirant de la FAQ, de cours externes et d'informations trouvées grâce à des moteurs de recherche, j'ai pondu ce code :
Beaucoup de recherche pour pas grand chose ? Sans doute : j'arrive actuellement à une erreur de syntaxe. Impossible de trouver la moindre information avec F1, et le site Microsoft ne parle d'INSERT INTO que pour 2003.
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 Sub DAOExecuteBulkOpQuery() Dim Caté As String Dim SCat As String Dim Spéc As String Dim Soci As String Dim Datt As String Dim db As DAO.Database Caté = cboCatégorie SCat = cboSCatégorie Spéc = cboSpécialité Soci = StrConv((Replace(txtajout, Chr(39), " ")), vbUpperCase) Datt = Me.txtAjoutDate Set db = DBEngine.OpenDatabase("C:\Documents and Settings\jpparra\Bureau\Jacques\Archives.mdb") db.Execute ("INSERT INTO DOCS (Catégorie, SCatégorie, Spécialité, Société, Date) VALUES (Caté, SCat, Spéc, Soci, Datt)") Debug.Print "Records Affected = " & db.RecordsAffected CurrentDb.Close End Sub
Pourtant, la "fonction" est reconnue sous 2002 : j'étais passé par une étape-erreure "Trop peu de paramètres. 5 attendus" en enlevant la parenthèse contenant les noms de champs à renseigner.
J'ai essayé en passant directement par la CurrentDb, pas plus de résultat.
Si quelqu'un avait une petite piste de recherche, que ce soit pour corriger ma syntaxe, ou pour utiliser une tout autre méthode.
Partager