thassa
Messages postés19Date d'inscriptiondimanche 3 avril 2005StatutMembreDernière intervention21 février 2008
-
29 mars 2007 à 15:02
thassa
Messages postés19Date d'inscriptiondimanche 3 avril 2005StatutMembreDernière intervention21 février 2008
-
29 mars 2007 à 15:59
bonjour à tous, j'ai un probleme avec ce code:
Private Sub CmdSuivant_Click() ' procedure exécutée si
je clique sur le bouton suivant
If DeMaterielInformatique.rsInfoComplete.EOF = True Then 'si c'est le dernier enregistrement
CmdSuivant.Enabled = False 'desactiver le bouton suivant
End If
CmdPrecedent.Enabled = True 'activer le bouton precedent
End Sub
je veux afficher les infos d'une table qui contient 5 enregistrements. les 5 enregistrements sont affichés correctement.le probleme se pose lorsque j'affiche le dernier enregistrement qui est le 5ème.ses informations sont affichées correctement mais le bouton suivant n'est pas désactivée et lorsque je clique dessus il affiche les donnees d'un enregistrement vide et c'est maintenent que le bouton suivant devient désactivé!!!!
je ne comprends pas d'ou vient l'enregistrement vide???
est que quelqu'un peut m'expliquer ceci?
merci
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 29 mars 2007 à 15:37
c'est normal, tu est a l'enregistrement 4/5
tu presse sur suivant
tu passe a l'enregistrement 5/5 (EOF = FALSE)
le bouton suivant reste actif
tu presse sur suivant
tu passe a l'enregistrement suivant (EOF = TRUE)
le bouton suivant devient inactif
tu dois pouvoir faire :
' procedure exécutée si je clique sur le bouton suivant
Private Sub CmdSuivant_Click()
With DeMaterielInformatique.rsInfoComplete
.MoveNext 'j affiche l'enregistrement suivant
'si c'est le dernier enregistrement desactiver le bouton suivant
CmdSuivant.Enabled = (.AbsolutePosition <> .RecordCount)
End With
'activer le bouton precedent
CmdPrecedent.Enabled = True
End Sub , ----
By Renfield