OVH Cloud OVH Cloud

Liste

2 réponses
Avatar
STEN83
Bonjour,
Encore une histoire de liste, dans mon formulaire j'ai une liste basé sur
une requête de ma table principale, merci de m'avoir donné l'astuce.A présent
je voudrais que s'affiche la fiche client lorsque je clic sur une des entrée
de la liste j'ai repris le code d'une liste simple mais cela ne fonctionne
pas, j'ai le message incompatibilité de type voici le code que j'ais mis:

Private Sub Liste31_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nom]=" & Str(Nz(Me![Liste31], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Merci pour votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous

2 réponses

Avatar
ze_titi
Bonjour,

je pense que tu devrais utiliser l'évènement "Sur Clic" de ta liste qui va
déclencher l'ouverture d'un formulaire basé sur ta table client. Le
formulaire en question sera filtré sur la valeur que tu sélectionnes dans ta
liste.

dans le code "sur clic" de ta liste, tu auras quelque chose du style :

docmd.openForm "tonFormulaireClient",acNormal
Forms!tonFormulaireClient.Filter="idClient=" & taListe.value
Forms!tonFormulaireClient.FilterOn=true

Ce code est bien sûr à adapter mais je pense que tu as une base.
Ca te paraît clair ou bien faut-il détailler ?
--
Cordialement,

ze_titi

Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ




Bonjour,
Encore une histoire de liste, dans mon formulaire j'ai une liste basé sur
une requête de ma table principale, merci de m'avoir donné l'astuce.A présent
je voudrais que s'affiche la fiche client lorsque je clic sur une des entrée
de la liste j'ai repris le code d'une liste simple mais cela ne fonctionne
pas, j'ai le message incompatibilité de type voici le code que j'ais mis:

Private Sub Liste31_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nom]=" & Str(Nz(Me![Liste31], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Merci pour votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous


Avatar
STEN83
Désolé mais ce n'est pas ce que je veux peut être me suis-je mal exprimé, rn
fait ma liste ce trouve sur le même formulaire d'enregistrement je veux
quelle s'actualise à chaque nouvel enregistrement.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Bonjour,

je pense que tu devrais utiliser l'évènement "Sur Clic" de ta liste qui va
déclencher l'ouverture d'un formulaire basé sur ta table client. Le
formulaire en question sera filtré sur la valeur que tu sélectionnes dans ta
liste.

dans le code "sur clic" de ta liste, tu auras quelque chose du style :

docmd.openForm "tonFormulaireClient",acNormal
Forms!tonFormulaireClient.Filter="idClient=" & taListe.value
Forms!tonFormulaireClient.FilterOn=true

Ce code est bien sûr à adapter mais je pense que tu as une base.
Ca te paraît clair ou bien faut-il détailler ?
--
Cordialement,

ze_titi

Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ




Bonjour,
Encore une histoire de liste, dans mon formulaire j'ai une liste basé sur
une requête de ma table principale, merci de m'avoir donné l'astuce.A présent
je voudrais que s'affiche la fiche client lorsque je clic sur une des entrée
de la liste j'ai repris le code d'une liste simple mais cela ne fonctionne
pas, j'ai le message incompatibilité de type voici le code que j'ais mis:

Private Sub Liste31_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nom]=" & Str(Nz(Me![Liste31], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Merci pour votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous