Discussion :

[lucienkany]

Bonjour,

Je souhaite créer un code qui fait faire ces actions à un formulaire:

1 Ouvrir le formulaire
2 Parcourir tous les enregistrements du premier au dernier
3 Après le dernier enregistrement, fermer le formulaire

J'ai essayé un code avec les propriétés BOF et EOF mais je n'ose pas vous le montrer.

Si quelqu'un a une idée.

Merci

[helas]

Il faut lancer la fonction ParcourirFormulaire en indiquant le nom du formulaire en paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Call ParcourirFormulaire("NomFormulaire")

La fonction ouvre le formulaire puis parcourt les enregistrements à raison d'1 seconde par enregistrement puis provocation d'une erreur sur le dernier enregistrement car la commande GotoRecord ne trouve pas l'enregistrement suivant. Cette erreur ferme le formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Function ParcourirFormulaire(s As String)
 On Error GoTo erreur
 DoCmd.OpenForm s          'ouverture du formulaire
 Do
  DoCmd.GoToRecord acDataForm, s, acNext            'enregistrement suivant
  k = Timer + 1: Do Until Timer > k: DoEvents: Loop   'pause d'1 seconde
 Loop
 Exit Function
erreur:
 If Err = 2105 Then DoCmd.Close acForm, s   'fermeture sur erreur
End Function

[lucienkany]

Merci hela,

je vais essyer et je vous dirai résolu!

[lucienkany]

Bonjour,

Je viens de relancer ce post juste pour une petite question.

Je souhaite ajouter sur ce formulaire un bouton "Arrêt- Marche" pour faire que sur un click, le formulaire s'arrête sur l'enregistrement en cours et reprend au deuxième click.

Merci de votre aide