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