Bonjour à tous,

En regardant mon code, je m'aperçoit qu'il y a plusieurs procédure qui sont quasiment les mêmes.

Et je voudrais mettre une procédure type dans un module et l'appelé ensuite dans mon code.

Voilà une première procédure dans un formulaire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ld_nom_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[code_contact] = " & Str(Nz(Me![ld_nom], 0))
    'on affiche la partie détail
    Me.Détail.Visible = True
    'si le nom saisie n'existe pas
    If Not rs.EOF Then
    Me.Bookmark = rs.Bookmark
    End If
End Sub
Et la même dans un autre formulaire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub ld_recherche_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[code_ce] = " & Str(Nz(Me![ld_recherche], 0))
Me.Détail.Visible = True
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Comment dois-je faire la procédure à mettre dans mon module ?

Merci