Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
Merci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
Merci de ton aide trés précieuse.
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
Merci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?
Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?
Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Fabien,
Serait'il possible de m'envoyer sur cijoint un fichier simple en exemple ?
Un formulaire avec une liste et le sous formulaire à côté dans un formulaire
principal.
Si tu as un exemple sous la main seulement.
Merci.Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Fabien,
Serait'il possible de m'envoyer sur cijoint un fichier simple en exemple ?
Un formulaire avec une liste et le sous formulaire à côté dans un formulaire
principal.
Si tu as un exemple sous la main seulement.
Merci.
Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?
Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+
Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSql
Merci de ton aide trés précieuse.
Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà
Fabien,
Serait'il possible de m'envoyer sur cijoint un fichier simple en exemple ?
Un formulaire avec une liste et le sous formulaire à côté dans un formulaire
principal.
Si tu as un exemple sous la main seulement.
Merci.Le champ code est de l'alpha ou du numérique ?
Si c'est de l'apha y a t il des ' ou des " dans le champ code ?
Si c'est du Numérique alors remplace
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
par
StrIn = StrIn & Liste0.Column(0,I) & ","
Pour controle lors du plantage, dans la fenetre d'execution peu tu
demander un debug.print StrSql et me donner le contenu du strsql ?Fabien,
Voici une image aprés le clique dans la liste :
http://www.cijoint.fr/cij114676606159.bmp
Tu verra mieux ce qui se passe.
@+Cette ligne se met en rouge et j'ai une boîte qui me dit "attendu fin
instruction"
aprés Next I
StrSQl = "Select * from [Table] where [mon code] in (
" & Left(StrIn,Len(StrIn)-1)) & ") ;"
^ ^les blancs avant et aprés les & sont obligatoires
CurrentDb.Querydefs("memoire").sql = StrSqlMerci de ton aide trés précieuse.Bonjour,
N'ayant pas de réponse dans mon post précédent je reformule ma question
autrement.
Dans ma requête (sous formulaire) pour lire les éléments sélectionnés dans
la liste, peut-on écrire quelque chose comme :
=[LaListe].[ItemsSelected].[MonChamp] dans la zone critére pour extraire les
infos liées ?
Ou dans une zone filtre ?
Le but et d'extaire les enregistrements correspondants.
Merci.
Bonjour,
Je ne crois pas que celà soit possible.
Il va falloir passer par du code VB.
Si ta liste s'appel liste0
Private sub Liste0_afterupdate()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
If Liste0.selected(I) then
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
End if
Next I
StrSQl = "Select * from [Table] where [MonChamp] in ( "&
Left(StrIn,Len(StrIn)-1)) & ") ;"
CurrentDb.Querydefs("La requete source de ton sous formulaire").sql =
StrSQl
Me.SousFormulaire.Requery
End sub
Voilà