Discussion :

[JulienTough]

Bonjour

A l'aide d'une requête j'ai créé une liste qui représentent les différents éléments constitutifs d'un objet. j'aimerai que lorsqu'on clique sur un bouton_commande cela affiche l'état relatif à chaque élément; pour cela j'avais imaginer une boucle qui s'exécute autant de fois qu'il y a d'éléments et qui ouvre à chaque fois l'état après avoir sélectionné dans la liste le cod de l'élément utilisé pour afficher l'état correspondant. Cependant je n'arrive pas à trouver comment on sélectionne le code. Est-ce possible et si oui comment ? Si non y a-t-il une autre solution pour faire ce que je veux ?

une autre question (pour la culture) : peut-on facilement modifier la durée de vie d'une variable ? et pas la recréer à chaque procédure si on l'a créée dans form_load ?

Merci

[J_Yohan]

pour ce qui est de la duree de vie dune variable si tu veut quelle soit declare dans tes autres modules il te suffit de la declarer comme global ou public a la racine meme d'un module

[JulienTough]

bonjour

j'ai réussi à sélectionner le code de la liste grace à ItemData et à ouvrir l'état correspondant. Mais j'arrive pas à les ouvrir tous, j'ai l'ipmpression qu'access ne peut ouvrir qu'une seule fois un même état même si les données sont différentes. Vu que le but de cette opération n'est que de visualiser les fiches avant de les imprimer y a-t-il possibilité d'insére une instruction pause qui demanderait à l'utilisateur d'appuyer sur une touche avant de fermer l'état et d'ouvrir le suivant. Est-ce possible ou y a-t-il une meilleure solution ?

merci

[mout1234]

Bonjour,

dans une vielle appli (Access 2), je faisais comme ceci:

EDIT: j'ai transcris rapidement le code en VBA Access 97 ou ultérieur (non testé)

Code VBA :

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

1
2
3
4
5
 
Function ap_IsLoaded (byval vntObjectName as Variant, byval intObjectType as integer) As Integer
    On Error Resume Next
    ap_IsLoaded= (SysCmd(acSysCmdGetObjectState, intObjectType, vntObjectName) <> 0)
End Function

Et je l'utilise comme ceci:

Code VBA :

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

1
2
3
4
5
6
7
8
9
 
    DoCmd.OpenReport sReportName, acPreview
    DoCmd.Maximize
    Do
        DoEvents
    Loop While ap_IsLoaded(sReportName, acReport)
    DoCmd.Restore
 
    DoEvents

Sinon, tu peux peut être revoir ton problème en revoyant ton état de sorte qu'il imprime autant de pages que d'éléments dans ta liste (en revoyant la source de ton état et en jouant sur les regroupement dans l'état).

Bon courage

[JulienTough]

bonjour

merci pour ton code qui marche bien puisqu'il ouvre et ferme les états les uns après les autres. ceci dit j'aimerai bien avoir la possibilité de lire les états avant qu'ils ne se ferment y aurait-il la possibilité de mettre le processus en pause le temps de visualiser.
pour ce qui est de l'autre méthode je n'y tiens pas trop car j'ai besoin de mes états ailleurs et en un seul exemplaire.

merci

[mout1234]

Bonsoir,

Normalement ça marche... J'utilise ce code dans une appli et la boucle tourne tant que l'aperçu est ouvert...
Peut être non compatible avec une version d'Access plus récente...

Si je trouve le temps je regarderai à nouveau ...

EDIT: je viens de retester le code dans sous Access 2007... ça marche!