Discussion :

[LePereNoel]

Bonjour à tous,

débutant en Access j'ai un petit soucis: j'ai donc un formulaire F_PARTENAIRE qui affiche les fiches des partenaires et qui contient un sous formulaire SF_CONTACT qui liste les différents contacts reliés au partenaire. En double cliquant sur une ligne du sous formulaire, le formulaire F_CONTACT s'ouvre à la fiche correspondant au contact sur lequel on a double cliqué. J'utilise donc le code suivant:

Code :

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

1
2
3
Private Sub Form_DblClick(Cancel As Integer)
DoCmd.OpenForm "F_CONTACT", , , "ContCod = " & Form_SF_CONTACT.ContCod
End Sub

Ce qui marche parfaitement. Le hic, c'est que tous les autres contacts sont cachés.
Je voudrais donc pouvoir passer d'un formulaire à l'autre en atteignant le même enregistrement sans que les autres enregistrements ne soient cachés.

Il me semble qu'il faut utiliser "DoCmd.GoToControl" et "DoCmd.FindRecord" mais j'avoue que je suis perdu.

Merci de votre aide.

[Jean-Philippe André]

Bonjour LePereNoel,

bienvenue sur DVP

A ta disposition, outre le present forum, de nombreuses ressources, parmi lesquelles :
- une http://access.developpez.com/faq
- des cours et articles http://access.developpez.com/cours

que l'on t'encourage a regarder regulierement, car bon nombre d'astuces et de solutions sont proposees.

Dans ton cas, tu as plusieurs approches possibles :
- passer le parametre depuis ton formulaire comme tu le fais, avec la limitation que tu indiques
- placer le parametre dans une table dediee (dite table de parametres) par ton premier formulaire, dans laquelle va piocher ton second formulaire lors de ton event Load()

des infos sur les tables de parametres ici : http://jpcheck.developpez.com/tutori...es-initiation/

si certains elements te paraissent obscurs, ou si tu coinces sur quelque chose, n'hesite pas
bon courage

[LePereNoel]

Coucou!

Tout d'abord merci pour l'accueil et les conseils, ça fait plaisir

Sinon j'ai trouvé ma réponse. Voici le code de mon double clic:

Code :

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

1
2
3
 lngFocus = Form_SF_CONTACT.ContCod
 
 DoCmd.OpenForm "F_CONTACT"

Et celui du Load de mon formulaire F_CONTACT

Code :

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

1
2
3
4
5
 If Not IsNull(lngFocus) Then  
 
        DoCmd.FindRecord lngFocus, Form_F_CONTACT.ContCod, False, , True
 
 EndIf

(lngFocus étant une variable globale placée dans un module)

C'était plutôt simple en fait, je devais être fatigué hier ^^

Bonne soirée à tous