[Access97] Suivant, précédent, premier, ... par programmation

Signaler
Messages postés
3
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
31 décembre 2004
-
Messages postés
3
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
31 décembre 2004
-
Bonjour a tous,

Pour un projet sur Access, on me demande de faire les boutons suivant, précédent, premier, dernier enregistrement, supprimer et nouveau par programmation (en n'utilisant pas l'assistant et c'est dommage). J'ai trouvé qu'il fallait utiliser FindNext, FindFirst, ... mais le problème c'est que je n'arrive pas a mettre a jour le formulaire.

Je vous passe le bout de code que j'ai tenté de faire. Pouvez vous me dire si c'est bon, et comment faire pour mettre a jour la feuille du formulaire.

Dim ListeAdh As Recordset
Dim MaBase As Database
Dim chCriteres As String

Set MaBase = CurrentDb 
Set ListeAdh = MaBase.OpenRecordset("RInfoAdherents")
chCriteres "[CodeAdherent] '" & Forms![FIAdherent]![Txt_CodeAdherent].Value

ListeAdh.FindFirst chCriteres


Je vous remercie pour votre future aide

2 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
n'ayant pas access dispo pour tester ton code, je ne peux pas te dire s'il est correct (a premiere vue il a l'air)

pour mettre a jour ton formulaire, il faut le rafraichir :
Forms![FIAdherent].Refresh

:clown) BasicInstinct
0
Messages postés
3
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
31 décembre 2004

Merci. J'ai tester cette commande et ca ne veut toujours pas rafraichir le formulaire, par rapport a 'ListAdh'.
J'avais oublier de préciser que j'ai lié tous les éléments du formulaire, par programmation.
Si quelqu'un a déjà eu l'occasion de programmer ce code, merci de son aide.

NetJuniorFr
0