Discussion :

[PaulineH]

Bonjour,

Voici mon petit problème, j'ai un formulaire "FR_Suivi_Mandat_Corpo" qui affiche en mode continu les statut des mandats Corporatifs pour une année. J'ai inséré dans le détail de ce formulaire un
bouton qui ouvre un autre formulaire "FR_Info_Client_Suivi_Mandat" affichant les données de contacts du client.




J'aimerais pouvoir mettre ce bouton dans l'en-tête du formulaire mais qu'il n'affiche que les données relatives à l'enregistrement en cours afin d'alléger le détail du formulaire. Est-ce que cela et possible et
si oui de quelle manière.

Merci

[tee_grandbois]

bonsoir,
oui c'est possible avec la propriété PreviousControl de Screen. Le pré-requis est que le premier contrôle par ordre de tabulation soit l'identifiant qui permet de filtrer le formulaire (ici c'est No_Client).
Sur le clic du bouton, mettre le code suivant:

Code :

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

1
2
DoCmd.GoToControl (Screen.PreviousControl.Name)
If Not Me.NewRecord Then DoCmd.OpenForm "FR_Info_Client_Suivi_Mandat", acNormal, , "No_Client=" & Screen.ActiveControl

[PaulineH]

Merci beaucoup, cela fonctionne très bien.
Je viens encore d'apprendre un petit truc de code.

[tee_grandbois]

bonsoir,

Je viens encore d'apprendre un petit truc de code.

pour tout te dire, moi aussi ...

[PaulineH]

Désolé, de vous revenir mais j'ai encore un petit souci avec ce code, cela fonctionne bien si je suis sur un champ standard de mon formulaire mais si je viens de modifier un champ de liste déroulante,
j'obtiens 2 messages différents selon le champ que je viens de modifié.
Si j'ai modifié le champ "status" =

Si j'ai modifié un autre champ de liste déroulante =


Encore merci de m'aider.

[tee_grandbois]

bonsoir,
effectivement, PreviousControl représente le dernier contrôle actif de l'enregistrement en cours, il faut donc forcer le focus sur l'identifiant No_Client:

Code :

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

1
2
3
DoCmd.GoToControl (Screen.PreviousControl.Name)
Me.No_Client.setfocus
If Not Me.NewRecord Then DoCmd.OpenForm "FR_Info_Client_Suivi_Mandat", acNormal, , "No_Client=" & Screen.ActiveControl