Discussion :

[Jeanaiasse]

bonjour,
j'ai un formulaire des saisie avec un SF de mes enregistrements. Sur mon F_Saise j'ai un bandeau avec des boutons de commande (enregistrement précédent, suivant premier dernier).
J'aurai voulu savoir si il était possible lorsque que clic sur une de ces commandes, que la ligne de l'enregistrement concernée apparaisse comme lorsque je clic dessus dans mon SF. Je pensais modifier les macro existantes, mais je ne sais pas comment faire.
Voici un capture écran de mon formulaire de saisie et de ce que j'aimerai avoir.


Merci de votre aide.

[hyperion13]

Bonjour
Si c'est bien pour parcourir les enregistrements du form, alors sur l'évènement sur click des boutons de commande passer

Code :

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

1
2
3
4
Private Sub movenext_Click()
Me.NomduSform.SetFocus
DoCmd.GoToRecord , , acNext
End Sub

Code :

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

1
2
3
4
Private Sub moveprevious_Click()
Me.NomduSform.SetFocus
DoCmd.GoToRecord , , acPrevious
End Sub

[Jeanaiasse]

bonjour et merci d'avoir pris du temps de me répondre.
Vos codes fonctionnent, je me déplace bien sur les enregistrements de mon SF. Par contre l'enregistrement ne s'affiche pas dans le formulaire, ce qui se faisait avec les commandes de départ.
y a t' il une syntaxe à rajouter pour qu 'en plus il affiche l'enregistrement.
Merci

[hyperion13]

Si votre form principal a pour source une requête, placez dans le critère du champ clé primaire de la requête (j'ai teste mais pas OK)
Forms!NomDuFormulairePrincipal!NomDuSousFormulaire.Form!ChampClePrimaire
Sinon sur l'evenement Sur activiation du sous formulaire, placez l'une des 2 solutions (je n'ai pas teste testé, c'est ok)

Code :

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

1
2
3
4
Private Sub Form_Current()
    Forms("NomDuFormulairePrincipal").Form.Filter = "ChampClePrimaireForm = " & Me!ChampClePrimaireSousForm
    Forms("NomDuFormulairePrincipal").Form.FilterOn = True
End Sub

ou

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
    Dim rst As Object
    Set rst = Forms("NomDuFormulairePrincipal").Form.Recordset.Clone
    rst.FindFirst "ChampClePrimaireForm = " & Me!ChampClePrimaireSousForm
    If Not rst.EOF Then Forms("NomDuFormulairePrincipal").Form.Bookmark = rst.Bookmark
End Sub

EDIT : 20200206 19:45 Les 2 codes sur Current_Form fonctionnent

[Jeanaiasse]

Bonjour hyperion13
merci de me répondre, je vais regarder cela et je vous tiens au courant.
bonne journée.

[Jeanaiasse]

Bonjour hyperion13
j'ai essayé les deux codes sans réussite, je dois avoir quelque chose de ma construit dans mes formulaires.
Par contre je ne comprends pas ce que chaque code doit accomplir.
je vais les ressayer, je le ferai dans les jours avenir

Merci

[User]

Bonsoir,

Ce problème ne se rapprocherait-il pas de celui-ci :

https://www.developpez.net/forums/d2.../#post11343980

Cdlt,

[hyperion13]

Bonsoir,
Effectivement, elle va dans le sens de la demande de Jean.
@+

Bonsoir,

Ce problème ne se rapprocherait-il pas de celui-ci :

https://www.developpez.net/forums/d2.../#post11343980

Cdlt,

[Jeanaiasse]

effectivement il y a des points communs. User avait ajouter un module afin de répondre à ma problématique "M_EvalTotalEcussons"
Mes là, je n'ai rien compris. voici la capture écran :



ce nouveau problème n'est pas important, c'était juste pour avoir un petit plus....

[hyperion13]

Bonsoir
Ici votre bdd heraldique modifiée.
Les 4 boutons de commandes Premier, Précédent, Suivant, Dernier de votre form de saisie ont une procédure événementielle selon Post#2
Votre sous-formulaire contient le second code Post#4
A propos des 2 codes du Post#4, ils ont la même finalité, sauf que le premier filtre le formulaire principal.

Bonjour hyperion13
j'ai essayé les deux codes sans réussite, je dois avoir quelque chose de ma construit dans mes formulaires.
Par contre je ne comprends pas ce que chaque code doit accomplir.
je vais les ressayer, je le ferai dans les jours avenir
Merci

[Jeanaiasse]

je me suis trompé, je crois que j'ai mis une capture écran qui n'a rien à voir avec votre la question.

[Jeanaiasse]

C'est exactement ça, je vous remercie, pour le temps et la patience que vous m'avez accordé
merci et bonne soirée.

[Jeanaiasse]

bonjour hyperion13
je rencontre un problème depuis que j'ai installer vos codes qui fonctionnent très bien.
Lorsque j'insère une image sur un enregistrement, je me retrouve sur le premier.
Lors de la saisie d'un écusson, tout ce qui est écriture se passe bien, à l’insertion de l'image , je me retrouve sur le premier enregistrement de la liste.
Lorsque je vais sur le dernier enregistrement l'image est bien insérée et si j'en insère une autre je me retrouve sur le premier.
Avez vous une réponse à ma problématique
merci d'avance