INSERT INTO en VBA

Bonjour à tous,

Voilà, dans un projet, j'essaye de faire une requête action de type INSERT, mais j'ai une erreur d’Exécution "3219" : Opération Non Valide.

Voici mon code d'insertion :

Code:

---

1 2 3

Dim Req_Insert As DAO.Recordset Set Req_Insert = ACCESS_insert("INSERT INTO CHOIX([NUMERO_QCM],[NUMERO_QUESTION],[NUMERO_PROPOSITION], [ID_ENREGISTREMENT],[SELECTIONNE]) Values (" & Num_QCM & "," & num_quest & "," & num_prop1 & ",1,1);")

---

La fonction ACCESS_insert :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function ACCESS_insert(requete As String) As DAO.Recordset   Dim db As DAO.Database, rst As DAO.Recordset Dim sSQL As String ' Ouverture de la base de données Set db = CurrentDb sSQL = requete ' Ouverture du recordset Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly)     Set ACCESS_insert = rst ' Fermeture du Recordset 'rst.Close   End Function

---

Voilà, j'ai vérifié les variables num_QCM, etc, elles sont ok, la requête marche par ailleurs quand je l'éxécute sur ACCESS, mais en VBA, pas moyen.
mes requête de sélection fonctionnent en rajoutant l'option dbReadOnly que j'ai retiré ici sur la fonction (OpenRecordset)

J'ai recherché plusieurs heures, et je n'arrive pas à résoudre mon problème, j'en fais donc appel à votre compétence,

Merci d'avance,

hello,

il faut revoir l'utilisation des fonctions selon leur attitude vis a vis des données.

Ici tu souhaites réaliser une requete dite Action, c'est a dire qui ajoute/supprime/met à jour les données dans la base.
Aussi, la fonction Openrecordset n'est pas la bonne. Il faut partir sur :
- Docmd.RunSQL
- CurrentDb.Execute
par exemple

Bonjour,

Merci beaucoup, tu avais raison.
Je ne suis pas familier du langage et en fait, c'est évident !

pour les intéressés, voici donc la fonction d'insertion ) laquelle on passe en paramètre la requête SQL :

Code:

---

1 2 3 4 5 6 7

Public Function ACCESS_insert(requete As String) As DAO.Recordset   ' Execution de la requete d'insertion DoCmd.RunSQL requete   End Function

---

Bien sur, une telle fonction est facultative.

Encore merci