If Trim(LCase(txthn.text)) <> "arnotti" Then msgbox "Nom de l'utilisateur non attribuer" End IfS Nikator
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf txthn.text <> "Arnotti" Then msgbox " nom de l'utilisateur non attribiuer" End If
If LCase(txthn.text) <> "arnotti" Then msgbox " nom de l'utilisateur non attribiuer" End If
If UCase(txthn.text) <> "ARNOTTI" Then msgbox " nom de l'utilisateur non attribiuer" End If
Dim IsAUser As Boolean = False Dim MyUser As String, Nom As String, Noms() As String Dim Users As String = "Philippe;Jean ;Toto;Arnotti" Noms = LCase(Users).Split(";") MyUser = Trim(LCase(TextBox1.Text)) For Each Nom In Noms If MyUser Trim(Nom) Then IsAUser True Next If IsAUser = False Then MsgBox("Nom de l'utilisateur non attribuer") End If
If Trim(LCase(Utilisateur.Text)) <> "arnotti" Then msgbox "Nom de l'utilisateur non attribuer" Else If MotDePasse.Text <> "MdP" Then msgbox "Mot de passe incorrect" End If End If