Discussion :

[Tatoine]

Hello à tous,

bien longtemps que je n'avais pas mis les pieds ici...

voici le problème.
J'ai créé des boutons suivant et précédent
le suivant est inactif en fin de formulaire
le précédent est inactif en début de formulaire.
(je me suis inspiré du code de la FQS)

voici le code:

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
Private Sub Form_Current()
 
If Me.CurrentRecord <> Me.RecordsetClone.RecordCount Then
  Me!suivant.Enabled = True
Else
  Me!suivant.Enabled = False
End If
 
If Me.CurrentRecord > 1 Then
  Me!précédent.Enabled = True
Else
  Me!précédent.Enabled = False
End If
 
Exit Sub
 
End Sub

Hors, a l'ouverture du formulaire les deux boutons sont grisés.
Comment faire comprendre que je suis bien en début de formulaire et donc que le bouton suivant ne doit pas être inactif sur ouverture de form?

Merci.

[RootsInternationnal]

Hello
Sur l'evenement On load de ton form

Code :

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

Me!suivant.Enabled = False

[ilank]

Bonsoir,

il faut parcourir le recordset une fois pour obtenir le bon nombre d'enregistrement. Essaie ceci

Code :

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

1
2
3
4
5
6
7
8
9
Private sub Form_Load()
 RecordSetClone.MoveLast
 RecordSetClone.MoveFirst
End sub
 
Private Sub Form_Current()
 Suivant.Enabled=(CurrentRecord<RecordSet.RecordCount)
 Precedent.Enabled=(CurrentRecord>1)
End sub

[Tatoine]

j'avais pas eu le temps de faire de réponse, mais ca marche bien en tout cas les coup du

Private sub Form_Load()
RecordSetClone.MoveLast
RecordSetClone.MoveFirst
End sub


merci beaucoup...je me sens idiot de pas y avoir pensé.