Bonsoir,
J'ai cr=E9e un formulaire "F-SH" que je souhaite =EAtre=20
accessible apr=E8s avoir saisi un mot de passe.
Pouvez-vous me donner la proc=E9dure =E0 suivre.
Merci pour votre aide
Georges
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
974
Bonsoir,
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ?
Bonsoir,
Une solution simple consiste à créer dans ton formulaire
d'appel une zone de texte indépendante (PassSaisie par
ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click()
If PassSaisie <> "mot de passe" then
MsgBox"Mot de passe non valide ou non saisi !"
Exit Sub
Else
Docmd.openForm "F-SH"
Docmd.Close acForm, Me.Name
Exit Sub
End If
Le mot de passe fait partie intégrante du code. Cela te
convient-il ?
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ?
ettiruaf
Bonsoir, Merci pour ta réponse rapide. Cela me convient, mais !!! si je laisse la zone de texte indépendante "PassSaisie " vde et que je clique sur le bouton le formulaire s'ouvre quand même. Je suis certain que tu as une solution. Merci pour ton aide Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ? .
Bonsoir,
Merci pour ta réponse rapide.
Cela me convient, mais !!! si je laisse la zone de texte
indépendante "PassSaisie " vde et que je clique sur le
bouton le formulaire s'ouvre quand même.
Je suis certain que tu as une solution.
Merci pour ton aide
Georges
-----Message d'origine-----
Bonsoir,
Une solution simple consiste à créer dans ton formulaire
d'appel une zone de texte indépendante (PassSaisie par
ex) avec format mot de passe. Lors de l'évênement sur
clic
du bouton ouvrant ton formulaire F-SH, tu peux
t'inspirer
du code suivant :
Private Sub BOUTON_Click()
If PassSaisie <> "mot de passe" then
MsgBox"Mot de passe non valide ou non saisi !"
Exit Sub
Else
Docmd.openForm "F-SH"
Docmd.Close acForm, Me.Name
Exit Sub
End If
Le mot de passe fait partie intégrante du code. Cela te
convient-il ?
.
Bonsoir, Merci pour ta réponse rapide. Cela me convient, mais !!! si je laisse la zone de texte indépendante "PassSaisie " vde et que je clique sur le bouton le formulaire s'ouvre quand même. Je suis certain que tu as une solution. Merci pour ton aide Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ? .
ettiruaf
J'oubliais, je na trouve pas le format mot de passe. J'imagine que le texte saisi apparait avec des étoiles?? Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ? .
J'oubliais, je na trouve pas le format mot de passe.
J'imagine que le texte saisi apparait avec des étoiles??
Georges
-----Message d'origine-----
Bonsoir,
Une solution simple consiste à créer dans ton formulaire
d'appel une zone de texte indépendante (PassSaisie par
ex) avec format mot de passe. Lors de l'évênement sur
clic
du bouton ouvrant ton formulaire F-SH, tu peux
t'inspirer
du code suivant :
Private Sub BOUTON_Click()
If PassSaisie <> "mot de passe" then
MsgBox"Mot de passe non valide ou non saisi !"
Exit Sub
Else
Docmd.openForm "F-SH"
Docmd.Close acForm, Me.Name
Exit Sub
End If
Le mot de passe fait partie intégrante du code. Cela te
convient-il ?
.
J'oubliais, je na trouve pas le format mot de passe. J'imagine que le texte saisi apparait avec des étoiles?? Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ? .
Eric
Bonjour,
1-Pour la masque de saisie du password : Propriété de la zone de texte, Onglet Données - Masque de saisie - Cliquer sur les 3. (...) en bout de ligne et choisir Mot de Passe.
2- Corriges la procédure comme suit:
Private Sub Bouton_Click() If Me!PassSaisie = "Mot de passe" Then DoCmd.OpenForm "F-SH" DoCmd.Close acForm, Me.Name Else MsgBox "Password invalide !" End If End Sub
A+ Eric
"" écrivait news:3d5301c47299$ac482af0$:
J'oubliais, je na trouve pas le format mot de passe. J'imagine que le texte saisi apparait avec des étoiles?? Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ? .
Bonjour,
1-Pour la masque de saisie du password :
Propriété de la zone de texte, Onglet Données - Masque de saisie -
Cliquer sur les 3. (...) en bout de ligne et choisir Mot de Passe.
2- Corriges la procédure comme suit:
Private Sub Bouton_Click()
If Me!PassSaisie = "Mot de passe" Then
DoCmd.OpenForm "F-SH"
DoCmd.Close acForm, Me.Name
Else
MsgBox "Password invalide !"
End If
End Sub
J'oubliais, je na trouve pas le format mot de passe.
J'imagine que le texte saisi apparait avec des étoiles??
Georges
-----Message d'origine-----
Bonsoir,
Une solution simple consiste à créer dans ton formulaire
d'appel une zone de texte indépendante (PassSaisie par
ex) avec format mot de passe. Lors de l'évênement sur
clic
du bouton ouvrant ton formulaire F-SH, tu peux
t'inspirer
du code suivant :
Private Sub BOUTON_Click()
If PassSaisie <> "mot de passe" then
MsgBox"Mot de passe non valide ou non saisi !"
Exit Sub
Else
Docmd.openForm "F-SH"
Docmd.Close acForm, Me.Name
Exit Sub
End If
Le mot de passe fait partie intégrante du code. Cela te
convient-il ?
.
1-Pour la masque de saisie du password : Propriété de la zone de texte, Onglet Données - Masque de saisie - Cliquer sur les 3. (...) en bout de ligne et choisir Mot de Passe.
2- Corriges la procédure comme suit:
Private Sub Bouton_Click() If Me!PassSaisie = "Mot de passe" Then DoCmd.OpenForm "F-SH" DoCmd.Close acForm, Me.Name Else MsgBox "Password invalide !" End If End Sub
A+ Eric
"" écrivait news:3d5301c47299$ac482af0$:
J'oubliais, je na trouve pas le format mot de passe. J'imagine que le texte saisi apparait avec des étoiles?? Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire d'appel une zone de texte indépendante (PassSaisie par ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te convient-il ? .
Bonsoir et merci Tout fonctionn très bien Georges
-----Message d'origine----- Bonjour,
1-Pour la masque de saisie du password : Propriété de la zone de texte, Onglet Données - Masque de saisie -
Cliquer sur les 3. (...) en bout de ligne et choisir Mot de Passe.
2- Corriges la procédure comme suit:
Private Sub Bouton_Click() If Me!PassSaisie = "Mot de passe" Then DoCmd.OpenForm "F-SH" DoCmd.Close acForm, Me.Name Else MsgBox "Password invalide !" End If End Sub
A+ Eric
"" écrivait
news:3d5301c47299$ac482af0$:
J'oubliais, je na trouve pas le format mot de passe. J'imagine que le texte saisi apparait avec des étoiles??
Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire
d'appel une zone de texte indépendante (PassSaisie par
ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te
convient-il ? .
.
Bonsoir et merci
Tout fonctionn très bien
Georges
-----Message d'origine-----
Bonjour,
1-Pour la masque de saisie du password :
Propriété de la zone de texte, Onglet Données - Masque
de saisie -
Cliquer sur les 3. (...) en bout de ligne et choisir Mot
de Passe.
2- Corriges la procédure comme suit:
Private Sub Bouton_Click()
If Me!PassSaisie = "Mot de passe" Then
DoCmd.OpenForm "F-SH"
DoCmd.Close acForm, Me.Name
Else
MsgBox "Password invalide !"
End If
End Sub
J'oubliais, je na trouve pas le format mot de passe.
J'imagine que le texte saisi apparait avec des
étoiles??
Georges
-----Message d'origine-----
Bonsoir,
Une solution simple consiste à créer dans ton
formulaire
d'appel une zone de texte indépendante (PassSaisie
par
ex) avec format mot de passe. Lors de l'évênement sur
clic
du bouton ouvrant ton formulaire F-SH, tu peux
t'inspirer
du code suivant :
Private Sub BOUTON_Click()
If PassSaisie <> "mot de passe" then
MsgBox"Mot de passe non valide ou non saisi !"
Exit Sub
Else
Docmd.openForm "F-SH"
Docmd.Close acForm, Me.Name
Exit Sub
End If
Le mot de passe fait partie intégrante du code. Cela
te
1-Pour la masque de saisie du password : Propriété de la zone de texte, Onglet Données - Masque de saisie -
Cliquer sur les 3. (...) en bout de ligne et choisir Mot de Passe.
2- Corriges la procédure comme suit:
Private Sub Bouton_Click() If Me!PassSaisie = "Mot de passe" Then DoCmd.OpenForm "F-SH" DoCmd.Close acForm, Me.Name Else MsgBox "Password invalide !" End If End Sub
A+ Eric
"" écrivait
news:3d5301c47299$ac482af0$:
J'oubliais, je na trouve pas le format mot de passe. J'imagine que le texte saisi apparait avec des étoiles??
Georges
-----Message d'origine----- Bonsoir,
Une solution simple consiste à créer dans ton formulaire
d'appel une zone de texte indépendante (PassSaisie par
ex) avec format mot de passe. Lors de l'évênement sur clic
du bouton ouvrant ton formulaire F-SH, tu peux t'inspirer
du code suivant :
Private Sub BOUTON_Click() If PassSaisie <> "mot de passe" then MsgBox"Mot de passe non valide ou non saisi !" Exit Sub Else Docmd.openForm "F-SH" Docmd.Close acForm, Me.Name Exit Sub End If
Le mot de passe fait partie intégrante du code. Cela te
