Discussion :

[Enoxandre]

Bonjour,


J'ai créé différents formulaires, tous liés à une table : un champ (zone de texte) référençant chaque colonne de cette même table
Sur 3 de ces formulaires, j'ai positionné une "zone de liste" qui reprend également ce qui est listé dans la table, histoire d'avoir une vue globale sur le contenu de la table.

Ensuite, dans mon code j'ai simplement écrit (sur les événements de déplacement dans la liste) :

iIdAgent = lstAgent.Value ==> lstAgent étant la "zone de liste"

DoCmd.SearchForRecord acDataForm, "Frm_Agent", acFirst, "id_agent = " & iIdAgent ==> Frm_Agent étant le formulaire.


çà, c'est OK !!! çà marche !



Seulement voilà ! J'ai ensuite placé mes différents formulaires dans un formulaire type "navigation" et là ! Cata. !! :-)

Message popup m'informant que l'objet "Frm_Agent" n'est pas ouvert !

Alors, je ne sais pas comment faire !?

Ouvrir le formulaire au moment du "clic" dans la zone de liste... pas géniale ! :-)

Mais peut-être, il y a-t-il un AUTRE moyen de parcourir les enregistrements que par "DoCmd.SearchForRecord..."

Si quelqu'un a une solution... j'en serai ravi !


Merci.

[madefemere]

Bonjour,

Si ta zone de liste est dans le formulaire, tu peux utiliser le pointeur (Propriété BookMark) de ton formulaire et le RecordSet du formulaire et son clone et utiliser la méthode FindFirst pour atteindre l'enregistrement concerné.

Ce sera un code du genre :

Code :

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

1
2
3
4
5
6
7
iIdAgent = lstAgent.Value 'lstAgent étant la "zone de liste"
With Me.RecordsetClone
     .FindFirst "id_agent = " & iIdAgent 'Trouver l'emplacement de l'Id
     If Not .Nomatch
          Me.RecordSet.BookMark = .BookMark ' Si Trouvé, atteindre l'enregistrement
     End If
End With

Cordialement.

[Enoxandre]

Merci beaucoup Madefemere !!

Je n'ai eu qu'à effectuer un copier/coller de ton code ! :-)
Merci !

Je vais quand même regarder un peu plus en détail, histoire d'apprendre vraiment !

Bonne fin de journée.