Discussion :

[Miss Ti]

Bonjours chers adeptes du remue-méninge,
(on est bien ça pour faire du développement info, non?)

Petite question à deux balles: est-il possible d'ouvrir deux fois le même formulaire ?
Si je pose la question (que certains trouveront saugrenue), c'est parce que dans un formulaire que j'ai créé, j'ai les détails de dossiers (donc toutes les infos le concernant) et une zone de liste qui me liste les autres dossiers qui demandent un des objets demandés dans le dossier en cours. (moi parler français?)
Je voudrais que l'utilisateur puisse accéder au détail de ces dossiers listés par double clic dans la liste.

La commande suivante n'ouvre pas une nouvelle fenêtre mais réactualise celle en cours en filtrant les données:

Code :

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

DoCmd.OpenForm "F_dossier", acNormal, , "id_dossier = " & Me.lstParcellesAutresDossiers.Column(1)

Y a-t-il un moyen d'ouvrir un formulaire une deuxième fois (juste pour visu des infos, pas pour modif)?

[Tierisa]

copie ton formulaire et colle le en lui donnant un autre nom et dont la source sera ta zone de liste, ce dernier sera ensuité appelé par le double clic: ainsi tu pourras ouvrir 2 formulaires qui ont le meme aspect mais pas la meme source (car ce que tu veux faire n'est pas possible)

[DMboup]

Cherche dans la FAQ.Je crois que la réponse s'y trouve.

[LedZeppII]

Bonsoir,

il y a un tutoriel la dessus : La multiplication du formulaire Access
Le principe est de créer un formulaire en créant un nouvle objet Form de la classe du formulaire.

A+

[Miss Ti]

En fait, j'ai opté pour une autre solution.
Une fois les infos d'un dossier affichées, le formulaire est filtré.
Il suffit de faire un bouton Réinitialiser le formulaire et de mettre sa propriété FilterOn = False.

Pour que le focus revienne automatiquement sur le dossier affiché avant le filtrage, j'ai posé une variable globale DossierAvantFiltrage où j'avais enregistré le num. identifiant du dossier au moment du filtrage.
Ce qui donne finalement:

Code :

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

1
2
3
4
5
6
7
8
    chCritère = "id_dossier = " & DossierAvantFiltrage
    Me.FilterOn = False
    Me.Recordset.FindFirst chCritère
 
    If Not Me.Recordset.NoMatch Then
        Me.Bookmark = Me.Recordset.Bookmark
    End If
    Set rst_dossier = Nothing

Voilà voilà.
C'était ma ruse de sioux du jour.