Difficulté avec INSERT INTO

**morobaboumar** · 01/05/2019, 14h49

Bonjour membres du forum !
Permettez moi d'ouvrir la 2e partie de la discussion concernant mon application "Usine à gaz"

https://www.developpez.net/forums/d1...ublons-access/

Bref ! Voici l'erreur qui survient après clique sur la commande "GENERER..."

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
25
26
Private Sub cmdInitialiser_Click()
On Error GoTo OUMAR
If IsNull(Me.ID_ETABL_FREQ) Or Me.ID_ETABL_FREQ = "" Then
    If MsgBox("Selectionnez le Nom de l'ETABLISSEMENT!", vbOKOnly, "ENTREZ LES PARAMETRES") = vbCancel Then Exit Sub
  End If
If IsNull(Me.ANNEE_SCOLNivScol) Or Me.ANNEE_SCOLNivScol = "" Then
    If MsgBox("Selectionnez le Nom de l'ANNEE_SCOL!", vbOKOnly, "ENTREZ LES PARAMETRES") = vbCancel Then Exit Sub
  End If
 
If IsNull(Me.bCocher) Or Me.bCocher = 0 Then
    If MsgBox("Cochez la boîte Cocher à bCocher !", vbOKOnly, "ENTREZ LES PARAMETRES") = vbCancel Then Exit Sub
  End If
 
If Not IsNull(Me.ID_ETABL_FREQ) And Not IsNull(Me.ANNEE_SCOLNivScol) And Me.bCocher = -1 Then
    DoCmd.SetWarnings False
    'Me.bCocher = -1
    AjouterEleveComposant Me.ID_ETABL_FREQ, Me.ANNEE_SCOLNivScol, Me.Num_Inscription, Me.Mleeleve
    'Me.bCocher = 0
    Me.Requery
    DoCmd.SetWarnings True
End If
Exit Sub
OUMAR:
    MsgBox err.description, vbExclamation + vbOKOnly, err.Number
 
End Sub

Nom : EvaluationNiveau15.PNG
Affichages : 127
Taille : 40,5 Ko

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub AjouterEleveComposant(idEtab As Long, Ansco As String, NuminsEl As Long, MlElev As Long)
On Error GoTo OUMAR
Dim BD As Database
Dim RS As Recordset
Dim sql As String
Set BD = CurrentDb
DoCmd.SetWarnings False
 
sql = "select * from [Eleve_INSCRIT_Req_Plus] where ID_ETABL_FREQ =" & idEtab & "and ANNEE_SCOLNivScol='" & Ansco & "'and Num_Inscription=" & NuminsEl & "and Mleeleve=" & MlElev & "and bCocher order by Num_Inscription ;"
Set RS = BD.OpenRecordset(sql)
 
Set RS = BD.OpenRecordset(sql)
With RS
    If .EOF Then
    Else
        .MoveFirst
        Do While Not .EOF
 
    sql = "INSERT INTO Tbl_EVALUATION_NIVEAU_SCOLAIRE" _
    & "(NumEnregistreComposant, IdEcole,AnneeScol,NumInsCreleve, MleEleve, Nom_Prenoms_EleveComposant,COMPOSITION, NiveauCompositionFrancais) VALUES(" _
    & f_NumAutoEnregistrementElevesComposants() + 1 & "," _
    & Me.ID_ETABL_FREQ & "; " _
    & Me.ANNEE_SCOLNivScol & "'," _
    & Me.Num_Inscription & "," _
    & Me.Mleeleve & ",'" _
    & RS.Fields("NPrenomsEleves") _
    & "', " & Me.Evaluation_Txt _
    & ", '" & Me.NIVEAU__EVALUATION_Txt & ";)"
 
        DoCmd.RunSQL sql
        .MoveNext
        Loop
    End If
End With
 
DoCmd.SetWarnings True
 
    Forms("Frm_EvaluationScolaireElevesECIND").Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Requery
 
Exit Sub
OUMAR:
MsgBox err.description, vbExclamation, err.Number
End Sub

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 OptionChoix_Click()
If Me.OptionChoix.Value = 1 Then
    Me.cmdInitialiser.Visible = True
 
Else
    Me.cmdInitialiser.Visible = False
 
End If
End Sub
 
Private Sub btAucun_Click()
On Error Resume Next
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Eleve_INSCRIT_Req_Plus SET bCocher=0;"
Me.Requery
End Sub
 
Private Sub btTous_Click()
On Error Resume Next
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Eleve_INSCRIT_Req_Plus SET bCocher=-1;"
Me.Requery
End Sub

Tous les codes ci dessus concernent le 2e sous formulaire "Frm_EvaluationScolaireElevesECIND_ChoisirComposants".

Pièce jointe de mon application.

Cordialement.

**marot_r** · 01/05/2019, 15h37

Bonjour.

Je pense que le problème vient de là.

Code :

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

& Me.ID_ETABL_FREQ & "; "

et que la correction est

Code :

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

& Me.ID_ETABL_FREQ & ", "

A+

**Ric500** · 01/05/2019, 18h02

Hello!

Je note également qu'il n'y a pas d'espace avant tes "AND" dans les SQL.

**morobaboumar** · 01/05/2019, 19h10

Bonsoir membres du forum !

J'ai ai un autre message d'erreur:

Nom : EvaluationNiveau16.PNG
Affichages : 112
Taille : 21,5 Ko

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub AjouterEleveComposant(idEtab As Long, Ansco As String, NuminsEl As Long, MlElev As Long)
On Error GoTo OUMAR
Dim BD As Database
Dim RS As Recordset
Dim sql As String
Set BD = CurrentDb
DoCmd.SetWarnings False
 
sql = "select * from [Eleve_INSCRIT_Req_Plus] where ID_ETABL_FREQ =" & idEtab & " and ANNEE_SCOLNivScol='" & Ansco & " 'and Num_Inscription=" & NuminsEl & " and Mleeleve=" & MlElev & " and bCocher order by Num_Inscription ;"
Set RS = BD.OpenRecordset(sql)
 
Set RS = BD.OpenRecordset(sql)
With RS
    If .EOF Then
    Else
        .MoveFirst
        Do While Not .EOF
 
   sql = "INSERT INTO Tbl_EVALUATION_NIVEAU_SCOLAIRE" _
    & "(NumEnregistreComposant, IdEcole,AnneeScol,NumInsCreleve, MleEleve, Nom_Prenoms_EleveComposant,COMPOSITION, NiveauCompositionFrancais) VALUES(" _
    & f_NumAutoEnregistrementElevesComposants() + 1 & "," _
    & Me.ID_ETABL_FREQ & ", " _
    & Me.ANNEE_SCOLNivScol & "'," _
    & Me.Num_Inscription & "," _
    & Me.Mleeleve & ",'" _
    & RS.Fields("NPrenomsEleves") _
    & "', " & Me.Evaluation_Txt _
    & ", '" & Me.NIVEAU__EVALUATION_Txt & "',)"
 
 
        DoCmd.RunSQL sql
        .MoveNext
        Loop
    End If
End With
 
DoCmd.SetWarnings True
 
    Forms("Frm_EvaluationScolaireElevesECIND").Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Requery
 
Exit Sub
OUMAR:
MsgBox err.description, vbExclamation, err.Number
End Sub

Cordialement.

**marot_r** · 01/05/2019, 19h18

Bonjour.

Peux-tu poster ce que vaut SQL au moment de l'exécution ?

Pour faire cela tu mets un point d'arrêt sur la ligne qui suit.

Tu ouvres la fenêtre d'exécution immédiate ([ctrl][g])
Tu tapes ? SQL [Enter].
Tu sélectionnes le résultat et tu le colles dans le message.

Je soupçonne un délimiteur de texte en trop dans ta chaîne.

Et je pense que tu n'as pas mis l'espace au bon endroit pour :

Code :

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

& Ansco & " 'and Num_Inscription="

À mon avis c'est :

Code :

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

& Ansco & "' and Num_Inscription="

A+

A+

**tee_grandbois** · 01/05/2019, 19h57

bonsoir,
le code SQL contenait des apostrophes en trop et en manquait ailleurs ....

Code :

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

1
2
3
4
5
6
7
8
9
10
 sql = "INSERT INTO Tbl_EVALUATION_NIVEAU_SCOLAIRE" _
    & "(NumEnregistreComposant, IdEcole,AnneeScol,NumInsCreleve, MleEleve, Nom_Prenoms_EleveComposant, COMPOSITION, NiveauCompositionFrancais) VALUES(" _
    & f_NumAutoEnregistrementElevesComposants() + 1 & ", " _
    & Me.ID_ETABL_FREQ & ", " _
    & Me.ANNEE_SCOLNivScol & ", " _
    & Me.Num_Inscription & ", " _
    & Me.Mleeleve & ", '" _
    & RS.Fields("NPrenomsEleves") & "', '" _
    & Me.Evaluation_Txt & "', '" _
    & Me.NIVEAU__EVALUATION_Txt & "';)"

**hyperion13** · 01/05/2019, 20h15

Je confirme beaucoup de confusion avec les délimiteurs pour num et pour string. C'est certain vouloir insérer du string dans un champ num, Access va broncher.
Mais il n'y a pas que ça à mon avis.
Nom : 20190501_01.jpg
Affichages : 141
Taille : 39,3 Ko

Nom : 20190501_01.jpg
Affichages : 141
Taille : 39,3 Ko

Nom : 20190430_0.jpg
Affichages : 112
Taille : 117,9 Ko

**morobaboumar** · 01/05/2019, 20h18

Envoyé par marot_r

Bonjour.

Peux-tu poster ce que vaut SQL au moment de l'exécution ?

Pour faire cela tu mets un point d'arrêt sur la ligne qui suit.

Tu ouvres la fenêtre d'exécution immédiate ([ctrl][g])
Tu tapes ? SQL [Enter].
Tu sélectionnes le résultat et tu le colles dans le message.

Bonsoir membres du forum !j
J'ai exécuté ce que vous m'avez suggéré mais aucun message n'est apparu.
A+

**tee_grandbois** · 01/05/2019, 20h27

un oubli de ma part: l'année scolaire est aussi du texte:

Code :

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

1
2
3
4
5
6
7
8
9
10
 sql = "INSERT INTO Tbl_EVALUATION_NIVEAU_SCOLAIRE" _
    & "(NumEnregistreComposant, IdEcole,AnneeScol,NumInsCreleve, MleEleve, Nom_Prenoms_EleveComposant, COMPOSITION, NiveauCompositionFrancais) VALUES(" _
    & f_NumAutoEnregistrementElevesComposants() + 1 & ", " _
    & Me.ID_ETABL_FREQ & ", '" _
    & Me.ANNEE_SCOLNivScol & "', " _
    & Me.Num_Inscription & ", " _
    & Me.Mleeleve & ", '" _
    & RS.Fields("NPrenomsEleves") & "', '" _
    & Me.Evaluation_Txt & "', '" _
    & Me.NIVEAU__EVALUATION_Txt & "';)"

**marot_r** · 01/05/2019, 20h43

Désolé j'ai une étape qui était implicite :

Pour faire cela

Tu mets un point d'arrêt sur la ligne qui suit.
Tu lances ton code

Quand Access s'arrête sur le point d'arrêt

Tu ouvres la fenêtre d'exécution immédiate ([ctrl][g])
Tu tapes ? SQL [Enter].
u sélectionnes le résultat et tu le colles dans le message.

Après le message de Tee_grandbois ce n'est peut-être plus nécessaire mais c'est mieux expliqué ainsi.

A+

**morobaboumar** · 01/05/2019, 21h39

Envoyé par hyperion13

Je confirme beaucoup de confusion avec les délimiteurs pour num et pour string. C'est certain vouloir insérer du string dans un champ num, Access va broncher.
Mais il n'y a pas que ça à mon avis.
Nom : 20190501_01.jpg
Affichages : 141
Taille : 39,3 Ko

Merci hyperion13 !
J'avais omis la table "PARENT".
Mais elle n'est pas très utile ici.
Je l'ai récupérée néanmoins.
Merci infiniment.

**morobaboumar** · 01/05/2019, 21h52

Envoyé par marot_r

Désolé j'ai une étape qui était implicite :

Pour faire cela

Tu mets un point d'arrêt sur la ligne qui suit.
Tu lances ton code

Quand Access s'arrête sur le point d'arrêt

Tu ouvres la fenêtre d'exécution immédiate ([ctrl][g])
Tu tapes ? SQL [Enter].
u sélectionnes le résultat et tu le colles dans le message.

Salut marot_r !

Après avoir exécuté vos suggestions, je n'ai pas eu réaction.
Voir captures d'écran:

Nom : SQL.PNG
Affichages : 110
Taille : 25,4 Ko

Nom : sql2.PNG
Affichages : 110
Taille : 21,8 Ko

A+

**morobaboumar** · 01/05/2019, 21h59

Envoyé par tee_grandbois

un oubli de ma part: l'année scolaire est aussi du texte:

Code :

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

1
2
3
4
5
6
7
8
9
10
 sql = "INSERT INTO Tbl_EVALUATION_NIVEAU_SCOLAIRE" _
    & "(NumEnregistreComposant, IdEcole,AnneeScol,NumInsCreleve, MleEleve, Nom_Prenoms_EleveComposant, COMPOSITION, NiveauCompositionFrancais) VALUES(" _
    & f_NumAutoEnregistrementElevesComposants() + 1 & ", " _
    & Me.ID_ETABL_FREQ & ", '" _
    & Me.ANNEE_SCOLNivScol & "', " _
    & Me.Num_Inscription & ", " _
    & Me.Mleeleve & ", '" _
    & RS.Fields("NPrenomsEleves") & "', '" _
    & Me.Evaluation_Txt & "', '" _
    & Me.NIVEAU__EVALUATION_Txt & "';)"

Salut tee_grandbois !
J'ai remplacé ma ligne sql par la votre mais on sent une réaction après clique sur la commande générer...,
mais aucune insertion de données dans la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE".

Cordialement.

**tee_grandbois** · 01/05/2019, 22h35

mais aucune insertion de données dans la table "Tbl_EVALUATION_NIVEAU_SCOLAIRE".

çà on n'y peut pas grand chose ... sauf si la requête n'est pas bonne.

1) est-ce que f_NumAutoEnregistrementElevesComposants() renvoie bien quelque chose ?
2) le ? sql doit être utilisé comme cela une fois que le processus est arrêté sur l'instruction choisie le résultat s'affiche juste en dessous (flèche verte):

Nom : _0.JPG
Affichages : 112
Taille : 57,0 Ko

Nom : _0.JPG
Affichages : 112
Taille : 57,0 Ko

cela permet de voir le contenu de la variable sql et vérifier la syntaxe.

Après avoir exécuté vos suggestions, je n'ai pas eu réaction.

il faut mettre le point d'arrêt puis ouvrir le formulaire pour exécuter le code et lorsque qu'il est arrêté exécuter ? sql
ne pas oublier d'enlever le point d'arrêt une fois que les tests sont terminés

**morobaboumar** · 14/03/2020, 10h47

Merci infiniment à vous tous. Je vous souhaite tout le bonheur du monde.
Cordialement.

Difficulté avec INSERT INTO [AC-2013]

Requêtes et SQL.

Discussions similaires

Partager

Partager