Déplacement RecordSet
Evisu
Messages postés
5
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
10 juin 2008
-
24 avril 2008 à 20:53
lillith212 Messages postés 1229 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 16 juin 2009 - 19 mai 2008 à 13:27
lillith212 Messages postés 1229 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 16 juin 2009 - 19 mai 2008 à 13:27
3 réponses
lillith212
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
24 avril 2008 à 21:01
24 avril 2008 à 21:01
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
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
Evisu
Messages postés
5
Date d'inscription
jeudi 24 avril 2008
Statut
Membre
Dernière intervention
10 juin 2008
24 avril 2008 à 21:07
24 avril 2008 à 21:07
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.
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.
lillith212
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
19 mai 2008 à 13:27
19 mai 2008 à 13:27
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...
---------------------------------------------------------------
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...
---------------------------------------------------------------
