Bouton suivant, précédent

Signaler
Messages postés
2
Date d'inscription
jeudi 1 avril 2004
Statut
Membre
Dernière intervention
7 avril 2004
-
3Pom
Messages postés
90
Date d'inscription
samedi 5 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2004
-
salut

j'ai fait un bouton suivant et précedent pour passer d'un enregistrement dans un data à un autre

je voudrais que quand je suis sur le premier enregistrement le bouton précédent soit inactif et pareil pour le dernier enregistrement le bouton suivant devra etre inactif.

j'ai réussi a faire que rendre inactif un bouton quand je suis sur l'enreg avant le premier

voici mon Code:

Private Sub datadde_Reposition()
....
If datadde.Recordset.BOF Then
cmdsuivant.Enabled = True
cmdprecedente.Enabled = False
ElseIf datadde.Recordset.EOF Then
cmdsuivant.Enabled = False
cmdprecedente.Enabled = True
Else
cmdsuivant.Enabled = True
cmdprecedente.Enabled = True
End If
....
End Sub

et voila ce qu'il y a dans mes boutons précédent et suivant :

Code:
Private Sub cmdprecedente_Click()
On Error Resume Next
If (Not datadde.Recordset.BOF) Then
datadde.Recordset.MovePrevious
End If
End Sub

Code:
Private Sub cmdsuivant_Click()
On Error Resume Next
If (Not datadde.Recordset.EOF) Then
datadde.Recordset.MoveNext
End If
End Sub

mais je voudrais pas pouvoir aller ni avant le 1er enreg ni après le dernier enreg

merci de votre aide

1 réponse

Messages postés
90
Date d'inscription
samedi 5 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2004

Utilise la propriété absolutePosition du recordset.

A chaque clic sur precedent et suivant tu verifit si

if datadde.Recordset.AbsolutePosition=0 then
'Tu est sur le 1er enreg

If datadde.Recordset.AbsolutePosition=datadde.recordset.Recordcount - 1 then
'Tu est au dernier enreg