Discussion :

[ARO]

Bonjour,

J'ouvre plusieurs instances d'un même Formulaire avec le code suivant :

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
 
' ---
' AJOUT D'UN FORMULAIRE A LA COLLECTION
' ---
'
 Function NouveauFormDevis(lngDevis As Long)
 
  Dim frm As Access.Form
 
  ' Création du nouveau formulaire
  Set frm = New Form_frmDevis
 
  frm.Filter = "[IdDevis]=" & lngDevis
  frm.FilterOn = True
 
  ' Activation du nouveau formulaire
  frm.SetFocus
 
  ' Ajout du formulaire à la collection globale
  colForms.Add frm, Str(frm.Hwnd)
End Function

Mon problème est que je fais tests en fonction de IdDevis au chargement du formulaire (OnLoad), mais ceci sont effectués avant l'exécution du filtre (frm.FilterOn).

Quel est le moyen d'effectuer ces tests après l'application du filtre ?

Merci.

[LedZeppII]

Bonjour,

Tu pourrai mettre tes tests dans une procédure publique du formulaire.
Au niveau du formulaire (procédure publique SpecifiqueIdDevis):

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
    ' ... choses à faire dans tous les cas ...
End Sub
 
Public Sub SpecifiqueIdDevis()
    ' ... à faire quand filtré sur IdDevis
End Sub

Dans ton code (appel de la procédure publique SpecifiqueIdDevis, après application filtre):

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
' ---
' AJOUT D'UN FORMULAIRE A LA COLLECTION
' ---
'
 Function NouveauFormDevis(lngDevis As Long)
 
  Dim frm As Access.Form
 
  ' Création du nouveau formulaire
  Set frm = New Form_frmDevis
 
  frm.Filter = "[IdDevis]=" & lngDevis
  frm.FilterOn = True
 
  ' Tests spécifiques à IdDevis
  frm.SpecifiqueIdDevis
 
  ' Activation du nouveau formulaire
  frm.SetFocus
 
  ' Ajout du formulaire à la collection globale
  colForms.Add frm, Str(frm.Hwnd)
End Function

Alternative à ce que je viens de proposer: Utiliser l'événement "Sur Activation" qui se déclenche à chaque changement d'enregistrement actif.

A+

[ARO]

Bonjour,

Merci

Bonne journée