Procédure dans un module puis l'appeler

Question

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 :

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

jrivet · Answer

Salut,
Essaie de passer les deux parametre en  String 
ATTENTION dans un module tu ne pourras pas utiliser ME

    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 , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

wassimez · Answer

Bonjour , 
en plus il faut que tu change 
Private Sub ld_nom_AfterUpdate()
par 
Public Sub ld_nom_AfterUpdate()

4rocky4 · Answer

Re,

Alors dans mon module j'ai mis :
---------------------------
Sub liste_recherche(frm As Form, champ AsString, liste AsString)
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs AsObject
    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
    IfNot rs.EOFThen
    frm.Bookmark = rs.Bookmark
    EndIf
EndSub
--------------------------
puis pour appeler la procédure je procède comme ça :

--------------------------
PrivateSub ld_recherche_AfterUpdate()
Call liste_recherche(Me, code_contact, ld_nom)
EndSub
-------------------------

Mais lorsque je lance mon formulaire et que jeffectue l'action qui exécute ma 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.

4rocky4 · Answer

Comment faire pour régler ce problème ?

cs_MPi · Answer

>> Code_contact est le champ d'une table et ld_nom une liste déroulante du formulaire.


Si ld_nom est une liste déroulante, tu ne peux pas la passer en paramètre As String.

Tu dois soit la passer comme Object ou Listbox et changer ton code, ou soit passer le texte sélectionné et là tu dois changer l'appel
Call liste_recherche(Me, code_contact, ld_nom.Text)

Et pourquoi déclarer rs As Object plutôt que As Recordset ?
Peut-être est-ce nécessaire pour cette méthode de clone...(?) Je trouve ça étrange tout de même...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

4rocky4 · Answer

Bonjour,

Si je déclare rs as recordet, j'obtiens une erreur ici rs.FindFirst.
En mettantld_nom.Text, cela ne change rien.

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 :

En mettant liste as listbox affiche également un problème,Imcompatibilité de type.
Et ca me montre ce code :
Call liste_recherche(Me, code_ce, ld_recherche)

Que d'erreurs

4rocky4 · Answer

J'ai résolu mon problème.
je vous remercie.

cs_MPi · Answer

Et comment as-tu résolu ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

4rocky4 · Answer

J'ai mis cette ligne à la place :

rs.FindFirst "[" & champ & "] = " & Str(Nz(frm(liste), 0))

et voilà ... :)

cs_MPi · Answer

Comme ton problème est résolu et que tu as inscrit la solution, clique le bouton Accepté sur ton dernier message qui affiche cette solution.
Ça pourrait être pratique pour ceux qui feront des recherches...

Bonne continuation !

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Procédure dans un module puis l'appeler

10 réponses

Votre réponse

Discussions similaires