Discussion :

[Frog74]

Rebonjour

J'ai un petit problème de syntaxe avec mon "Insert Into" , je pense avoir fait correctement cependant l'erreur persiste.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande0_Click()
Dim NbEvt As Integer
Dim NbMode As Integer
NbEvt = DCount("*", "Evenements", "[IDMachine]" = Me.ModifIDMachine.Value)
NbMode = 2 ^ (NbEvt)
For i = 1 To i = NbMode
DoCmd.RunSQL "INSERT INTO Modes ([NomMode],[IDMachine]) VALUES ("Mode",'" & Me.ModifIDMachine & "')"
Next
End Sub

Ereur de syntaxe visant mon Insert Into , aparament le probleme vien de "mode" dapres ce que j'ai compris , cependant je ne vois pas ou j'ai fais l'erreur , j'ai essayé de remplacer

Code :

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

'" & Me.ModifIDMachine & "'

par

Code :

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

"Me.ModifIDMachine.Value"

Mais ça ne change rien ...
avez vous une idée s'il vous plait?

[Frog74]

J'ai remplacé :

Code :

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

DoCmd.RunSQL "INSERT INTO Modes (NomMode,IDMachine) VALUES ("Mode",'" & Me.ModifIDMachine & "'))"

par

Code :

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

DoCmd.RunSQL "INSERT INTO Modes (NomMode,IDMachine) VALUES ("",'" & Me.ModifIDMachine & "'))"

Je n'ai plus d'erreur de syntaxe , cependant , aucun ajout n'est fait dans ma table : /

Je ne comprends pas.

[Jean-Philippe André]

Bonjour,
lorsque tu lances des requetes SQL depuis le VBA, les valeurs pour les champs texte doivent être entre apostrophes.

Code :

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

DoCmd.RunSQL "INSERT INTO Modes (NomMode,IDMachine) VALUES ('Mode','" & Me.ModifIDMachine & "')"

attention, il y avait une parenthese en trop, et si IDMAchine et un numérique, pas d'apostrophes dans la requete.

Code :

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

DoCmd.RunSQL "INSERT INTO Modes (NomMode,IDMachine) VALUES ('Mode'," & Me.ModifIDMachine & ")"

[Frog74]

J'ai tout remplacé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande0_Click()
    Dim NbEvt As Integer
    Dim NbMode As Integer
    NbEvt = DCount("*", "Evenements", "[IDMachine]" = Me.ModifIDMachine.Value)
    NbMode = 2 ^ (NbEvt)
    Me.txtTest.Value = NbMode
    Me.txtEvt.Value = NbEvt
    For i = 1 To i = NbMode
        DoCmd.RunSQL "INSERT INTO Modes (NomMode,IDMachine) VALUES ('Mode'," & Me.ModifIDMachine & ")"
    Next
End Sub

Seulement j'ai deux problèmes

Le premier c'est que lorsque je selectionne un ID machine dans ma liste déroulante ModifIDMachine , j'ai 0 evenement et donc 1 mode alors que pour la machine 1 je devrais avoir 2 evenements et donc 4 modes.(voir mes table ci-dessous)
Lorsque je ne met rien dans ma liste déroulante , j'ai tous les evenements de ma table evenements et donc 4 modes (car je n'ai que deux evenements ).
Je me suis dis que j'avais fais une mauvaise selection avec ma liste , mais non elle pointe bien sur les IDMachine de ma table Evenements.

La deuxième c'est que je n'arrive toujours pas à écrire dans ma table Modes avec moin insert into , rien ne se passe lorsque je click sur mon bouton , voila mes tables.

Code :

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

1
2
3
IDEvenement	NomEvenement	IDMachine
1	EtatBroche	1
2	EtatManuel	1

Code :

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

IDMode	NomMode	   IDMachine

VIDE

Je me suis dis que peut être insert into nécéssite de nommer tous les champs et que je n'ai pas mis IDMode dans la commande ( il est en numéro auto).

[Frog74]

Est-ce impossible ? devrais je essayer via un recordset?

[Dennis Nedry]

j'avoue rencontrer le même problême. j'ai même ajouté une msgbox qui m'affiche un message de type "insertion effectuée" en fin de commande. il affiche bien la msgbox, mais ne fait rien au niveau des tables...

[Frog74]

Après quelques tests , il semblerai que toute instruction modifiant une table dans une boucle for ne soie pas possible avec ma manière de faire.
Je suis passé via un record set et il ne m'ajoute d'evenement que si le .AddNew est en dehors du For. De plus j'ai un problème de conversion de données entre ma liste déroulante et ma valeur de champ IDMachine.

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
Private Sub Commande0_Click()
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
    Dim NbEvt As Integer
    Dim NbMode As Integer
    NbEvt = DCount("*", "Evenements", "[IDMachine]" = Me.ModifIDMachine.Value)
    NbMode = 2 ^ (NbEvt)
    Me.txtTest.Value = NbMode
    Me.txtEvt.Value = NbEvt
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("Modes", dbOpenTable)
    oRst.AddNew
    oRst.Fields("NomMode").Value = "Mode"
    oRst.Fields("IDMachine").Value = "& Me.ModifIDMachine.Value &"
    oRst.Update
    For i = 1 To i = NbMode
 
        'DoCmd.RunSQL "INSERT TO Modes (NomMode,IDMachine) VALUES ('Mode'," & Me.ModifIDMachine & ")"
    Next
 
 
    oRst.Close
    oDb.Close
    Set oRst = Nothing
    Set oDb = Nothing
 
End Sub

Bloque à : oRst.Fields("IDMachine").Value = "& Me.ModifIDMachine.Value &"
probléme de conversion de données

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
Private Sub Commande0_Click()
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
    Dim NbEvt As Integer
    Dim NbMode As Integer
    NbEvt = DCount("*", "Evenements", "[IDMachine]" = Me.ModifIDMachine.Value)
    NbMode = 2 ^ (NbEvt)
    Me.txtTest.Value = NbMode
    Me.txtEvt.Value = NbEvt
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("Modes", dbOpenTable)
 
    For i = 1 To i = NbMode
    oRst.AddNew
    oRst.Fields("NomMode").Value = "Mode"
    oRst.Fields("IDMachine").Value = "& Me.ModifIDMachine.Value &"
    oRst.Update
        'DoCmd.RunSQL "INSERT TO Modes (NomMode,IDMachine) VALUES ('Mode'," & Me.ModifIDMachine & ")"
    Next
 
 
    oRst.Close
    oDb.Close
    Set oRst = Nothing
    Set oDb = Nothing
 
End Sub

N'ajoute rien dutout