Récupérer valeurs liste choix multiple dans une requête

**kimai** · 01/02/2013, 10h51

Bonjour à tous,
Je suis une éternelle débutante sur Access à mesure que mes besoins évoluent...

J'ai une liste de dates (List1) avec sélection multiples.
Je suis susceptible de sélectionner une ou plusieurs dates en fonction des besoins.

Ce que j'aimerais faire:
- pouvoir (en cliquant sur le bouton "Command101"), récupérer les dates sélectionnées dans une variable (j'ai à peu près réussi à le faire)
- utiliser les dates sélectionnées comme critère dans une requête suppression (Q_Suppression)

Ci-dessous vous trouverez les quelques lignes que j'ai écris pour récupérer les dates sélectionnées mais je ne suis pas certaine que ça marche réellement

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command101_Click()
Dim i As Variant
Dim Suite As String, x As String, y As String
 
For Each i In List1.ItemsSelected
Suite = Suite + "#" + List1.ItemData(i) + "#" + " or "
Next
x = Suite
y = Left(Suite, Len(Suite) - 4)
End Sub

Si une bonne âme avait une solution?
Je suis preneuse

Bien à vous
Julie

**zoom61** · 01/02/2013, 11h08

Salut,

Avec quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim VarI as Variant
Dim monFiltre as string
monFiltre = ""
If me.maliste.selected.count>0 then
	For Each VarI in Me.maliste.itemsselected
		Si le champ est Numerique
		Monfiltre=Monfiltre & "CHAMP = #" & format(Me.maliste.column(0,VarI), "MM/DD/YY") & "#" & " or "
	Next VarI
	Monfiltre=left(monfiltre,len(monfiltre)-4))
	Currentdb.querydefs("larequete").sql="Select .... from .... where " & Monfiltre & ";")
end if

@+.

**kimai** · 01/02/2013, 14h57

Bonjour
Et merci pour cette réponse rapide
Malheureusement ca ne fonctionne pas
j'ai notamment à la fin des messages d'erreur disant "Compile error Expected: end of statement"

**zoom61** · 01/02/2013, 15h13

Sais-tu sur quelle commande cela bloque (utilise le pas à pas pour l'exécution du code) ?

**kimai** · 01/02/2013, 16h45

Oui ce sont les deux dernières lignes

Code :

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

1
2
Monfiltre=left(monfiltre,len(monfiltre)-4))
	Currentdb.querydefs("larequete").sql="Select .... from .... where " & Monfiltre & ";")

**zoom61** · 01/02/2013, 17h38

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim VarI as Variant
Dim monFiltre as string
monFiltre = ""
If me.maliste.selected.count>0 then
	For Each VarI in Me.maliste.itemsselected
		Si le champ est Numerique
		Monfiltre=Monfiltre & "CHAMP = #" & format(Me.maliste.column(0,VarI), "MM/DD/YY") & "# or "
	Next VarI
	Monfiltre=left(monfiltre,len(monfiltre)-4)
	Currentdb.querydefs("larequete").sql="Select .... from .... where " & Monfiltre & ";"
end if

Il y avait des parenthèses en trop...

**kimai** · 05/02/2013, 15h47

Bonjour
alors la variable "MonFiltre" a le bon format, en revanche la commande

Code :

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

Currentdb.querydefs("larequete").sql="Select .... from .... where " & Monfiltre & ";"

Ne produit aucun effet
Voici ce que j'ai mis pour coller avec mon exemple:

Code :

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

CurrentDb.QueryDefs("Q_Efface_DataPrincipale").SQL = "DELETE T_DataPrincipale.*, T_DataPrincipale.Version From T_DataPrincipale WHERE (T_DataPrincipale.Version)= MonFiltre;"

Le code ne renvoie aucune erreur mais il n'y a aucun résultat observé

Une idée?

**zoom61** · 05/02/2013, 15h58

Elle devrait plutôt être :

Code :

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

CurrentDb.QueryDefs("Q_Efface_DataPrincipale").SQL = "DELETE T_DataPrincipale.* From T_DataPrincipale WHERE (T_DataPrincipale.Version)= '" & MonFiltre & "';"

**kimai** · 05/02/2013, 17h08

Remplacé.
j'ai mis une msgbox pour bien vérifié que le code va jusqu'au bout et c'est le cas.
En revanche rien n'a été effacé, la requête suppression ne marche pas.

**zoom61** · 05/02/2013, 19h00

Rien n'est effacé dans ton formulaire ou dans la table...

**kimai** · 06/02/2013, 10h04

Ni dans le formulaire (normal rien dans le code prévu pour) ni dans la table et c'est là où ça coince...
Ne peut-on pas executer du code SQL sans faire référence à une requête?

**zoom61** · 06/02/2013, 10h09

La première ligne modifie ta requête, ensuite il faut l'exécuter :

Code :

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

1
2
CurrentDb.QueryDefs("Q_Efface_DataPrincipale").SQL = "DELETE T_DataPrincipale.* From T_DataPrincipale WHERE (T_DataPrincipale.Version)= '" & MonFiltre & "';"
Docmd.OpenQuery "Q_Efface_DataPrincipale"

@+.