Remplacer des procédures par un module

Version imprimable

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:

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:

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

19/02/2008, 14h53
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
19/02/2008, 15h10
4rocky4

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

Code:

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

le nom des champs n'est jamais le même.
19/02/2008, 15h20
Invité

Re

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

Starec

j'ai essayé ceci :

Code:

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 ?

19/02/2008, 15h47
4rocky4

Voilà ce que j'ai :

Code:

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.
19/02/2008, 15h58
Invité

Re

Remplaces

Code:

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

par

Code:

Sub liste_recherche(frm As frm, champ As String, liste As String)

Dans ton code, mets Champ et liste par concaténation, car ce sont des variables

Code:

rs.FindFirst "[" & champ & "] = " & Str(Nz(frm![" & liste & "], 0))

Pour l'appel de ta routine à liste, mets me.liste.name, je n'ai pas testé, mais cela devrait être le plus logique.

Starec
19/02/2008, 16h08
4rocky4

Citation:

Pour l'appel de ta routine à liste, mets me.liste.name, je n'ai pas testé, mais cela devrait être le plus logique.

J'ai pas compris ce que tu voulais dire là :oops:

Actuellement j'ai cette erreur :

erreur d'exécution '2465':
impossible de trouver le champ "&liste&" auquel il fait référence dans votre expression.

Le code dans mon module est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub liste_recherche(frm As Form, champ As String, liste As String)
    ' 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

et j'appel la procédure comme ceci :

Code:

1
2
3
Private Sub ld_recherche_AfterUpdate()
Call liste_recherche(Me, code_ce, ld_recherche)
End Sub

19/02/2008, 19h35
Invité

Re

Essayes :

Code:

Call liste_recherche(Me, code_ce, me.ld_recherche.name)
20/02/2008, 09h00
4rocky4

Bonjour,

J'ai toujours le même message d'erreur :

erreur d'exécution '2465':
impossible de trouver le champ "&liste&" auquel il fait référence dans votre expression.

Et en cliquant sur débogage, j'arrive sur ce code :

http://img99.imageshack.us/img99/3025/error35kl6.jpg
20/02/2008, 14h45
4rocky4

Est-ce possible au moins de réaliser cela ?
J'ai essayé pas mal de chose mais je n'y parvient pas ...
Je débute aussi en VBA :oops:
21/02/2008, 09h13
4rocky4

Le fait que liste est une liste déroulante doit quand même être déclaré en String ?

bonjour,

essaye juste ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub liste_recherche(frm As Form, champ As String, liste As String)
    ' 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

et j'appel la procédure comme ceci :

Code:

1
2
3
Private Sub ld_recherche_AfterUpdate()
Call liste_recherche(Me, "code_ce", "ld_recherche")
End Sub

[/QUOTE]

ou bien

Code:

1
2
3
Private Sub ld_recherche_AfterUpdate()
Call liste_recherche(Me, code_ce.Name, ld_recherche.Name)
End Sub

[/QUOTE]
l'idée si j'ai bien compris c'est d'avoir juste les noms des controles à utiliser dans les variables champ et liste donc la ça devrait marcher.

21/02/2008, 10h30
4rocky4

Liste en string et sans "" ni concaténation :roll:

Merci bien en tout cas, c'est éxactement ce que je désirais faire :yaisse2: :king: