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 :
Voila le code :La conversion de la chaîne "" en type 'Boolean' n'est pas valide.
Merci de m'aider .
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
Bonne nuit ;p
Partager