J'ai un =E9tat =E9tiquette g=E9n=E9r=E9 =E0 partir d'une table.
Je souhaiterais s=E9lectionner les enregistrements =E0 =E9diter=20
=E0 partir d'une liste d=E9roulante multiple
pour l'instant je suis parti sur l'id=E9e suivante :
-a partir de ma liste d=E9roulante multiple
-selectionner les enregistrements
-ouvrir une table temporaire
-enregistrer dans cette table la s=E9lection
-relier ma table d'origine =E0 ma table temporaire
-editer les etiquettes (source =3Drequete sur table=20
d'origine et table temporaire)
Si dans l'=E9criture du code cette option ne pr=E9sente pas de=20
difficult=E9, je subodore qu'il y a certainement plus=20
simple...
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
Raymond [mvp]
Bonjour,
J'ai un état étiquette généré à partir d'une table. Je souhaiterais sélectionner les enregistrements à éditer à partir d'une liste déroulante multiple pour l'instant je suis parti sur l'idée suivante :
-a partir de ma liste déroulante multiple -selectionner les enregistrements -ouvrir une table temporaire -enregistrer dans cette table la sélection -relier ma table d'origine à ma table temporaire -editer les etiquettes (source =requete sur table d'origine et table temporaire)
Si dans l'écriture du code cette option ne présente pas de difficulté, je subodore qu'il y a certainement plus simple...
Me trompe je ...?
merci de l'aide
Bonjour Didier.
la solution la plus courte conisterait à avoir un champ oui/non dans ta table que tu places à non au chargement d'un formulaire en continu. tu coches tous les enregistrements désirés et tu cliques sur un bouton pour lancer ton état basé sur une requête dont la clause where ne prend que les valeurs à oui dans le champ.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.kynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA
Bonjour,
J'ai un état étiquette généré à partir d'une table.
Je souhaiterais sélectionner les enregistrements à éditer
à partir d'une liste déroulante multiple
pour l'instant je suis parti sur l'idée suivante :
-a partir de ma liste déroulante multiple
-selectionner les enregistrements
-ouvrir une table temporaire
-enregistrer dans cette table la sélection
-relier ma table d'origine à ma table temporaire
-editer les etiquettes (source =requete sur table
d'origine et table temporaire)
Si dans l'écriture du code cette option ne présente pas de
difficulté, je subodore qu'il y a certainement plus
simple...
Me trompe je ...?
merci de l'aide
Bonjour Didier.
la solution la plus courte conisterait à avoir un champ oui/non dans ta
table que tu places à non au chargement d'un formulaire en continu. tu
coches tous les enregistrements désirés et tu cliques sur un bouton pour
lancer ton état basé sur une requête dont la clause where ne prend que les
valeurs à oui dans le champ.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA
J'ai un état étiquette généré à partir d'une table. Je souhaiterais sélectionner les enregistrements à éditer à partir d'une liste déroulante multiple pour l'instant je suis parti sur l'idée suivante :
-a partir de ma liste déroulante multiple -selectionner les enregistrements -ouvrir une table temporaire -enregistrer dans cette table la sélection -relier ma table d'origine à ma table temporaire -editer les etiquettes (source =requete sur table d'origine et table temporaire)
Si dans l'écriture du code cette option ne présente pas de difficulté, je subodore qu'il y a certainement plus simple...
Me trompe je ...?
merci de l'aide
Bonjour Didier.
la solution la plus courte conisterait à avoir un champ oui/non dans ta table que tu places à non au chargement d'un formulaire en continu. tu coches tous les enregistrements désirés et tu cliques sur un bouton pour lancer ton état basé sur une requête dont la clause where ne prend que les valeurs à oui dans le champ.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.kynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA
Didier
Bonjour Raymond,
Après mures réflexions je n'ai pas suivi ton idée, mais approfondi la mienne, pourquoi ?:
-j'ai plusieurs tables qui travaillent en synchro -confidentialité des données à respecter -d'où l'obligation de mettre en relation différentes tables. -si ton idée était effectivement simple à mettre en oeuvre je ne souhaitais pas alourdir une table avec encore un champ supplémentaire (que j'étais obligé d'initialiser à chaque ouverture)
la procédure que j'ai retenu (pas simple à conceptualiser) à le mérite d'utiliser l'existant et de ne passer que par du code (donc théoriquement invisible pour l'utilisateur final...)
voici donc le fruit de ma réflexion: au départ j'ai un formulaire avec une zone modifiable multiple, il suffit de sélectionner les noms et ensuite valider par un bouton "Edition_Click()" pour que l'état étiquette "EtCarte3" affiche les etiquettes souhaitées
Private Sub Edition_Click() Dim VarI As Variant Dim Filtre As String Filtre = ""
If Me.SelMulti.ItemsSelected.Count = 0 Then MsgBox "pas de sélection !" Else For Each VarI In Me.SelMulti.ItemsSelected If Filtre <> "" Then Filtre = Filtre & " OR " Filtre = Filtre & "[FELE2.NomPrenom] ='" & Me.SelMulti.ItemData(VarI) & "'" Next VarI DoCmd.OpenReport "EtCarte3", acPreview, , Filtre End If End Sub
voila ma contribution, modeste... Cordialement, et en remerciant de l'attention dont tu as bien voulu apporter à mon problème...
Bonjour Raymond,
Après mures réflexions je n'ai pas suivi ton idée, mais
approfondi la mienne, pourquoi ?:
-j'ai plusieurs tables qui travaillent en synchro
-confidentialité des données à respecter
-d'où l'obligation de mettre en relation différentes
tables.
-si ton idée était effectivement simple à mettre en
oeuvre je ne souhaitais pas alourdir une table avec
encore un champ supplémentaire (que j'étais obligé
d'initialiser à chaque ouverture)
la procédure que j'ai retenu (pas simple à
conceptualiser) à le mérite d'utiliser l'existant et de
ne passer que par du code (donc théoriquement invisible
pour l'utilisateur final...)
voici donc le fruit de ma réflexion:
au départ j'ai un formulaire avec une zone modifiable
multiple, il suffit de sélectionner les noms et ensuite
valider par un bouton "Edition_Click()" pour que l'état
étiquette "EtCarte3" affiche les etiquettes souhaitées
Private Sub Edition_Click()
Dim VarI As Variant
Dim Filtre As String
Filtre = ""
If Me.SelMulti.ItemsSelected.Count = 0 Then
MsgBox "pas de sélection !"
Else
For Each VarI In Me.SelMulti.ItemsSelected
If Filtre <> "" Then Filtre = Filtre & " OR "
Filtre = Filtre & "[FELE2.NomPrenom] ='" &
Me.SelMulti.ItemData(VarI) & "'"
Next VarI
DoCmd.OpenReport "EtCarte3", acPreview, , Filtre
End If
End Sub
voila ma contribution, modeste...
Cordialement, et en remerciant de l'attention dont tu as
bien voulu apporter à mon problème...
Après mures réflexions je n'ai pas suivi ton idée, mais approfondi la mienne, pourquoi ?:
-j'ai plusieurs tables qui travaillent en synchro -confidentialité des données à respecter -d'où l'obligation de mettre en relation différentes tables. -si ton idée était effectivement simple à mettre en oeuvre je ne souhaitais pas alourdir une table avec encore un champ supplémentaire (que j'étais obligé d'initialiser à chaque ouverture)
la procédure que j'ai retenu (pas simple à conceptualiser) à le mérite d'utiliser l'existant et de ne passer que par du code (donc théoriquement invisible pour l'utilisateur final...)
voici donc le fruit de ma réflexion: au départ j'ai un formulaire avec une zone modifiable multiple, il suffit de sélectionner les noms et ensuite valider par un bouton "Edition_Click()" pour que l'état étiquette "EtCarte3" affiche les etiquettes souhaitées
Private Sub Edition_Click() Dim VarI As Variant Dim Filtre As String Filtre = ""
If Me.SelMulti.ItemsSelected.Count = 0 Then MsgBox "pas de sélection !" Else For Each VarI In Me.SelMulti.ItemsSelected If Filtre <> "" Then Filtre = Filtre & " OR " Filtre = Filtre & "[FELE2.NomPrenom] ='" & Me.SelMulti.ItemData(VarI) & "'" Next VarI DoCmd.OpenReport "EtCarte3", acPreview, , Filtre End If End Sub
voila ma contribution, modeste... Cordialement, et en remerciant de l'attention dont tu as bien voulu apporter à mon problème...
