Insertion de champ via une boucle

**mat67000** · 14/06/2007, 10h30

Bonjour

J'ai un petit souci dont je ne trouve pas la solution, pourtant tout me parait correct.

En fait, j'ai un formulaire qui me sert à créer un switch (de X ports), lorsque je veux créer un nouveau switch, je veux qu'Access me créer tous les ports de ce switch dans une de mes table. Le nombre de ports est défini est fonction de l'info entrée dans le formulaire.

Tout semble fonctionner sauf qu'il ne me crée pas les ports et je ne comprends pas pourquoi !!

J'ai fait ceci :

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
Private Sub Commande26_Click()
 
Dim count
 
    count = 0
 
   Do While count <= Me.Nombre_de_ports.Value
 
Dim essai
Dim essai2
 
essai = "INSERT INTO [T_PORT.N°Switch] VALUES ('"
essai = essai & N°_Switch.Value & "')"
 
essai2 = "INSERT INTO [T_PORT.Port] VALUES ('"
essai2 = essai2 & count & "');"
 
 
    count = count + 1
    Loop
 
    End

**micniv** · 14/06/2007, 10h36

Il faut respecter la syntaxe d'INSERT .
Tu trouves de l'aide partout dans ce forum, Google ...

**totofe** · 14/06/2007, 10h56

la syntaxe correcte est :

Code SQL :

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

1
2
 
INSERT INTO [table] ( [champ], [champ], ...) VALUES( [valeur], [valeur], ...)

le nombres de champs et de valeurs doivent être identiques

**mat67000** · 19/06/2007, 16h38

Bonjour

Bon j'ai testé plusieurs choses mais j'ai toujours la meme erreur : Access me dit qu'un point virgule manque à la fin de mon instruction SQL, alors qu'il y est !! Je pense qu'il est possible que cela vienne du DoCmd.RunSQL et de sa syntaxe.
Si quelqu'un pouvait m'aider car j'ai beau cherché, je ne trouve pas ^^

Voici les deux codes testés :

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
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Dim Sw
Sw = Me.N°_Switch.Value
 
Dim cpte
 
    cpte = 1
 
   Do While cpte <= Me.Nombre_de_ports.Value
 
DoCmd.RunSQL "INSERT INTO T_PORT (Port) VALUES ('" & cpte & "') WHERE [N°Switch.Value] = & Sw & "";"
 
    cpte = cpte + 1
    Loop
 
 
    End
 
 
Exit_Commande26_Click:
    Exit Sub
 
Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
 
End Sub

et :

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
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Dim Sw
Sw = Me.N°_Switch.Value
MsgBox Sw
 
Dim cpte
 
    cpte = 1
 
   Do While cpte <= Me.Nombre_de_ports.Value
 
Dim StrSql As String
StrSql = "INSERT INTO T_PORT (Port) VALUES "
StrSql = StrSql & "('" & cpte & "') WHERE [N°Switch.Value] = "
StrSql = StrSql & Sw & ";"
DoCmd.RunSQL (StrSql)
 
    cpte = cpte + 1
    Loop
 
    End
 
Exit_Commande26_Click:
    Exit Sub
 
Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
 
End Sub

**totofe** · 19/06/2007, 17h01

dans le premier code il te manque un guillemet dans ton runsql

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
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Dim Sw
Sw = Me.N°_Switch.Value
 
Dim cpte
 
    cpte = 1
 
   Do While cpte <= Me.Nombre_de_ports.Value
 
DoCmd.RunSQL "INSERT INTO T_PORT (Port) VALUES ('" & cpte & "') WHERE [N°Switch.Value] =" & Sw & ";"
 
    cpte = cpte + 1
    Loop
 
 
    End
 
 
Exit_Commande26_Click:
    Exit Sub
 
Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
 
End Sub

et dans le deusieme quand tu effectue un runsql tu n'a pas besoin de parenthèse un peu comme quand tu fait un msgbox:

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
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Dim Sw
Sw = Me.N°_Switch.Value
MsgBox Sw
 
Dim cpte
 
    cpte = 1
 
   Do While cpte <= Me.Nombre_de_ports.Value
 
Dim StrSql As String
StrSql = "INSERT INTO T_PORT (Port) VALUES "
StrSql = StrSql & "('" & cpte & "') WHERE [N°Switch.Value] = "
StrSql = StrSql & Sw & ";"
DoCmd.RunSQL StrSql
 
    cpte = cpte + 1
    Loop
 
    End
 
Exit_Commande26_Click:
    Exit Sub
 
Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
 
End Sub

[/QUOTE]

j'esper que ca résoudra ton problème

**mat67000** · 26/06/2007, 10h42

Bonjour et merci de ta réponse

Malgré cette bonne volonté, j'ai toujours encore la meme erreur

Access me dit toujours qu'un point virgule manque à la fin de l'instruction SQL...

**totofe** · 26/06/2007, 10h53

peut tu montrer ton code?

**mat67000** · 26/06/2007, 11h21

Ba c'est le même que dans le post n°4 avec les rectifications que tu as préconisé

le voici :

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
 
 
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
 
Dim Sw
Sw = Me.N°_Switch.Value
 
Dim cpte
 
    cpte = 1
 
   Do While cpte <= Me.Nombre_de_ports.Value
 
Dim StrSql As String
StrSql = "INSERT INTO T_PORT (Port) VALUES "
StrSql = StrSql & "('" & cpte & "') WHERE [N°Switch.Value] = "
StrSql = StrSql & Sw & ";"
DoCmd.RunSQL StrSql
 
    cpte = cpte + 1
    Loop
 
    End
 
 
Exit_Commande26_Click:
    Exit Sub
 
Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
 
End Sub

**mat67000** · 26/06/2007, 11h22

Ou :

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
 
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
 
Dim Sw
Sw = Me.N°_Switch.Value
 
Dim cpte
 
    cpte = 1
 
   Do While cpte <= Me.Nombre_de_ports.Value
 
DoCmd.RunSQL "INSERT INTO T_PORT (Port) VALUES ('" & cpte & "') WHERE [N°Switch.Value] =" & Sw & ";"
 
    cpte = cpte + 1
    Loop
 
    End
 
Exit_Commande26_Click:
    Exit Sub
 
Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
 
End Sub

**totofe** · 26/06/2007, 11h34

ok
ton code ma l'air correcte.
l'erreur doit surment provnir de tes variables. qu'est ce que renvoi sw?

**mat67000** · 26/06/2007, 11h37

Il me renvoi bien le numéro du switch que je veux créer, à ce niveau là tout est bon ^^

la boucle en elle-même fonctionne aussi

**totofe** · 26/06/2007, 11h46

jpense pas que ca va résoudre ton problème. mais pk tu a mis des "end" apré tes "loop"???

**mat67000** · 26/06/2007, 11h48

Effectivement cela ne règle pas le problème et pour dire vrai, je sais plus pourquoi j'ai mis end

j'ai créer cette boucle y'a un mois au moins donc m'en souviens plus

**micniv** · 26/06/2007, 13h53

DoCmd.RunSQL "INSERT INTO T_PORT (Port) VALUES ('" & cpte & "') WHERE [N°Switch.Value] =" & Sw & ";"

si cpte est un entier il ne faut pas mettre de '

alors que si Sw est un String (??? tu devrais typer tes variables ...) il faut lui en mettre ...

Insertion de champ via une boucle

Access

Discussions similaires

Partager

Partager