[AC-2000] Formulaire + Recordset + Tables [Résolu]

[Léo_Vinci]

Bonjour à tous,
N'étant pas grand fan du VBA, je me vois malgré tout contraint de rendre un devoir en... VBA ><"
Contexte: j'ai une table SALARIE(*matricule, nom,prenom)
et j'ai un formulaire avec 2 champs de texte pour le nom et le prénom, 3 boutons "Click": Suivant (qui affiche le salarié suivant (dans ma table)), précèdent(même principe que suivant) et créer (qui enregistre les données saisies des zones de textes dans ma table)
Problème: Voilà mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Compare Database
Option Explicit
 
Public Sub NextSal_Click()
 
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.Open "SELECT nom, prenom FROM SALARIE", CurrentProject.Connection
 
    rst.MoveNext
    txtnom.Value = rst("nom")
    txtprenom.Value = rst("prenom")
 
 
End Sub

Ceci marche, mais je n'obtient pas le résultat escompté, car le premier click sur le bouton suivant, m'affiche bien le salarié (même si ce n'est pas le premier enregistré) mais lors des autres click suivant, rien ne change, je met donc en doute ma déclaration de mon Recordset

En sachant que mon j'aimerais utilisé mon "rst" dans la sub PrevSal_Click, NewSal_Click ...
Comment dois je initialiser mon Recordset (J'ai peu être oublié des instructions ) afin de pouvoir l'utiliser dans toutes mes Sub sans le réinitialiser à chaque fois ?

Merci d'avance

Cordialement

[GAYOT]

Bonjour
As tu été faire un tour dans la Faq. Par exemple ici:
http://access.developpez.com/faq/?page=PositionForm

[Léo_Vinci]

Non, mais en y faisant un tour je n'ai pas trouvé ce qui m'intéresse

[GAYOT]

Et là :
http://access.developpez.com/cours/?page=dataaccess#ado

[Léo_Vinci]

Les cours sont trop général, j'ai essayé selon ce cours, mais ça ne marche toujours pas

[Léo_Vinci]

Je viens de résoudre mon problème grâce à de très très vieux TP.
Il suffit de faire

Code :

1
2
3
4
5
6
Private Sub Form_Load()
 
    Set ORS = New ADODB.Recordset
    ORS.Open "select * from SALARIE", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
End Sub