Bonjour,

J'ai une fonction "générique", appelée à chaque demande d'ouverture de formulaire, qui cherche les droits pour cet utilisateur sur ce form (lecture et/ou Edition)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Shared Function AccesForm(ByVal fForm As Form, ByVal aForm As Form, ByVal user As Integer) As Integer

Select Case Accord
                Case 0
                    'MsgBox("Désolé, vous n'avez pas les autorisations pour ouvrir ce formulaire...")
                Case 1
                    'MsgBox("Vous pouvez ouvrir ce formulaire en mode lecture seulement...")

                    fForm.Show(aForm)
xxxxxxxx....
                Case 2
                    'MsgBox("Vous avez tous les droits!")
                    fForm.Show(aForm)
            End Select
Mon souci est en xxxxxx.... Je voudrais passer un paramètre au formulaire à ouvrir, de façon à le modifier pour le rendre non éditable. Le problème est que comme la fonction est générique, je ne peux pas accéder au contrôle ou au paramètre du dit formulaire...

A terme je vais avoir une (grosse) floppée de formulaire, je ne veux pas tout écrire en dur... et j'ai besoin que ce paramètre/contrôle soit persistant et affecté avant l'ouverture du form...

Vos idées sont les bienvenues!!

Merci d'avance,

JFB