Discussion :

[sarmad354]

Bonjour,

J'ai un formulaire en mode simple contenant un sous formulaire
Comment peut on désactiver les boutons de déplacement du sous formulaire si on est sur le premier ou dernier enregistrement du sous formulaire?

[Tonioyo]

Bonjour,

Il s'agit de la propriété "boutons de déplacements" du formulaire.

[Tofalu]

Ce qui ne répond pas vraiment à la question à savoir :

Comment en VBA afficher ou masquer les boutons de déplacement suivant la position de l'enregistrement. Il faut pour cela étudier le clone du recordset du sous formulaire dans son évènement sur activation (form_current)

Exemple :

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
Private Sub Form_Current()
Dim oRst As DAO.Recordset
 
On Error GoTo err
 
 
Set oRst = Me.RecordsetClone
 
With oRst
  .Bookmark = Me.Recordset.Bookmark
  If .AbsolutePosition = 0 Then
    .MovePrevious
    Me.NavigationButtons = Not .BOF
  Else
    .MoveNext
    Me.NavigationButtons = Not .EOF
  End If
  .Close
End With
err:
Set oRst = Nothing
End Sub