Discussion :

[Tunisiano87]

Bonjour,
Je suis en train de programnmer une fonction qui vérifie pour un formulaire donné si tous les champs sont remplis en renvoyant un booléen a cet effet et en affichant un msgbox s'il y a un champs pas rempli.
Je fais appel a cette fonction comme resultat de clique sur un bouton donné.
Le probleme c'est qu'elle ne marche pas et que je n'ai pas pu la corriger.

Des idées SVP:

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
Private Function validerChampsObligatoires() As Boolean
        Dim bValide As Boolean = True
 
        For Each ctrl As Control In Me.controls
            If ((TypeOf ctrl Is TextBox) Or (TypeOf ctrl Is ComboBox)) Then
                If ctrl.Text Is String.Empty Then
                    bValide = False
                End If
            End If
        Next
 
        If Not bValide Then
            MsgBox("", vbCritical + vbOKOnly, "Champs non remplis")
        End If
 
        validerChampsObligatoires = bValide 
    End Function

D'apres mes tests c'est le for each qui ne fait pas son boulot
Ca renvoie tjs true

[Graffito]

L'instruction suspecte :If ctrl.Text Is String.Empty
à remplacer par If (ctrl.Text = String.Empty)

[Elcrolonosios]

Il est possible aussi que tu recherche au mauvais endroit.
Si tu as un champ dans un GroupBox, ton for each ne passera jamais sur lui car il n'est pas un enfant direct de Me.Controls mais de Me.GroupBox1.Controls !

Suis-je clair ?

[charouel]

tu change ça

Code :

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

1
2
3
If ctrl.Text Is String.Empty Then
                    bValide = False
          End If

Par ça

Code :

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

1
2
3
If ctrl.Text = Nothing Then
                    bValide = False
          End If

[Tunisiano87]

Il est possible aussi que tu recherche au mauvais endroit.
Si tu as un champ dans un GroupBox, ton for each ne passera jamais sur lui car il n'est pas un enfant direct de Me.Controls mais de Me.GroupBox1.Controls !

Suis-je clair ?

Tu as raison... Je vais essayer de changer ça merci.
Merci pour les autres aussi... le Is String.Empty posait probleme aussi.

Voila le code corrigé:

Code :

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

1
2
3
4
5
6
7
8
9
For Each ctrl As Control In controles
            If TypeOf ctrl Is GroupBox Then
                For Each sousCtrl As Control In ctrl.Controls
                    If ((TypeOf sousCtrl Is TextBox) Or (TypeOf sousCtrl Is ComboBox)) And sousCtrl.Text = String.Empty Then
                        bValide = False
                    End If
                Next
            End If
        Next