Bonjour,

Je souhaite créer une nouvelle barre de navigation de mes enregistrement car la position par défaut d'access de m'arrange pas du tout.

J'ai, pour cela, créé un formulaire ayant tous les boutons dont j'ai besoin. Ce formulaire, je l'insère à l'endroit que je souhaite dans un formulaire père. Tout cela fonctionne correctement dans la mesure où je n'ai qu'un seul sous formulaire inséré. le problème se pose dès que j'en ai deux, surtout pour mettre à jour suite à un changement d'enregistrement (evt current ou je mettait à jour ma barre de navigation. J'ai, bien sûr, qu'une seule barre par formulaire (la deuxième barre est dans un sous formulaire du formulaire maitre)

Je vous joint mon code, en fait je voudrais savoir s'il est possible de faire ce que je fais, et si oui, comment faire?

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
Private Sub CmdPremier_Click() ' aller au premier enregistrement
On Error Resume Next
    Me.Parent.Recordset.MoveFirst
End Sub
 
Private Sub CmdPrecedant_Click() ' aller à l'enregistrement précédent
On Error Resume Next
    Me.Parent.Recordset.MovePrevious
End Sub
 
Private Sub CmdSuivant_Click() ' aller à l'enregistrement suivant
On Error Resume Next
    Me.Parent.Recordset.MoveNext
End Sub
 
Private Sub CmdDernier_Click() ' aller au dernier enregistrement
On Error Resume Next
    Me.Parent.Recordset.MoveLast
End Sub
 
Private Sub CmdExit_Click() ' quitter
On Error Resume Next
    DoCmd.Close acForm, Form.Parent.Name, acSaveYes
End Sub
 
Public Sub MAJ_Navigation()
On Error GoTo GestionErreur
If Me.Parent.Form.NewRecord Then
    '****
    InfoNew.Visible = True
    InfoEnr.Visible = False
    '****
    CmdPremier.Enabled = True
    CmdPrecedant.Enabled = False
    CmdSuivant.Enabled = False
    CmdDernier.Enabled = True
    CmdAnnuler.Visible = True
    CmdNouveau.Visible = False
    CmdSupprimer.Enabled = False
    '****
    Else
        '****
        InfoNew.Visible = False
        InfoEnr.Visible = True
        InfoEnr.Caption = "N° " & Me.Parent.CurrentRecord & "/" & Me.Parent.Recordset.RecordCount & IIf(Me.Parent.FilterOn, " Filtré", "")
        '****
        CmdPremier.Enabled = Me.Parent.CurrentRecord > 1
        CmdPrecedant.Enabled = Me.Parent.CurrentRecord > 1
        CmdSuivant.Enabled = Me.Parent.CurrentRecord < Me.Parent.Recordset.RecordCount
        CmdDernier.Enabled = Me.Parent.CurrentRecord < Me.Parent.Recordset.RecordCount
        CmdAnnuler.Visible = False
        CmdNouveau.Visible = Me.Parent.AllowAdditions
        CmdSupprimer.Enabled = Me.Parent.AllowDeletions
        '****
        InfoModification.Visible = Not Me.Parent.AllowEdits
End If
Exit Sub
GestionErreur:
If Err = 2164 Or Err = 2165 Then
    CmdExit.SetFocus
    Resume
End If
End Sub
 
Public Sub CmdNouveau_Click()
On Error Resume Next
    Me.Parent.Recordset.AddNew ' éditer un nouvel enregistrement
End Sub
 
Private Sub CmdAnnuler_Click()
On Error Resume Next
    Me.Parent.Form.Recordset.CancelUpdate
    Me.Parent.Form.Recordset.MoveLast
End Sub
 
Private Sub CmdSupprimer_Click()
Form.Parent.Form!Suppression = Now
Form.Parent.Form!QuiSuppression = [Form_Gestion Membre].ID
Form.Parent.Form.Requery
End Sub