Discussion :

[patbeautifulday1]

Bonjour

J'ai développé une appli avec pas mal de VBA dans chaque formulaire. J'aimerais maintenant passer au stade du regroupement de fonctions génériques dans un module, pour pouvoir les appeler par un simple call dans mes formulaires. un exemple ; pour fermer mes formulaires et les chaîner entre eux, j'ai une procédure évènementielle déclenchée par un bouton "fermer", qui agit différemment en focntion de l'openargs du formulaire :

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
24
25
 
Private Sub fermer_Click()
'Call fermer(Me.OpenArgs)
    Dim var1 As String
    Dim var2, var3 As Integer
    Dim tableau() As String
    If IsNull(Me.OpenArgs) = False Then
    MsgBox Me.OpenArgs
    tableau = Split(Me.OpenArgs, ";")
    var1 = tableau(0)
    var2 = Val(tableau(1))
    var3 = Val(tableau(2))
        If IsNull(var2) = False Then
        DoCmd.OpenForm var1, , , "id = " & var2
            If IsNull(var3) = False Then
                Forms(var1)!onglet.Value = var3
            End If
        Else
        DoCmd.OpenForm var1
        End If
        Else
        DoCmd.OpenForm "menu général"
        End If
    DoCmd.Close acForm, Me.Name, acSaveYes
End Sub

Mon objectif est de stocker cette procédure dans un module et de n'avoir comme code que la ligne :

Code :

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

1
2
 
Call fermer(Me.OpenArgs)

J'ai essayé en mettant bien sûr with fonctions dans mon en-tête mais çà ne marche pas, j'ai sûrement oublié qqchose, il m'envoie un message d'erreur.
Merci pour vos éclairements

[loufab]

Bonjour,

Me n'est valable que dans son contexte (interne au formulaire/etat)

Stocke me.openargs dans une variable et fait les appels sur celle-ci.

Cordialement