Discussion :

[antoine46]

Bonjour

plus j'avance dans la création de mon formulaire, plus je rencontre de problèmes
J'ai un formulaire principal, contenant un sous-formulaire (dans un de ses onglets).
Ce sous-formulaire change au fur et à mesure de la saisie des informations (sousform1, puis sousform2, etc...). J'essaie de faire en sorte que ces sous-formulaires vérifient eux-mêmes s'ils sont complètement rempli ou non.

J'ai donc mis le code suivant dans sousform1 :

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
Private Sub Form_Load()
    Dim Ctrl As Control
    For Each Ctrl In Form.Controls
        If IsNull(Ctrl) Then
            [complet] = 0
            Ctrl.SetFocus
            Exit Sub
        Else
            [complet] = 1
        End If
    Next
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Dim Ctrl As Control
    For Each Ctrl In Form.Controls
        If IsNull(Ctrl) Then
            [complet] = 0
            Exit Sub
        Else
            [complet] = 1
        End If
    Next
End Sub

Cela doit me permettre de vérifier à chaque chargement et déchargement du formulaire si celui-ci est complet ou non (en écrivant le résultat dans un champ de la table)

Le problème est que cela fonctionne normalement lorsque je lance le formulaire tout seul, et j'ai l'erreur suivante lorsqu'il est intégré en tant que sous-formulaire (au moment de son déchargement => passage au sousform2):
"Impossible d'attribuer une valeur à cet objet"

et la ligne surlignée est "[complet] = 1"

Je n'arrive pas à corriger ce problème, malgré le fait que je ne pense pas être loin de la solution

Merci pour vos conseils
Antoine

[thb74]

ton sous-form est-il integre dans un controle onglet ??

[antoine46]

ton sous-form est-il integre dans un controle onglet ??

oui

[thb74]

donc ta ligne de commande n'est plus la meme
[complet]=1 devient me.nom onglet.form![nom sous_form]![complet].value=1

thierry

ps : a peaufiner au niveau syntaxe selon arborescence de tes forms

[antoine46]

donc je n'avais pas bien saisi la structure du code VBA
je pensais que le code associé à un formulaire n'agissait que sur celui-ci...

je vais réessayer, merci

[thb74]

Attention syntaxe tres precise
regarde peut etre l aide integree pour ne pas perdre trop de temps