Discussion :

[joan-74]

Bonjour,

j'ai un Formulaire (F_EVALUATIONS) + SF (F_ELEVES_EVALUATIONS).
En effectuant un clic sur un Bouton dans le formulaire, je souhaite remplir automatiquement le SF avec tous les élèves présent dans une certaine table : T_CLASSES.


Voici mon code (inspiré du livre "VBA Access 2007 /Ress.Inf. /Michel AMELOT", P.190) :

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
Private Sub BP_ajouterTousLesEleves_Click()
 
    Dim cnnX As ADODB.Connection
    Set cnnX = CurrentProject.Connection
    Dim mySQL As String
 
    mySQL = "INSERT INTO J_ELEVES_EVALUATIONS ( ID_EVALUATION, ID_ELEVES ) " _
          & "SELECT T_EVALUATIONS.ID_EVALUATION, J_CLASSES_ELEVES.ID_ELEVES " _
          & "FROM T_EVALUATIONS, T_ELEVES INNER JOIN J_CLASSES_ELEVES ON T_ELEVES.ID_ELEVE = J_CLASSES_ELEVES.ID_ELEVES " _
          & "WHERE T_EVALUATIONS.ID_EVALUATION = 4; " _
          & "WHERE (((T_EVALUATIONS.ID_EVALUATION)=" & Me![ID_EVALUATION] & ")); " _
          & "ORDER BY T_ELEVES.NOM_PRENOMS;"
 
    cnnX.Execute mySQL
 
End Sub

Malheureusement...
lorsque je clic sur le Bouton, j'obtiens le message d'erreur suivant :

Erreur d'exécution '-2147217900 (80040e14)':
Caractères trouvés après la fin de l'instruction SQL.

... et le débuggeur pointe sur la dernière ligne : cnnX.Execute mySQL

Quel est le problème ?
Comment faire pour que cela fonctionne correctement ?

Merci d'avance pour votre aide.

[madefemere]

Bonsoir,

Ton instruction SQL n'est pas correcte, tu as un ";" qui traine au milieu.
On ne peut avoir 2 "WHERE" dans une seule instruction. Quel filtre tu veux utiliser :

Code SQL :

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

WHERE T_EVALUATIONS.ID_EVALUATION = 4;

ou

Code SQL :

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

WHERE (((T_EVALUATIONS.ID_EVALUATION)=" & Me![ID_EVALUATION] & "));

Cordialement,

[joan-74]

SUPER !

Le point virgule était bien la cause du problème. Merci.

(Pour les 2 WHERE il s'agit d'une mauvaise retranscription du code. J'ai testé les 2 conditions pour voir, et ai oublié de supprimer l'une des deux en recopiant ici )

Voilà le code définitif :

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
Private Sub BP_ajouterTousLesEleves_Click()
 
    Dim cnnX As ADODB.Connection
    Set cnnX = CurrentProject.Connection
 
    Dim mySQL As String
 
    mySQL = "INSERT INTO J_ELEVES_EVALUATIONS ( ID_EVALUATION, ID_ELEVES ) " _
          & "SELECT T_EVALUATIONS.ID_EVALUATION, J_CLASSES_ELEVES.ID_ELEVES " _
          & "FROM T_EVALUATIONS, T_ELEVES INNER JOIN J_CLASSES_ELEVES ON T_ELEVES.ID_ELEVE = J_CLASSES_ELEVES.ID_ELEVES " _
          & "WHERE (((T_EVALUATIONS.ID_EVALUATION)=" & Me![ID_EVALUATION] & ")) " _
          & "ORDER BY T_ELEVES.NOM_PRENOMS;"
 
    cnnX.Execute mySQL
 
    DoCmd.Requery "F_ELEVES_EVALUATIONS"    'rafraichissement du SF
 
End Sub

@++