Difficulté avec INSERT INTO

Version imprimable

2 pièce(s) jointe(s)

Bonjour membres du forum !
Permettez moi d'ouvrir la 2e partie de la discussion concernant mon application "Usine à gaz" :ptdr: https://www.developpez.net/forums/d1...ublons-access/

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

Code:

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

Pièce jointe 471211

Code:

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:

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.

01/05/2019, 15h37
marot_r

Bonjour.

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

Code:

& Me.ID_ETABL_FREQ & "; "

et que la correction est

Code:

& Me.ID_ETABL_FREQ & ", "

A+
01/05/2019, 18h02
Ric500

Difficulté avec INSERT INTO

Hello!

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

1 pièce(s) jointe(s)

Bonsoir membres du forum !

J'ai ai un autre message d'erreur:

Pièce jointe 471322

Code:

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.

01/05/2019, 19h18
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.
1. Tu ouvres la fenêtre d'exécution immédiate ([ctrl][g])
2. Tu tapes ? SQL [Enter].
3. 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:

& Ansco & " 'and Num_Inscription="

À mon avis c'est :

Code:

& Ansco & "' and Num_Inscription="

A+

A+

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

Code:

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 & "';)"

01/05/2019, 20h15
hyperion13

2 pièce(s) jointe(s)

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.
Pièce jointe 471347
:ptdr:
Pièce jointe 471358
01/05/2019, 20h18
morobaboumar
Citation:
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+

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

Code:

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 & "';)"

01/05/2019, 20h43
marot_r
Désolé j'ai une étape qui était implicite :

Pour faire cela
1. Tu mets un point d'arrêt sur la ligne qui suit.
2. Tu lances ton code
Quand Access s'arrête sur le point d'arrêt
1. Tu ouvres la fenêtre d'exécution immédiate ([ctrl][g])
2. Tu tapes ? SQL [Enter].
3. 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+
01/05/2019, 21h39
morobaboumar

Citation:

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.
Pièce jointe 471347

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.
01/05/2019, 21h52
morobaboumar

2 pièce(s) jointe(s)
Citation:
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:

Pièce jointe 471359

Pièce jointe 471360

A+

Citation:
Envoyé par tee_grandbois
un oubli de ma part: l'année scolaire est aussi du texte:
Code:

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.

01/05/2019, 22h35
tee_grandbois

1 pièce(s) jointe(s)

Citation:

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):

Pièce jointe 471364

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

Citation:

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
14/03/2020, 10h47
morobaboumar

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