Déplacement RecordSet

Signaler
Messages postés
5
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
10 juin 2008
-
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
-
Bonsoir,

J'ai créé un formulaire et dans mon Sub Form_Load() j'ouvre un RecordSet :

RS.MoveFirst
    Do While (Not RS.EOF)
        TxtNumAbonné.Value = RS.Fields("NumAbonné").Value
        TxtNomAbonné.Value = RS.Fields("Nom").Value
        RS.MoveNext
    Loop

Dans le même formulaire j'ai créé des boutons de déplacements pour accèder aux différents abonnés. Quel code dois-je associer à mes boutons (Enregistrement Suivant par exemple) ?

Private Sub CmdEnregSuivant_Click()
??????????
End Sub

Merci d'avance.

3 réponses

Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
Bonsoir,

pour enregistrer le suivant il te suffit d'aller à la fin de ton recordset (Movelast) et ensuite tu ajoute à ton recordset l'enregistrement. Cependant je me pose une question. Ton recordset est alimenté par quoi????

SLB
Messages postés
5
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
10 juin 2008

Voilà le code complet de Sub Form_Load() :

Private Sub Form_Load()
    Dim RS As New ADODB.Recordset
    Dim Connection As New ADODB.Connection
    Dim sql As String

    sql = "SELECT NumAbonné , Nom  , Prénom , Sexe , Adresse , Localité , CodePostal , LocalitéBureau , CodeDouteux FROM ABONNES"

    Set Connection = CurrentProject.Connection
    Call RS.Open(sql, Connection, adOpenDynamic, adLockOptimistic)
   

    RS.MoveFirst
    Do While (Not RS.EOF)
        TxtNumAbonné.Value = RS.Fields("NumAbonné").Value
        TxtNomAbonné.Value = RS.Fields("Nom").Value
        RS.MoveNext
    Loop
   
End Sub

Ce que j'aimerais c'est que quand je clique sur mon bouton Suivant , j'aie le numéro et le nom de l'abonné suivant dans les champs de mon formulaire.
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
salut,

Do While (Not RS.EOF)
        TxtNumAbonné.Text= RS.Fields("NumAbonné").Value
        TxtNomAbonné.Text = RS.Fields("Nom").Value
        RS.MoveNext
    Loop

et voila

SLB

---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------