Bouton suivant, précédent

Question

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

3Pom · Answer

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

Bouton suivant, précédent

1 réponse

Discussions similaires