Un seul formulaire ouvert plusieurs fois

**BMABMA** · 16/08/2006, 19h34

est ce qu'il y a une possibiliter d'ouvrir le meme formulaire plusieurs fois au meme temps ?

**User** · 16/08/2006, 19h52

Slt,

Oui il me semble:

Par exemple dans un module de formulaire ou 1 module indépendant tu déclares:

Public frm1 As Form
Public frm2 As Form

et après sur click d'un bouton Afficherforms dans un form tu fais:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Afficherforms_Click()
 
Set frm1 = New Form_Form1
Set frm2 = New Form_Form1
 
frm1.Visible = True
frm2.Visible = True
 
End Sub

qui t'affiche 2 instances du form1..

@+

**LedZeppII** · 16/08/2006, 20h34

Bonjour,

Bien vu User.

on peut aussi déclarer une collection si on ne connait le nombre de forms à l'avance (cf ce tuto.)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim fmCollec As New Collection
 
Private Sub AfficherForm_Click()
Dim f As Form
 
  Set f = New Form_MonFormulaire
  f.Visible = True
  fmCollec.Add f
End Sub
 
Private Sub Form_Close()
' Vide la collection
While fmCollec.Count > 0
  fmCollec.Remove 1
Wend
End Sub

a+

**pgz** · 16/08/2006, 21h12

Re,

J'ai fait l'essai et ça marche très bien. Merci User

pgz

**BMABMA** · 16/08/2006, 21h16

c pas ca que je cherche mais je veu que lorsque à partir d'une condition ca nécessite l'ouverture du formulaire et que ce formulaire est déja ouvert ca s'ouvre mais le premier ne se ferme pas alors on peu l'utiliser plusieurs fois

**User** · 16/08/2006, 21h48

Merci Pgz et LetZepII,

mais apparemment c'est pas ce que veut BMABMA,

@ BMABMA,

J'avoue ne pas comprendre ce que tu veux ..

Tu parle de condition lors de l'ouverture de ton form ..

Dans ce cas tu peux faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim frm1 As form
Dim frm2 As form
 
Private Sub Afficherforms_Click()
 
Set frm1 = New Form_Form1
Set frm2 = New Form_Form1
 
frm1.Visible = True
frm2.Visible = True
 
frm1.Filter = Condition1
frm1.FilterOn = True
 
frm2.Filter = Condition2
frm2.FilterOn = True
 
' ou
' frm1.RecordsetClone.FindFirst Condition1
' frm1.Bookmark = frm1.RecordsetClone.Bookmark
'..
 
End Sub

C'est juste un truc comme ca mais franchement c'est pas clair..

@+

**pgz** · 17/08/2006, 00h42

ce formulaire est déja ouvert ca s'ouvre mais le premier ne se ferme pas alors on peu l'utiliser plusieurs fois

Ce que propose User permet tout à fait de faire ça.

J'ai fait l'essai en ouvrant le même formulaire et deux RecordSource différents. Les deux étaitent ouverts et affichaient chacun sa source.

Encore une fois, bravo Denis et merci.

pgz