Discussion :

[Stefen76]

Bonjour à tous et toutes,

Je développe une application avec Access 2016 et j'ai des rubans personnalisés. Jusqu'ici tout fonctionne correctement. Mais dans mes formulaires j'ai une barre de navigation entre les enregistrements : premier, précédent, suivant et dernier, ainsi que Nouveau, Supprimer et Fermer le formulaire.

Pour gagner de la place je voudrai créer un ruban NavigationForm avec toutes ses actions !!!

Mais je bloque sur les actions exécutée à partir du ruban. J'ai bien rattaché mon ruban à mes formulaires, mais je n'arrive pas à créer la fonction me permettant de naviguer !

Lorsque je clique sur le bouton du ruban je récupère bien l'id qui correspond au sens de navigation mais après je ne sais pas comment dans ma procédure indiquer qu'il faut l'exécuter dans le formulaire ouvert !

Voilà le code que j'essai de réaliser !

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
16
17
18
19
20
 
Public Sub ruban_navigation(ByVal rubanecran As IRibbonControl)
 
        Dim sensnav As String, formactif As String
 
        Select Case rubanecran.id
            Case "btform_premier"
                sensnav = "acFirst"
            Case "btform_precedent"
                sensnav = "acPrevious"
            Case "btform_suivant"
                sensnav = "acNext"
            Case "btform_dernier"
                sensnav = "acLast"
        End Select
 
'C'est la que je bloque pour récupérer le nom du formulaire actif !  
        DoCmd.GoToRecord , "RECUPERER NON FORMULAIR", sensnav
 
End Sub

Ci-dessous le ruban de navigation pour mes formulaires :


Merci à tous pour votre aide.

Stéphen

[Stefen76]

Je me réponds à moi même en fait il suffit de ne pas spécifier de formulaire dans la commande docmd.gotorecord
Problème résolu :-)