Discussion :

[Yoshiblow]

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 :

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 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.

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.

[pc75]

Bonjour,

A priori, Execute sert à exécuter une requête action (insert, delete ou update).

Pour un select => recordset

[Yoshiblow]

Merci pour cette réponse rapide, mais comment ceci se traduirai donc en code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
CurrentDb.Recordset "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));"
 
Recorset "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));"
 
ou
 
CurrentDb.Execute "UPDATE 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));"

Ceci n'a pas l'air de marché.

Pour faire simple comment executer à nouveau ma requête?

[Meduse]

Ca dépend pour quoi tu veux utiliser ta requête:

-pour lire/modifer son contenu dans VBA, utilise un recordset. Syntaxe ici :
http://access.developpez.com/faq/?page=SQL

-pour rafraichir ton formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Requery

-pour changer ce que montre ton formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.RecordSource="nom ou texte de la requête"
Me.Requery

[Yoshiblow]

Merci pour cette réponse, me semble un peu plus clair.

Mais lorsque j'ecris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.RecordSource = "Texte de la requete"

ça ne marche pas, dois je définir une variable ou je ne sais quoi?

Parcontre suite à ton liens il me semblerai que

[CODE]CurrentDb.Execute "UPDATE _"[CODE]

me semblerai approprié à ma demande mais je ne sais pas pour autant quoi ecrire derrière UPDATE.

EDIT : Enfait il suffit de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.RecordSet = "requete"

Super merci beaucoup!!!