Discussion :

[niano]

Bonjour tout le monde,

Je vous présente ma BDD:

Code :

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

1
2
3
 
"TableTest"
idAdo     |    test       |    test2

avec les champs "test" et "test2" booleéns et le champ "idAdo" de type nombre incrémentiel.

J'ai un formulaire avec une listbox "lstPublic" alimentée par une table:

Code :

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

1
2
3
4
5
 
"TableListe"
Liste
test
test2

avec le champ "Liste" de type texte contenant les entrées "test" et "test2".

Lorsque je clique sur un élément de la listbox (qui contient donc "test" et "test2"), je lance ce code:

Code :

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

1
2
3
4
5
6
 
For i = 0 To Me.lstPublic.ListCount - 1
    If Me.lstPublic.Selected(i) Then
        CurrentDb.Execute ("INSERT INTO TableTest (""" & Me.lstPublic.ItemData(i) & """) VALUES (TRUE)")
    End If
Next

En fonction de l'élément de la listbox sur lequel je clique, une entrée apparait dans ma TableTest avec sous un champ la valeur "VRAI" (une case cochée en réalité): jusque là, pas de soucis particulier...

Par contre, si je veux ajouter une clause "WHERE" dans ma requête, cela ne fonctionne plus.

Code :

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

1
2
3
4
5
6
 
For i = 0 To Me.lstPublic.ListCount - 1
    If Me.lstPublic.Selected(i) Then
        CurrentDb.Execute ("INSERT INTO TableTest (""" & Me.lstPublic.ItemData(i) & """) VALUES (TRUE) WHERE idAdo = " & Me.id.Value & " ")
    End If
Next

Je voudrais qu'un champ de TableTest (soit "test" soit "test2") se mette en "VRAI" à l'endroit ou mon "idAdo" est égal à la valeur du champ "id" de mon formulaire.

L'erreur est la suivante:
Point-Virgule absent à la fin de la requête SQL

Mais même si je rajoute ce point-virgule, l'erreur persiste...

Quelqu'un aurait il une idée ?
J'espère avoir été assez clair sur mon problème et avoir donné assez de détails.
Merci d'avance à tout ceux qui se pencheront sur mon problème.

[mout1234]

Bonsoir,


Le WHERE n'a pas de sens avec un VALUES

Code :

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

Je voudrais qu'un champ de TableTest (soit "test" soit "test2") se mette en "VRAI" à l'endroit ou mon "idAdo" est égal à la valeur du champ "id" de mon formulaire.

Est-ce bien un INSERT que tu veux faire? Si je comprends ce que tu veux dire, cela ressemble plutôt à un update...
quelque chose du genre (non testé):

Code :

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

"UPDATE TableTest SET " & Me.lstPublic.ItemData(i) & " = TRUE WHERE idado= " & Me.id

A moins qu'il ne s'agisse effectivement d'un ajout avec 2 valeurs à renseigner...

quelque chose du genre (non testé):

Code :

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

1
2
 
"INSERT INTO TableTest (" & Me.lstPublic.ItemData(i) & ",idado) VALUES (TRUE," & Me.ID & ")"

Bon courage

[niano]

Effectivement, je me suis complètement trompé: ce n'est pas in "INSERT INTO" mais bien un "UPDATE" que je dois utiliser.

Lorsque j'ouvre mon formulaire, une entrée se crée automatiquement dans ma table "TableTest" donc une valeur pour "idAdo" y est automatiquement insérée.

Je voudrais donc mettre à "TRUE" une colonne ("test" ou "test2").

J'ai donc utilisé ceci comme tu me l'as proposé:

Code :

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

CurrentDb.Execute ("UPDATE TableTest SET " & Me.lstPublic.ItemData(i) & " = TRUE WHERE idAdo = " & Me.id & " ")

mais j'ai une erreur:
"Trop peu de paramètres. 1 attendu."

J'ai modifié des petites choses dans la requête comme le nombre de guillement, "me.id" changé en "me.id.value" mais j'ai toujours cette erreur...

merci pour ton début de réponse

EDIT: je viens de vérifeir mes requêtes et cela fonctionne maintenant (je me suis trompé dans le nom d'un champ)

Cette requête fonctionne parfaitement:

Code :

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

1
2
CurrentDb.Execute ("UPDATE TableTest SET " & Me.lstPublic.ItemData
(i) & " = TRUE WHERE idAdo = " & Me.id & " ")

Merci pour l'aide

[mout1234]

Bonjour,

Pas le temps maintenant d'étudier en détail... mets un point d'arrêt sur cette ligne et regarde dans la fenêtre d'exécution ce que donne l'expression

Code :

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

1
2
 
"UPDATE TableTest SET " & Me.lstPublic.ItemData(i) & " = TRUE WHERE idAdo = " & Me.id & " "