Bonjour, Tu peux placer une Form de démarrage, sur cette Form tu places un TextBox (txtMotDePasse, TabIndex à 0), un CommandButton et un Label au dessus du TextBox.(ici le mot de passe est ftg87) Code : Private Sub Command1_Click() 'La variable compteur servira à compter le nombre de tentatives. Static compteur As Byte compteur = compteur + 1 If txtMotdePasse = "ftg87" Then Unload Me Form2.Show 'Nom de ta Form qui contient ta liaison à la base de données. Else 'Si c'est la 3ème fois que l'utilisateur entre un mot de passe incorrect, le programme prend fin. If compteur = 3 Then MsgBox "Echec dans la saisie du mot de passe. " & _ vbCr & "La commande ne peut-être exécutée", _ vbOKOnly + vbExclamation, "Mot de passe incorrect" End End If MsgBox "Le mot de passe fourni n'est pas correct. ", _ vbOKOnly + vbExclamation, "Mot de passe incorrect" txtMotdePasse.Text = "" txtMotdePasse.SetFocus Me.Caption = "Entrez le mot de passe. Tentative " & _ compteur + 1 & " sur 3" End If End Sub Private Sub Form_Load() Me.Caption = "Tentative 1 sur 3" Label1.Caption = "Entrez votre mot de passe" End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Acceptée.
|