Discussion :

[4rocky4]

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

[Invité]

Bonjour

Il me semble t'avoir donner quelque chose ici : http://www.developpez.net/forums/sho...d.php?t=488133, cela va t'aider, la méthode est la même.

Starec

[4rocky4]

Oui j'y ai fait référence, mais ce ne marche pas, je ne sais pas comment faire pour cette ligne :

Code :

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

rs.FindFirst "[code_ce] = " & Str(Nz(Me![ld_recherche], 0))

le nom des champs n'est jamais le même.

[Invité]

Re

Essayes de passer le nom en paramètre, comme le me qui est remplacé par frm.

Starec

[4rocky4]

j'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub liste_recherche(frm As frm, champ As Control, liste As Control)
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object

    Set rs = frm.Recordset.Clone
    rs.FindFirst "[champ] = " & Str(Nz(frm![liste], 0))
    'on affiche la partie détail
    frm.Détail.Visible = True
    'si le nom saisie n'existe pas
    If Not rs.EOF Then
    frm.Bookmark = rs.Bookmark
    End If
End Sub

Mais cela ne marche pas.
Champ et liste, je dois les mettre en quoi ?

[4rocky4]

Voilà ce que j'ai :

Code :

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

Sub liste_recherche(frm As frm, champ As Control, liste As combobox)

Mais pour le champ d'une table, je ne trouve pas ce qu'il faut mettre.