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

Question

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

BasicInstinct · Answer

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

Utilisateur anonyme · Answer

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

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

2 réponses

Discussions similaires