Discussion :

[lumpys]

Bonjour,

Dans une table, j'ai une liste de personnes par services. Dans un formulaire, j'ai créé un sous-formulaire avec comme lien ce service. J'ai besoin de créer un bouton, sur le formulaire qui me permette de passer directement à l'autre service. Jusqu'à présent il me passe chaque ligne d'enregistrement (donc chaque personne). Y a -t-il un moyen de faire cela ?

Merci d'avance pour vos idées.

[madefemere]

Bonjour,

Ta demande est claire mais insuffisante. est-ce qu'on peut avoir une image de ton formulaire et voir quel est le but parce que je dirai pourquoi ne pas avoir ton sous-formulaire en mode "unique", ce qui te permettrait de passer d'un service à un autre. De plus, quel est le rôle de ton formulaire principal dans tout ça? ou par hasard, le sous-formulaire n'est pas bien relié avec le sous-formulaire. Vérifies les champs Pères et Fils de ton sous-formulaire déjà.

Bonne continuation

[ClaudeLELOUP]

Bonjour,

Tu pourrais par exemple te baser sur ce tutoriel : http://claudeleloup.developpez.com/t...-multicritere/

(en modifiant l'affichage => Mode simple)

Tu pourrais ainsi afficher les enregistrements d'un service au choix.



P.-S. Mandresy.

[lumpys]

Je ne peux pas vous mettre le formulaire mais je vous ai mis dans le classeur l'idée du formulaire. Actuellement avec le bouton « Suivant », il passe sur chaque enregistrement (Lucky Luke, Avrel Dalton, Jo Dalton) alors que j’aurai besoin qu’il passe au service suivant « TUTU ».

Merci d’avance si vous avez un solution.

[madefemere]

Bonjour,

Quel est le code de ton bouton et il est installé où (dans le formulaire ou le sous-formulaire ?)
Parce que le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Set rst = Me.RecordsetClone
    If rst.RecordCount > 0 Then
        rst.Bookmark = Me.Bookmark
        rst.MoveNext
        AtLastRow = rst.EOF
        Set rst = Me.RecordsetClone
        With rst
            If AtLastRow Then
                Exit Sub
            Else
                DoCmd.RunCommand acCmdRecordsGoToNext
            End If
        End With
    End If
    Set rst = Nothing

appliqué sur l'évènement SurClick du bouton dans le formulaire principal devrait faire l'affaire.

Cordialement,

[lumpys]

Le bouton est sur le formulaire.

Le code proposé ne fonctionne pas. J'avais créé le mien avec l'assistant.

[madefemere]

Bonjour,

Ca ne fonctionne pas comment?
Ci-joint une base exemple utilisant ce code (avec certaines améliorations pour le rendre plus propre pour circuler entre les enregistrements).
Tu as créé le tien avec l'assistant, mais si tu ne nous le mets pas, comment veux-tu qu'on fasse des observations???

Cordialement,

[lumpys]

Je vois que dans la base que tu as mis à disposition, tu as un identifiant pour le service. Or moi je n'ai rien d'autre qu'un libellé de service. Je n'ai aucune identification chiffré, ce n'est que du texte partout (comme dans le fichier Excel). Il s'agit d'une extraction qui vient d'un autre logiciel. C'est probablement ce qui créé cette différence. Je n'ai pas travaillé sur Access depuis longtemps. J'ai ajouté dans ta base ce que j'obtiens.

[madefemere]

C'est normal que tu passes par tous les enregistrements de ta table si elle est la source de ton formulaire principal.
La solution serait de créer une requête de regroupement sur les services et d'en faire la source du formulaire principal.
La base avec la proposition est jointe.
Le fait qu'il y ait un Id n'y change rien.

Cordialement,

[lumpys]

Ca fonctionne.

C'était finalement tout simple mais encore fallait-il le savoir.

Merci beaucoup.