Discussion :

[Francois40700]

Bonjour,
Une question de débutant qui vous fera peut-être sourire.



J'ai créé une macro dans le module 1

Sub RechIndiv()
..........
End Sub

Je voulais le lier à un bouton. Mais dans les propriétés de ce bouton je ne trouve pas la macro RechIndiv à l'évènement simple clic. Par contre je vois bien la macro1



Que faire ?
Merci

[marot_r]

Bonjour.

En fait tu n'as pas créer une macro telle que définie par Access.

Une macro en Access est une autre sorte de programmation (qui n'a rien à voir avec VBA) et c'est une spécificité de Access. Autant que je sache c'est le seul produit Office où c'est le cas.

Ce que tu as créé est une procédure VBA qui en effet ne peut pas directement être assignée à l'événement d'un bouton.

Tu as 2 solutions (si on excepte créer une "vraie" macro).

1. Dans la procédure événementielle associée à l'événement Sur Clic.
   Tu mets :
   
   

   Code :

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

   call RechIndiv

   ou simplement :
   
   

   Code :

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

   RechIndiv

2. Changer ta procédure en fonction.
   
   

   Code :

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

   1
   2
   3
   public function Sub RechIndiv()
    ..........
   End function

   Et là je pense que tu vas la voir (ça fait un bout que je ne l'ai pas utilisé) dans la liste ou tu peux simplement taper
   
   

   Code :

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

   =RechIndiv()

   La différence entre une fonction (function) et une procédure (sub) c'est que la fonction peut retourner un résultat à l'appellant mais que la procédure ne retourne jamais de résultat. On ne peut pas écrire uneVariable=MaSub(). Note que la fonction peut mais n'est pas obligée de retourner un résultat.
   
   En nuançant mon jamais, une procédure (ou une fonction) peut communiquer avec son appellant via les paramètres passés. C'est un mécanisme à utiliser avec précaution et que je recommande d'indiquer clairement en début de procédure (fonction). Personnellement quand je m'en sers je mets toujours comme 1ère ligne 'Attention cette procédure modifie ses paramètres pour que le programmeur qui vient après moi soit averti.
   

A+

[Francois40700]

Merci pour cette réponse très clair, j'ai réglé mon problème ... ou presque.

Code :

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

1
2
3
4
5
6
7
Public Function RechIndiv()
    'Bouton recherche sur saisie individu
    Dim indivar As Variant
    indivar = InputBox("Saisir le numéro d'enregistrement: ")
    DoCmd.OpenForm "F01_T_Individu", acNormal
    DoCmd.FindRecord indivar
End Function

Si j'exécute cette macro depuis l'éditeur vba, elle fonctionne correctement. Par contre si je la lance via



J'ai cette réponse



Je comprends que j'ai un problème avec findrecord mais je ne comprends pas lequel et pourquoi cela fonctionne dans un cas et pas dans l'autre.
Un peu d'aide me serait utile
Merci

[BAL_pro_18]

Bonjour françois,

As tu regarder sur la doc microsoft?

Je pense que tu vas avoir ta réponse dedans.

cordialement,

[marot_r]

Je ne me sers pas de FindRecord mais je soupçonne que c'est parce qu'elle est "contextuelle" et que quand tu exécutes ton code il doit essayer de l'appliquer sur le formulaire appellant et pas sur l'appelé.

Je te propose de remplacer

Code :

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

DoCmd.FindRecord indivar

par

Code :

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

call forms![F01_T_Individu].Recordset.FindFirst("[indivar]=" & indivar)

Là j'ai supposé que ton champ dans le formulaire s'appelle indivar, si ce n'est pas le cas il faut modifier "[indivar]=".

Forms est la liste des formulaires ouverts présentement.

Si tu ne souhaites afficher qu'une seule personne tu peux aussi faire :

Code :

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

DoCmd.OpenForm "F01_T_Individu", acNormal, , "[indivar]=" & indivar

A+

[Francois40700]

Génial, super sympa, ça fonctionne à merveille
Bonne journée
François