Bonjour,

A l'ouverture d'un formulaire Access 2003, (évènement OPEN), je déroule entre autre le code suivant afin de rechercher la présence de sous-formulaire et les affecter à une variable de type "form" (Pour des raisons de raccourci d'écriture par la suite dans le code).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
    Public Ecran_SF As Form
    ....
    NbRecherche = Forms![F_FormCourant].Count
    If NbRecherche > 0 Then
        For intI = 0 To NbRecherche - 1
            Set SF = Forms![F_FormCourant](intI)
            If SF.Name = "SF_De_FormCourant" Then IndForm1 = intI
        Next intI
    End If
    Set Ecran_SF = Forms![F_FormCourant].Controls(IndForm1).Form
Mais lorsque le programme passe sur la dernière ligne j'ai le message d'erreur suivant :
Pour information, cette opération est effectuée dans d'autres formulaires de l'application et cela fonctionne. Ici je suis dans le cas d'un formulaire et d'un sous-formulaires importés.

Merci pour votre aide..