Discussion :

[antoine46]

Bonjour,

je souhaite automatiser la détection des contrôles vides au moment du passage d'un onglet à l'autre de mon formulaire.
Je me suis inspiré de la FAQ pour essayer de faire une boucle qui teste tous les contrôles d'un onglet... Il doit y avoir une erreur que je ne trouve pas (je suis pas très doué )

Voici donc la procédure associée au bouton de passage de l'onglet 0 à l'onglet 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub BoutonOnglet_Click()
    Dim Ctrl As Control
    For Each Ctrl In Me.Onglets.Pages(0).Controls
        If Nz(Ctrl.Name, "") = "" Then
        MsgBox "Champ vide"
        Exit Sub
        End If
    Next
    Me.Onglets.Pages(1).SetFocus
End Sub

je vous remercie par avance pour vos précieux conseils

antoine

[loufab]

Bonjour,

En gros ici tu transforme un valeur NULL en valeur vide (fonction NZ()) et tu teste la valeur sur vide.

Code :

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

1
2
 
If Nz(Ctrl.Name, "") = "" Then

Il faut savoir qu'un controle peut contenir une valeur Null ou vide donc dans ce dernier cas le test ne fait rien.

Essaye plutot un test comme ceci.

Code :

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

If isnull(Ctrl.name) or isempty(ctrl.name) then

ou encore

Code :

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

if isnull(ctrl.name or len(ctrl.name)=0 then

Cordialement,