Discussion :

[Xtremmax]

Bonjour,

J'ai un formulaire et je voudrais vérifier si toute les cases sont remplie , si elle le sont , j'enregistre , sinon j'affiche un message d'erreur . J'ai ce code mais il ne fonctionne pas , il me marque :

La conversion de la chaîne "" en type 'Boolean' n'est pas valide.

Voila le code :

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
 
If 
 
Me.pseudo.Text <> String.IsNullOrWhiteSpace(Me.pseudo.Text) 
And Me.age.Text <> String.IsNullOrWhiteSpace(Me.age.Text) 
 
Then
 
Dim Nouveau As New info(Me.pseudo.Text, Me.age.Text)
                'On l'ajoute à la liste
                bibliotehque.Listemembre.Add(Nouveau)
                MsgBox("Fiche correctement crée", vbOKOnly, "Confirmation")
            Else
                MsgBox("Une erreur est survenur . Un des champs est vide ou mal remplie", vbOKOnly, "Ok")
            End If

Merci de m'aider .
Bonne nuit ;p

[tomlev]

String.IsNullOrWhiteSpace renvoie un Boolean, donc ça n'a pas de sens de le comparer avec une chaine. La condition est donc simplement :

Code :

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

1
2
3
4
If Not String.IsNullOrWhiteSpace(Me.pseudo.Text) _
   And Not String.IsNullOrWhiteSpace(Me.age.Text) _
   Then
...