Discussion :

[Superpat9999]

Bonjour, je n'arrive pas à passer ma variable dans :
Forms![strFormulaireActif].AllowEdits = True
Le formulaire s'appelle : F_Essai_3
et je veux que la la variable soit valable dans plusieurs formulaire avec le même code
Merci d'avance pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
   Dim strFormulaireActif As String
        strFormulaireActif = CodeContextObject.Name
        MsgBox "Form load : " & strFormulaireActif
End Sub
Private Sub BtnCreer_Click()
' Le nom du formulaire est  F_Essai_3, la ligne suivante est valide
        'Forms![F_Essai_3].AllowEdits = True
           MsgBox strFormulaireActif
'La ligne suivante ne fonctionne pas
        Forms![strFormulaireActif].AllowEdits = True
        '...
 End Sub

[tee_grandbois]

bonsoir,

je veux que la la variable soit valable dans plusieurs formulaire avec le même code

quel est le nom de la variable ?
dans quel but veux-tu l'utiliser ?

[Superpat9999]

La variable s'appelle strFormulaireActif, elle donne le nom du formulaire actif.
Je souhaite faite un code qui fonctionne sur divers formulaire en ne changeant les paramètres que dans la déclaration.
Ici dans form_load je récupère le nom du formulaire et dans le module créer, je l'insère.

[tee_grandbois]

j'aimerai connaitre ta définition de "Formulaire actif", car je ne comprend toujours pas l'intérêt de cette variable ...

[Superpat9999]

Lorsque j'appelle un formulaire avec un autre formulaire, je veux pouvoir savoir où je suis.
Mais ma question, concerne ces 2 lignes :

Code :

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

1
2
        Forms![F_Essai_3].AllowEdits = True
        Forms![strFormulaireActif].AllowEdits = True

La première ligne fonctionne car j'ai mis le nom du formulaire, la seconde ne fonctionne pas car j'ai mis la variable, je ne sais sans doute pas bien passer ma variable.

[tee_grandbois]

Lorsque j'appelle un formulaire avec un autre formulaire, je veux pouvoir savoir où je suis.

le nom du formulaire actif est donné avec cette méthode: Screen.ActiveForm.Name donc inutile de créer une variable, sauf si c'est pour mémoriser le formulaire appelant. Dans ce cas il faut créer une variable globale dans un module standard et pas dans un module de classe (comme un formulaire)

[Superpat9999]

En changeant la ligne j'ai :

Code :

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

        Forms![Screen.ActiveForm.Name].AllowEdits = True

et le résultat :
microsoft access ne trouve pas le formulaire "Screen.ActiveForm.Name" auquel il est fait référence.