Bonjour à tous,

j'ai créé un petit formulaire [FrmQuitt] qui me donnes le choix de fermeture des autres formulaires ouverts.
je voudrai pouvoir en fermer des spécifiques avec un seul bouton. j'ai déjà le code pour les fermer tous, mais là je ne trouve pas de solution.
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
Private Sub FermeFrm_Click()
On Error GoTo Err_FermeFrm
 
    For Each oForm In Application.CurrentProject.AllForms
        If oForm.IsLoaded = True And oForm.Name <> "FrmQuitt" Then DoCmd.Close acForm, oForm.Name
    Next
 
    DoCmd.Close acForm, "frmQuitt"
 
Exit_FermeFrm:
    Exit Sub
 
Err_FermeFrm:
    MsgBox Err.Number & " : " & Err.Description
    Resume Exit_FermeFrm
 
End Sub
j'ai essayé en ajoutant la propriété [tag], mais rien à faire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If oForm.IsLoaded = True And oForm.Name <> "FrmQuitt" And oForm.Tag = "Stk" Then DoCmd.Close acForm, oForm.Name
si quelqu'un a une idée je suis preneur

par avance merci pour votre aide