Bonjour,
J'ouvre plusieurs instances d'un même Formulaire avec le code suivant :
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).
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
Quel est le moyen d'effectuer ces tests après l'application du filtre ?
Merci.
Partager