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).FormPour 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.Mais lorsque le programme passe sur la dernière ligne j'ai le message d'erreur suivant :
Merci pour votre aide..
Partager