Sujet Précédent Sujet Suivant

MsgBox:dernier enegistrement [VB6]

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 20 mai 2006 à 00:00
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 20 mai 2006 à 08:54
bonsoir
avec se code j'affiche mon dernier enregistrement de ma base,mais
comment afficher un msgbox quand j'arrive au dernier enregistrement.
Private Sub suivant_Click()
'Permet d'aller a l'enregistrement suivant dans la table
Rs.MoveNext
'Si plus d'enregistrement aller au dernier
If Rs.EOF Then
    Rs.MoveLast
End If
End Sub
merci
petchy

2 réponses

Réponse 1 / 2
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
20 mai 2006 à 01:35
Salut,

Private Sub suivant_Click()
'Permet d'aller a l'enregistrement suivant dans la table
Rs.MoveNext
'Si plus d'enregistrement aller au dernier
If Rs.EOF Then
Rs.MoveLast
MsgBox "Cette donnée est le dernier enregistrement de la table !"
End If
End Sub

++
Mortalino
3
Réponse 2 / 2
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 4
20 mai 2006 à 08:54
Salut
merci Mortalino,c'est nickel
bon Week-End
@ plus
petchy
0

Discussions similaires

Msgbox en premier plan
tedparker -
frop01 -

1 réponse
MsgBox "" ,vbYesNo
LoverCraft -
leneuf22 -

9 réponses
MsgBox Yes No question
l337sanders -
corsica -

4 réponses
Bouton par défaut des msgbox
cs_Bintz -
the_best -

4 réponses
VbYesNo
zelze -
noel37400 -

6 réponses
Rejoignez-nous