[AC-2007] INSERT INTO en VBA [Résolu]

[0_Azerty_0]

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,

[jpcheck]

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

[0_Azerty_0]

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