Urgent ! Bloquer le défilement d'une base de données

Question

Bonjour,

J'ai un bug dans mon application ! j'aimerai faire d&#233;filer mas base de donn&#233;es avec des boutons... J'ai mis une condition qui est que si il n'y a pas d'enregistrement, il y a un message qui vient.... mais mon bug c'est que maintenant losrque je d&#233;file ma base, il ne s'arrete pas au dernier enregistrement, il va encore plu loin et m'affiche un enregistrement vide ....

voila mon code

Private Sub buSupprimer_Click()
    If BDDtoner.Recordset.RecordCount = 0 Then
    MsgBox "Il n'y a pas d'enregistrements dans la base de donn&#233;es !", vbInformation, "Aucune donn&#233;e !!!"
    ElseIf MsgBox("&#202;tes-vous s&#251;r de vouloir supprimer cet enregistrement ?", vbQuestion + vbYesNo, "Supprimer Enregistrement") = vbYes Then
        BDDtoner.Recordset.Delete
    Else 
        BDDtoner.Recordset.MoveFirst
    End If
End Sub

Mick

mick1819 · Answer

Pardon je me suis tromb&#233; de code en fait c'est :


Private Sub buSuivant_Click()
    'Emp&#234;che d'aller plus loin que la derni&#232;re donn&#233;e
    If BDDtoner.Recordset.RecordCount = 0 Then
    MsgBox "Il n'y a pas d'enregistrements dans la base de donn&#233;es !", vbInformation, "Aucune donn&#233;e !!!"
    ElseIf BDDtoner.Recordset.EOF Then
    BDDtoner.Recordset.MovePrevious
    Else
    BDDtoner.Recordset.MoveNext
    End If
End Sub



Mick

Urgent ! Bloquer le défilement d'une base de données

1 réponse

Discussions similaires