après que l'usager est sélectionner 1 ou plusieurs items dans une liste, je
construit une requete et je l'exécute
Private Sub cmdRecherche_Click()
Dim strIN As String
For Each Item In Me.lstTransit.ItemsSelected
strIN = strIN & "'" &
Me.lstTransit.ItemData(Item) & "',"
Next
strWhere = " where transit in (" & Left(strIN,
Len(strIN) - 1) & ")"
lblDGA.Caption = strWhere
Dim strQuery As String
strQuery = "select * from test3 " + strWhere
Set qd = CurrentDb.Querydefs("qry1")
qd.SQL = strQuery
qd.Close
DoCmd.OpenQuery "qry1"
End Sub
lorsque je fais exécuter la requete j'obtient
error 3265
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Ne serait-ce pas : Dim strQuery As String, qd as QueryDef strQuery = "select * from test3 " + strWhere ' il faut créer la requête car elle n'existe pas encore Set qd = CurrentDb.CreateQuerydef("qry1",strQuery ) set qd=Nothing DoCmd.OpenQuery "qry1" et enfin CurrentDb.Querydefs.Delete "qry1" quand plus nécessaire pour pouvoir la recréer ultérieurement.
salut
après que l'usager est sélectionner 1 ou plusieurs items dans une liste, je construit une requete et je l'exécute
Private Sub cmdRecherche_Click() Dim strIN As String For Each Item In Me.lstTransit.ItemsSelected strIN = strIN & "'" & Me.lstTransit.ItemData(Item) & "'," Next strWhere = " where transit in (" & Left(strIN, Len(strIN) - 1) & ")" lblDGA.Caption = strWhere
Dim strQuery As String
strQuery = "select * from test3 " + strWhere Set qd = CurrentDb.Querydefs("qry1") qd.SQL = strQuery qd.Close DoCmd.OpenQuery "qry1" End Sub
lorsque je fais exécuter la requete j'obtient error 3265
élément non trouvé dans la collection
pourtant j'ai bien une table test 3 qui existe...
une idée?
merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Ne serait-ce pas :
Dim strQuery As String, qd as QueryDef
strQuery = "select * from test3 " + strWhere
' il faut créer la requête car elle n'existe pas encore
Set qd = CurrentDb.CreateQuerydef("qry1",strQuery )
set qd=Nothing
DoCmd.OpenQuery "qry1"
et enfin
CurrentDb.Querydefs.Delete "qry1" quand plus nécessaire pour pouvoir la
recréer ultérieurement.
salut
après que l'usager est sélectionner 1 ou plusieurs items dans une liste, je
construit une requete et je l'exécute
Private Sub cmdRecherche_Click()
Dim strIN As String
For Each Item In Me.lstTransit.ItemsSelected
strIN = strIN & "'" &
Me.lstTransit.ItemData(Item) & "',"
Next
strWhere = " where transit in (" & Left(strIN,
Len(strIN) - 1) & ")"
lblDGA.Caption = strWhere
Dim strQuery As String
strQuery = "select * from test3 " + strWhere
Set qd = CurrentDb.Querydefs("qry1")
qd.SQL = strQuery
qd.Close
DoCmd.OpenQuery "qry1"
End Sub
lorsque je fais exécuter la requete j'obtient
error 3265
élément non trouvé dans la collection
pourtant j'ai bien une table test 3 qui existe...
une idée?
merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Ne serait-ce pas : Dim strQuery As String, qd as QueryDef strQuery = "select * from test3 " + strWhere ' il faut créer la requête car elle n'existe pas encore Set qd = CurrentDb.CreateQuerydef("qry1",strQuery ) set qd=Nothing DoCmd.OpenQuery "qry1" et enfin CurrentDb.Querydefs.Delete "qry1" quand plus nécessaire pour pouvoir la recréer ultérieurement.
salut
après que l'usager est sélectionner 1 ou plusieurs items dans une liste, je construit une requete et je l'exécute
Private Sub cmdRecherche_Click() Dim strIN As String For Each Item In Me.lstTransit.ItemsSelected strIN = strIN & "'" & Me.lstTransit.ItemData(Item) & "'," Next strWhere = " where transit in (" & Left(strIN, Len(strIN) - 1) & ")" lblDGA.Caption = strWhere
Dim strQuery As String
strQuery = "select * from test3 " + strWhere Set qd = CurrentDb.Querydefs("qry1") qd.SQL = strQuery qd.Close DoCmd.OpenQuery "qry1" End Sub
lorsque je fais exécuter la requete j'obtient error 3265
élément non trouvé dans la collection
pourtant j'ai bien une table test 3 qui existe...
une idée?
merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
