Bonjours,
Je suis bloqué sur une [Procédure événementielle] que j'ai affecté à un bouton de mon formulaire. Le code ce présente ainsi :
Le problème que je rencontre est que j'arrive à executer la requête SQL (Le code SQL est un copier/coller du code que m'a généré ACCESS) me permettant de mettre à jours une liste.
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
23
24 Private Sub Ajout_NITG_Click() On Error GoTo Erreur Dim requete As String Dim VarLr As Variant For Each VarLr In NITG_NA.ItemsSelected requete = "INSERT INTO NITG_CC VALUES ( '" & Liste_CC.Column(0) & "','" & NITG_NA.Column(1, VarLr) & "' ) " CurrentDb.Execute requete Next VarLr CurrentDb.Execute "SELECT NITG.GFS, NITG.NITG, NITG.NITGLIB FROM NITG_CC RIGHT JOIN NITG ON NITG_CC.NITG = NITG.NITG GROUP BY NITG.GFS, NITG.NITG, NITG.NITGLIB HAVING (((Count(NITG_CC.CC))=0));" ' Ne marche pas! Liste_CC.Requery NITG_NA.Requery NITG_Affecté.Requery Sortie: Exit Sub Erreur: MsgBox Err.Description, vbCritical, "Erreur de Transfert" Resume Sortie End Sub
Le message d'erreur qui s'affiche est le suivant :
"impossible d'éxecuter une requête de séléction."
Merci d'avance.
PS : Je suis un novice d'ACCESS, mais j'ai beaucoup fait de VBA sous EXCEL.
Partager