Bonjour,
A l'ouverture d'un formulaire, un traitement assez lourd doit se faire sur chacun des enregistrements puis le formulaire doit se fermer a la fin du traitement.
Tout est fonctionnel sauf la fermeture du formulaire. Voici mon code
Merci à l'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Private Sub Form_Activate() Dim R1 As Object Dim Compteur As Single Dim x As Single Set R1 = Me.RecordsetClone Compteur = Nz(Me.RecordsetClone.RecordCount, 0) x = 1 DoCmd.GoToRecord acDataForm, "frmMajSousComposante", acFirst Do While Not R1.EOF 'fait calcul TousLesCalculs 'avance au prochain enregistrement If x < Compteur Then DoCmd.GoToRecord acDataForm, "frmMajSousComposante", acNext End If R1.MoveNext x = x + 1 Loop R1.Close DoCmd.Close acForm, "frmMajSousComposante" End Sub
Partager