Discussion :

[GuyDuLac]

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

[Invité]

Bonjour

Tout est fonctionnel sauf la fermeture du formulaire. Voici mon code

C'est à dire ? Rien ne se passe ? Message d'erreur ?

Philippe

[GuyDuLac]

Bonjour Philippe,

J'ai l'erreur d'exécution 258 'Impossible d'exécuter cette action pendant le traitement d'un événement de formulaire ou d'état.'

J'ai aussi mis le code

Code :

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

  DoEvents

avant la ligne

Code :

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

 DoCmd.Close acForm, "frmMajSousComposante"

mais toujours le même résultat.

Peut-être que le traitement devrait se faire sur un autre événement que

Code :

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

 Private Sub Form_Activate()

mais je ne vois pas comment faire pour qu'il s'exécute automatiquement

merci

[GuyDuLac]

J'ai trouvé une solution qui n'est peut être pas du code très nette mais bon ça fonctionne. J'ai mis un bouton dans le formulaire de traitement qui permet d'exécuter les conditions et les calculs. J'appelle ce formulaire dans l'événement form_unload et exécute la procédure du bouton

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Unload(Cancel As Integer)
If Me.EstiOuiSousComposante = ChrW(&H46A) Then
    DoCmd.OpenForm "frmMajSousComposante", , , , , acHidden
    DoEvents
    Forms!frmMajSousComposante.cmdTraitementSousComposante_Click
 
End If
End Sub

Dans le formulaire de traitement j'ai déclaré l'événement Public et je ferme le formulaire a la fin du traitement

Code :

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

1
2
3
4
5
Public Sub cmdTraitementSousComposante_Click()
traitement
DoCmd.Close acForm, "frmMajSousComposante"
 
End Sub

SI quelqu'un a une meilleure idée, ça m'intéresse. Sinon ce code peut-être en aider d'autres

[ffdream62]

Perso, je tenterais les choses suivantes :

1) Mettre ton code à l'ouverture du formulaire plutôt qu'à l'activation.
Au cas où le focus sur le formulaire t'empêcherait de le fermer.

2) Mettre le focus sur autre chose avant de lancer la commande pour fermer le formulaire.

3) Euh... si le formulaire que tu ouvres/fermes est le même, ça ne marche pas en mettant simplement ça ?

Code :

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

DoCmd.close