Discussion :

[cyriane]

Bnjour à tous,

Je voudrais lorsque l'utilisateur valide sa saisie lui dire de remplire tous les champs si cela n'est pas fait.
J'ai deja fais cela en vba comme cela:

Code :

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

1
2
3
4
5
6
7
8
Dim ValManquante As Boolean
'Vérifier que tous les champs ont été saisis
ValManquante = IsNull(Forms!AjoutPilote!numero) = True Or IsNull(Forms!AjoutPilote!nom) = True Or IsNull(Forms!AjoutPilote!prenom) = True Or IsNull(Forms!AjoutPilote!ville) = True Or IsNull(Forms!AjoutPilote!tel) = True
 
If ValManquante = True Then
MsgBox ("Vous devez saisir toutes les valeurs")
 
Else

mais sur vb.net cela ne fonctionne pas si quelqu'un peut m'aider merci d'avance de votre aide

[Gurdil le nain]

Bonjour,

C'est ton test qui n'est pas correct. Il faudrait faire comme cela :

Code :

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

1
2
3
4
5
6
7
8
If Not String.IsNullOrWhiteSpace(textBoxNumero) AndAlso Not String.IsNullOrWhiteSpace(textBoxNom) AndAlso Not String.IsNullOrWhiteSpace(textBoxPrenom) AndAlso Not String.IsNullOrWhiteSpace(textBoxVille) AndAlso Not String.IsNullOrWhiteSpace(textBoxTel) Then
     'Traitement
Else
     'Erreur
     MsgBox("Vous devez saisir toutes les valeurs")
     'Au passage, tu ferais mieux d'afficher les erreurs directement sur le formulaire sans passer par des messagesBox contraignantes
                'Exemple : tu affiches un label en rouge mentionnant de remplir tous les champs et tu changes la couleur des textBox vides (il y a d'autres méthodes, après c'est selon ta conception de l'ergonomie :D)
End If

La méthode IsNullOrWhiteSpace vérifie si la chaine de caractère est nulle, vide ou entièrement constitué d'espaces.
L'opérateur andAlso fait que dès qu'une condition n'est pas remplie, le test complet est faux et il ne teste donc pas les autres conditions et passe directement dans le else.

[Bacube]

Bonjour,

Moi j'utilise un "ErrorProvider", ça vient mettre des pastilles rouges à coté des champs non remplis.


Pour en mettre un tu le glisses de la "boite à outils" sur ta form, et ensuite je fais une fonction qui teste tout mes champs de saisie :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 Private Function GestionErreurs()
        Dim Bon As Boolean = True
 
        If IsNumeric(TXT_CONSOMMATION.Text) Then
            Me.Erreurs.SetError(Me.PNL_Consommation, "")
            TXT_CONSOMMATION.ForeColor = Color.Blue
            LBL_Consommation.ForeColor = Color.Black
        Else
            Me.Erreurs.SetError(Me.PNL_Consommation, "Valeur numérique obligatoire !")
            TXT_CONSOMMATION.ForeColor = Color.Red
            LBL_Consommation.ForeColor = Color.Red
            Bon = False
        End If
 
        If IsNumeric(TXT_DISTANCE.Text) Then
            Me.Erreurs.SetError(Me.PNL_Distance, "")
            TXT_DISTANCE.ForeColor = Color.Blue
            LBL_Distance.ForeColor = Color.Black
        Else
            Me.Erreurs.SetError(Me.PNL_Distance, "Valeur numérique obligatoire !")
            TXT_DISTANCE.ForeColor = Color.Red
            LBL_Distance.ForeColor = Color.Red
            Bon = False
        End If
 
        If IsNumeric(TXT_PRIX.Text) Then
            Me.Erreurs.SetError(Me.PNL_Prix, "")
            TXT_PRIX.ForeColor = Color.Blue
            LBL_Prix.ForeColor = Color.Black
        Else
            Me.Erreurs.SetError(Me.PNL_Prix, "Valeur numérique obligatoire !")
            TXT_PRIX.ForeColor = Color.Red
            LBL_Prix.ForeColor = Color.Red
            Bon = False
        End If
 
        Return Bon
    End Function

Ici dans cette fonction je regarde s'il y a bien quelque chose, et que la valeur rentré soit une valeur numérique.

Ensuite tu viens éxécuter ta fonction sur l'événement souhaité. Ainsi tu contrôles tes champs de saisie, et tu indiques les endroits non remplis.

"ErrorProvider" ici a été renommé en "Erreurs" et la fonction "SetError" permet d'activer la pastille rouge. Ici à coté de l'objet PNL qui correspont à panel, mais tu peux aussi mettre ça sur des textbox, ou autre, ...


sinon pour se qui est de l'erreur a proprement parler, j'utilise IsNothing ou ""

Code :

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

1
2
3
4
5
 
If IsNothing(variable) or variable = "" then
'Affichage de l'erreur
else
'Execute la procédure ou fonction

Cordialement,
Nicolas

[cyriane]

d'accord merci pour votre aide.

gurdil le nain

j'ai une question car des label j'ai deja essayé de les mettre en place en m'aider des tuto mais je n'ai pas reussi enfait.

pourrais-tu me donner un exemple en mettant la champs pas rempli de couleur?

merci d'avance

[Gurdil le nain]

Ouais, alors imaginons que tu ais le champ textBoxNumero de vide et que tu as un lblError (dont le texte est déjà remplie avec la couleur que tu veux) caché à côté de ton bouton de validation (ou ailleurs peu importe).

Dans ton code, tu devrais faire un truc du style :

Code :

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

1
2
3
4
5
 
 
lblError.Visible = True
 
textBoxNumero.BackColor = Color.Red

[cyriane]

d'accord merci.
peux-tu regarder mon code?
et me dire se qu'il ne va pas.
moi je pense que mon if n'est pas placé au bonne endroit...

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        '-------------------------------------        
        '   Variables declaration
        '-------------------------------------
 
        Dim objCommand As SqlCommand
 
        Dim objParam As SqlParameter
 
        Dim dt_KeywordsID As DataTable = New DataTable("produit")
 
        Dim dtc_KeywordsID As DataColumn
 
        Dim myConnection As SqlConnection = New SqlConnection("data source=UC033\DEV;integrated security=SSPI;initial catalog=BUDGET2")
 
        If Not String.IsNullOrWhiteSpace(nom) AndAlso Then
 
            'Traitement
 
 
 
 
            '-------------------------------------
 
            '   Create a connection to SQL Server
 
            objCommand = New SqlCommand("dbo.spd_produit_insert", myConnection)
 
            objCommand.CommandType = CommandType.StoredProcedure
 
            objCommand.Connection.Open()
 
            '-------------------------------------
 
            '   Create parameters for sp
 
            '-------------------------------------  
 
 
            objParam = objCommand.Parameters.Add("@nom", SqlDbType.VarChar, 50)
            objParam.Value = nom.Text
 
            '-------------------------------------
 
            '   Prepare table as parameter
 
            '------------------------------------- 
 
            dtc_KeywordsID = New DataColumn()
 
 
            dtc_KeywordsID.ColumnName = "id_produit"
 
            dt_KeywordsID.Columns.Add(dtc_KeywordsID)
            '-------------------------------------
 
            '   Store procedure execution
 
            '-------------------------------------  
                         objCommand.ExecuteNonQuery()
 
 
 
            '-------------------------------------
            '   Close the connexion object
            '-------------------------------------  
 
            objCommand.Connection.Close()
 
 
            '-------------------------------------------
            'verifier si tous les champs sont remplis
            '-------------------------------------------
 
        Else
            'Erreur
            Session("txtmessage") = "il faut remplir tous les champs"
            Response.Redirect("message.aspx")
        End If
 
 
 
 
 
 
 
        '---------------------------
        'message de confirmation
        '---------------------------
 
        Session("txtmessage") = "l'ajout est bien effectuer"
        Response.Redirect("message.aspx")
 
    End Sub
   End Class

voila mon code mais j'ai 2 erreurs sur cette ligne:

Code :

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

If Not String.IsNullOrWhiteSpace(nom) AndAlso Then

pour le (nom) il me dit:

impossible de convertir une valeur de 'system.web.controls.TextBox' en 'string'

pour le then il me dit:

expression attendu

voila merci d'avance

[Gurdil le nain]

Euh ouais, enfin là, il va falloir que tu ailles voir des tutos sur les bases du vb .Net parce que ces erreurs sont basiques de chez basique

Tu as un très bon cours ici.

Pour ton code, il faut faire :

Code :

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

If Not String.IsNullOrWhiteSpace(nom.Text) Then

En fait "nom" est un contrôle de type textBox, qui comme tous les contrôle contient des propriétés. Ces propriétés te permettent d'agir graphiquement sur le contrôle (couleur, position, taille...) mais également sur les données qu'il contient. Donc dans ton cas, le contrôle textBox a sa valeur dans la propriété Text

Pour la deuxième erreur, c'est simplement que le mot clé AndAlso sert à ajouter une condition au test, donc si tu n'as qu'une condition tu n'en as pas besoin

[cyriane]

merci de ton aide gurdil le nain

[cyriane]

bacube j'ai une question
l'objet error provider n'est pas actif dans ma barre d'outil je ne sais pas pourquoi...
pourrais-tu m'aider?
merci d'avance

[Bacube]

Qu'entends tu par, n'est pas actif ? Car tous les composants peuvent être placer sur la form normalement...

Par contre chose que je n'ai pas dit, quand tu le glisses sur ta form, il apparait en bas de la fenêtre principale, donc pas comme un label ou autre sur ta form.


Cordialement,
Nicolas

[cyriane]

"pas actif'
signifie que je ne peux pas le prendre pour le glisser enfait...

[cyriane]

gurdil le nain c'est quoi ton objet lblerror?
quand tu m'a expliqué les label?

[Bacube]

C'est bizarre, tu developpes avec quel soft ?

[Bacube]

gurdil le nain c'est quoi ton objet lblerror?
quand tu m'a expliqué les label?

"lblerror" je pense que c'est le nom du label, "lbl" pour label et après le nom que tu veux. Ici pour la gestion d'erreur il a été nommé "error".
Ce qui est logique sinon le code devient rapidement une usine à gaz (et je sais de quoi je parle, car j'en ai fait quelques unes ..., mais bon faut bien passer par là )

comme moi dans mon code j'ai pnl pour les panels, txt pour les textboxs, ...

Ainsi il est plus facil de reconnaitre qui est quoi. Tu sais que tout les txt sont des textboxs, les lbl des labels, ...

[cyriane]

je develloppe avec visual studio 2010

[cyriane]

gurdil le nain je ne sais pas pourquoi mon textboxNom il ne le reconnais pas...

j'ai essayé nom.text.backcolor mais cela ne fonction pas non plus...

[Gurdil le nain]

Ba tout dépend quel nom (propriété Name) de ton TextBox tu lui as donné dans le designer...

[cyriane]

c'est bon enfait gurdil le nain j'ai reglé le probléme merci

par contre tu vois j'ai mis

Code :

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

 lbl_error.Visible = False

dans le code de la page load
ensuit je le met

Code :

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

 lbl_error.Visible = true

dans le code de mon bouton au même endroit ou je mettais mon msgbox mais il ne maffiche pas le label quand le champs est vide...

si tu veux voici mon code entier de mon bouton:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        '-------------------------------------        
        '   Variables declaration
        '-------------------------------------
 
        Dim objCommand As SqlCommand
 
        Dim objParam As SqlParameter
 
        Dim dt_KeywordsID As DataTable = New DataTable("produit")
 
        Dim dtc_KeywordsID As DataColumn
 
        Dim myConnection As SqlConnection = New SqlConnection("data source=UC033\DEV;integrated security=SSPI;initial catalog=BUDGET2")
 
        If Not String.IsNullOrWhiteSpace(nom.Text) Then
 
            'Traitement
 
 
 
 
            '-------------------------------------
 
            '   Create a connection to SQL Server
 
            '-------------------------------------        
 
            objCommand = New SqlCommand("dbo.spd_produit_insert", myConnection)
 
            objCommand.CommandType = CommandType.StoredProcedure
 
            objCommand.Connection.Open()
 
            '-------------------------------------
 
            '   Create parameters for sp
 
            '-------------------------------------  
 
 
            objParam = objCommand.Parameters.Add("@nom", SqlDbType.VarChar, 50)
            objParam.Value = nom.Text
 
            '-------------------------------------
 
            '   Prepare table as parameter
 
            '------------------------------------- 
 
            dtc_KeywordsID = New DataColumn()
 
 
            dtc_KeywordsID.ColumnName = "id_produit"
 
            dt_KeywordsID.Columns.Add(dtc_KeywordsID)
            '-------------------------------------
 
            '   Store procedure execution
 
            '-------------------------------------  
 
            objCommand.ExecuteNonQuery()
 
 
 
            '-------------------------------------
            '   Close the connexion object
            '-------------------------------------  
 
            objCommand.Connection.Close()
 
 
            '-------------------------------------------
            'verifier si tous les champs sont remplis
            '-------------------------------------------
 
        Else
            'Erreur
            lbl_error.Visible = True
 
        End If
 
 
 
 
 
 
 
        '---------------------------
        'message de confirmation
        '---------------------------
 
        Session("lblmessage") = "l'ajout est bien effectuer"
        Response.Redirect("message.aspx")
 
    End Sub

[Gurdil le nain]

Est ce que tu as bien mis quelque chose dans la propriété Text de ton label ?

[cyriane]

ouioui j'ai mis mon text que je voulais afficher