Discussion :

[Harry Covair]

Bonjour le forum,
J’ai adapté un bout de code trouvé sur le forum pour, dans un sous-formulaire, afficher les boutons “suivant » et “précédent” lorsque le nombre d’enregistrements est > 1.
En mode déboguage (F8), les boutons s’affichent si nécessaire.
Par contre, en mode « normal », ces boutons programmés ne s’affichent que si je clique sur un des boutons « flèche » de la barre d’état. Je précise que le contenu de ce sous-formulaire dépend du choix dans une liste déroulante.
La miniature illustre le sous-formulaire.
Ci-dessous, le code.
D’avance merci pour vos réponses.
Harry

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
Sub Form_Current()
'Housekeeping
  Dim ParentDocName As String
  Me!btn_next.Visible = False
  Me!btn_previous.Visible = False
  currec = Me.CurrentRecord
  ParentDocName = Me.Parent.Name
'traitement
' Bouton suivant
If tbx_cnt_rec > 1 And currec < tbx_cnt_rec Then
    Me!btn_next.Visible = True
    Else
  Me!btn_next.Visible = False
End If
'bouton précédent
If tbx_cnt_rec > 1 And currec > 1 Then
    Me!btn_previous.Visible = True
    Else: Me!btn_previous.Visible = False
End If
End Sub

[Invité]

Bonjour

Dans ton code tu as cette variable : tbx_cnt_rec

D'où vient-elle ? Comment est-elle initialisée ? Quelle est sa valeur au démarrage du formulaire ?

Ce qui fais que ton test suivant peut ne pas être valable.

Code :

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

If tbx_cnt_rec > 1 And currec < tbx_cnt_rec Then

Philippe

[Harry Covair]

Bonjour,
Merci pour la réponse.

1. tbx_cnt_rec est une zone de texte indépendante située dans le pied-de-page du sous-formulaire. Sa valeur est

   Code :

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

   =count([N_producteur])

   , sa propriété visible = Non; N_producteur est un contrôle du sous-formulaire;Voir la première miniature.
2. Cette zone de texte sert aussi à alimenter une zone de texte dans le pied-de-page du formulaire principal. voir la seconde miniature (pour l'image, la propriété visible des deux contrôles est mise à Oui)
3. La valeur "3" affichée dans les zones de texte est correcte.
4. Normalement, la flèche "suivante devrait apparaître dans le sous-formulaire.

L'information répond-elle à la question et est-elle suffisante?
Merci

Harry

[Invité]

Ok

Je viens de relire, tu dis qu'en mode débogage cela fonctionne.

Donc essayes de mettre l'instruction DoEvents à la première ligne pour voir.

Philippe

[Harry Covair]

Bonjour,
merci pour cette réaction rapide.
DoEvents en début de procédure ne change rien;
la miniature montre la réaction en mode débogage; le bouton "suivant" apparaît bien.

Harry

[Harry Covair]

Bonjour,
Je ne comprenais pas pourquoi la propriété « visible » appliquée sur des boutons ne s’exécutait pas sur base d’un contrôle calculé. Question de "focus" peut-être? Comme je n’apprécie pas « les caprices » d’Access, j’ai modifié mon approche.
Au lieu de calculer dans le formulaire, j’ai – dans la procédure événementielle « On current » - défini une variable recevant la valeur de la propriété « recordcount » du recordset. Ci-dessous, le code.

Peut-être intéressera-t-il d'autres lecteurs du forum?

Harry

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
'Next and previous buttons
'housekeeping
Dim rec_set As DAO.Recordset
Dim rec_cnt As Long
Set rec_set = Me.RecordsetClone
Me.NavigationButtons = False
Me.btn_next.Visible = False
Me.btn_prev.Visible = False
rec_cnt = rec_set.RecordCount
'procédure
If rec_cnt > 1 Then
Me.btn_next.Visible = True
Else
Me.btn_next.Visible = False
End If
If rec_cnt > 1 And Me.CurrentRecord > 1 Then
    Me.btn_prev.Visible = True
    Else: Me.btn_prev.Visible = False
End If
If rec_cnt = Me.CurrentRecord Then
Me.btn_next.Visible = False
End If
'fin procédure