Remplacer plusieurs procédure par une seule dans un module

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Remplacer plusieurs procédure par une seule dans un module

4rocky4

à 50 cm de l'écran

Bonjour,

J'ai plusieurs procédure sur plusieurs formulaires Access qui sont les mêmes.
Et je voudrais mettre la procédure dans un module et l'appeler à chaque fois que j'en ai besoin.

Voilà la procédure d'un formulaire que je veux mettre dans un module :

Code :

Private Sub ld_nom_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[code_contact] = " & Str(Nz(Me![ld_nom], 0))
Me.Détail.Visible = True
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
End If
End Sub

Code_contact est le champ d'une table et ld_nom une liste déroulante du formulaire.
Ces deux là change à chaque fois que la procédure doit être appelée.

Comment dois-je écrire ma procédure dans mon module afin qu'elle puisse etre utilisé à chaque fois ?
Comment dois-je l'appeler par la suite ?

Je vous remercie par avance.

4rocky4

---------------
- Un con qui marche ira plus loin qu'un intellectuel assis -

Publicité

tegu

Ta procédure devra contenir plusieurs paramètres :
-Le nom du champ à tester (Code_contact dans ton exemple)
-La valeur à comparer au contenu du champ (renvoyée par ld_nom ou autre)
-Le recordset qui permet de faire la recherche (rs)

Avec ces paramètres, ta procédure peut travailler (à moins que j'ai loupé un truc)
Il te suffit alors de copier les instructions actuelles en les adaptant avec les noms de paramètres que tu vas déclarer.

Sub ProcDe4rocky4(sNomChamp As String, sValeur As String, rs As Object)

Attention, sValeur est de type String ! Mais quand tu fais un .FindFirst, fais gaffe à rajouter ou pas les quotes autour de ta valeur suivant si sValeur est censé contenir du texte ou un nombre.

Tu appelles cette procédure par :
ProcDe4rocky4 "code_contact", Str(Nz(Me![ld_nom], 0)), rs

Message édité par tegu le 20-02-2008 à 17:31:57

4rocky4

à 50 cm de l'écran

merci pour ta réponse.

Alors j'ai fait comme ceci dans mon module:

Code :

Public 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
'Champ et liste par concaténation, car ce sont des variables
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 dans le formulaire :

Code :

Call liste_recherche(Me, "code_ce", Str(Nz(Me![ld_recherche], 0)))

Je n'ai pas mis "rs" car cela ne marchait pas.

Lorsque j'exécute le formulaire appelant la procédure, j'obtiens ce message d'erreur :

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

:pfff:

---------------
- Un con qui marche ira plus loin qu'un intellectuel assis -

tegu

Ton problème est lié à ta formule « Str(Nz(frm![" & liste & "], 0)) » dont tu n'as pas besoin si tu la passes déjà en paramètre

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

4rocky4

à 50 cm de l'écran

J'ai fait comme ça

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

Et ca marche

Merci bien

---------------
- Un con qui marche ira plus loin qu'un intellectuel assis -

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Remplacer plusieurs procédure par une seule dans un module

Sujets relatifs
Select count de plusieurs champs sous access	est-il possible de faire un appel dynamique à une procédure??
Pb avec plusieurs form	Plusieurs count dans une requete = multiplication
[MiKroC] Appeller plusieurs procédures\sous programmes	attacher un compte unix a plusieurs groupe
Ouvrir plusieurs page en un clique	[Résolu] Remplacer des caractères par d'autres dans un fichier texte
Dictionnaire : remplacer un mot par lien?	macro word remplacer image par texte
Plus de sujets relatifs à : Remplacer plusieurs procédure par une seule dans un module

Page générée en 0.037 secondes