Discussion :

[jaquot14]

bonsoir à tous,

J'ai trouvé un code VBA sur le forum pour protéger l'ouverture d'un formulaire par mot de passe, mais lorsque l'on inscrit celui-ci, le mot de passe s'affiche "0000" et je préfèrerais que ce soit des Astérix à la place.
auriez vous une solution ?
Voici le code VBA placé sur click d'un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim mdp As String
MsgBox "ENTREZ VOTRE MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES"
mdp = InputBox("Entrer votre mot de passe ", "Saisie du mot de passe")
If mdp <> "0000" Then
  MsgBox "MOT DE PASSE ERRONE"
Else
  DoCmd.OpenForm "F_inscrip_Acheteurs"

merci d'avance pour vos réponses

[Jeannot45]

Une piste à creuser :
Créer un petit formulaire (exemple F_PW) contentant un contrôle qui permettra de saisir le mot de passe et dont la propriété Masque de Saisie sera positionnée sur Mot de Passe

Placer une procédure de contrôle du Mot de Passe sur MAJ du controle du formulaire F_PW

Dans l'exemple ci-joint, tu ouvres le formulaire F_PW et tu tapes le mot de passe "bonjour".

Bonne journée

[jaquot14]

Bonjour à tous,
Je reviens vers vous car j'ai cherché sur les FAQ Access et j'ai trouvé ce code que j'ai adapté à ma base.
J'ai un formulaire avec un login qui est = à tigramme et un mot de passe qui est = à PASWD
une table T_USER
quand je clique sur ok, j'ai une erreur 3061 qui bloque sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rs = CurrentDb.OpenRecordset(sql)

Voici le code que j'ai mis sur click[LIST=1]

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
16
17
18
19
20
21
Private Sub Commande1_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USER WHERE TRIGRAMME = '" & Me.user & "' AND PASWD = '" & Me.pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "F_CONNEXION"
  User_id = rs("TRIGRAMME").Value
  User_groupe = rs("GROUPE").Value
Else
  MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez depasse le nombre de tentatives autorisees", vbCritical
DoCmd.Quit
End If
End Sub

J'ai essayé plusieurs choses mais sans succès et je ne suis pas doué en VBA.

Auriez-vous une idée sur le problème ?
merci d'avance
Cordialement

[hyperion13]

Salut
Il serait bon d'indiquer le lien source pour nous faciliter le travail. Le Lien.
Votre erreur doit se situer en L12. Je suppose selon les éléments que vous donnez que le champ GROUPE n'existe pas dans votre table. Vous l'avez nommé PASWD

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
16
17
18
19
20
21
Private Sub Commande1_Click()
Me.Requery
Dim sql, User_id, User_pswd As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USER WHERE TRIGRAMME = '" & Me.User & "' AND PASWD = '" & Me.pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
    DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal
    DoCmd.Close acForm, "F_CONNEXION"
    User_id = rs("TRIGRAMME").Value
    User_pswd = rs("PASWD").Value
Else
    MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
    i = i + 1
End If
If i = 3 Then
    MsgBox "Vous avez depasse le nombre de tentatives autorisees", vbCritical
    DoCmd.Quit
End If
End Sub

[jaquot14]

Bonjour hyperion13,
Merci de me répondre,
j'ai bien un champ groupe dans la table
j'ai essayé de faire les changement que tu m'as donnés, mais toujours le même résultat.
c'est la ligne 7 qui est en surbrillance.
Faut il créer une requête sql et si oui, comment?
merci, décidément je ne suis pas doué.

cordialement

[hyperion13]

Dans l'environnement vba (Alt F11), avez-vous vérifié que la référence (Outils - Références) Ms DAO 3.6 object Library est activée ?

[jaquot14]

un très très grand merci à toi Hyperion13, ton code fonctionne parfaitement.
je vais quand même essayer de comprendre pourquoi celui que j'avais ne fonctionné pas
je n'aime pas rester sur un échec, je verrai cela à des heures perdues.

encore un très grand merci.

Cordialement
Jac

[jaquot14]

bonjours à tous,

j'avais marqué résolu un peu trop vite, le code de hyperion fonctionne bien, mais j'ai oublié une chose:
si on a plusieurs utilisateurs avec un mot de passe chacun, il en découle que je doit ouvrir un formulaire différent.
je pense que cela doit être possible avec le champ (groupe) de la table USER, j'ai essayé mais je n'ai pas encore trouvé.

Si quelqu'un a une idée, je suis preneur.

Merci à tous
Cordialement

[hyperion13]

Le plus simple consisterait à ajouter un champ dans la tbl User dans lequel vous enregistrer le nom du form à ouvrir pour chacun des users.

[jaquot14]

Merci hyperion13 de votre réponse qui me semble très bien, je vais tester sur ma base et je remet un post pour la réponse.
cordialement
Jac

[jaquot14]

Bonjour à tous,

Merci Hyperion13 pour votre réponse avec le nom du formulaire à ouvrir, c'est parfait et c'est ce qu'il me fallait.

j'ai un autre problème pour enregistrer des données dans une autre base de donnée mais je vais créer une nouvelle discussion car cela n'a rien à voir avec le sujet actuel.
cette nouvelle discussion sera intitulée: enregistrement autre base de donnée.

Merci à tous