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
| Sub verification(magasin)
Dim magasin As String
'Pour valider le mot de passe selon le magasin choisi
Select Case magasin
Case "Toulouse"
If MdPMag.Text = "tttt" Then
MsgBox "Vous êtes identifié comme étant le magasin de Toulouse", vbOKOnly + vbInformation, "Bienvenue"
Else
MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
End If
Case "Bordeaux"
If MdPMag.Text = "bbbb" Then
MsgBox "Vous êtes identifié comme étant le magasin de Bordeaux", vbOKOnly + vbInformation, "Bienvenue"
Else
MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
End If
Case "Lyon"
If MdPMag.Text = "llll" Then
MsgBox "Vous êtes identifié comme étant le magasin de Lyon", vbOKOnly + vbInformation, "Bienvenue"
Else
MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
End If
Case "Paris"
If MdPMag.Text = "pppp" Then
MsgBox "Vous êtes identifié comme étant le magasin de Paris", vbOKOnly + vbInformation, "Bienvenue"
Else
MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
End If
Case Else
MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", 16, "Erreur"
End Select
End Sub |
Partager