Discussion :

[cretgil]

Bonjour à tous,

Je rencontre un petit problème.

J'ouvre un formulaire en faisant :

Code :

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

1
2
3
Private Sub cmdAjoutContrat_Click()
    DoCmd.OpenForm "frmNouveauContrat"
End Sub

et sur un bouton annuler je fais

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
Private Sub cmdAnnuler_Click()
        MsgBox Me.Name
        'Me.Undo
        
        'test si le formulaire est chargé si oui, il est fermé
        If CurrentProject.AllForms("frmNouveauContrat").IsLoaded Then
            MsgBox "Oui il est loaded"
            DoCmd.Close acForm, "frmNouveauContrat", acSaveNo
        Else
            MsgBox "Non il est pas loaded"
        End If
        
        
        'ouverture du formulaire frmNavigation sur l'onglet Gestion des projets
        'DoCmd.OpenForm "frmNavigation"
    Select Case gblDroitsAccess
        Case "User"
            'Forms("frmNavigationPilotes").Form.Controls("btnNavProjets").SetFocus
             Forms!frmNavigationPilotes!SousFormulaireNavigation.Form!lstContrats.SetFocus
        Case "Admin"
            'Forms("frmNavigationAdmin").Form.Controls("btnNavProjets").SetFocus
            Forms!frmNavigationAdmin!SousFormulaireNavigation.Form!lstContrats.SetFocus

    End Select
End Sub

Mais à la ligne en rouge, je reçois l'Error 2467 : l'expression entrée fait référence à un objet fermé ou supprimé
et le formulaire se ferme quand même.

Comment ne plus avoir cette erreur.
Merci d'avance

[cretgil]

voilà j'ai trouvé ...

en fait sur la procédure Form_Close du Formulaire j'avais un test

Code :

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

1
2
Private Sub Form_Close()
    If CurrentProject.AllForms("frmNavigation").IsLoaded Then

et c'est là que l'erreur survenait.. donc après modification du test et du code tout roule...