Discussion :

[l-dag]

Bonjour à tous,

J'ai quasiment terminé ma base de données et je voudrais la sécuriser ; mais je n'ai jamais fait cela sauf pour y intégrer un mot de passe.

Au départ je voulais que seuls l'administrateur puisse modifier ou ajouter des enregistrements.

Finalement, je vais faire plus simple : je vais créer un bouton de commande sur ma page d'accueil "administrateur" où seul l'administrateur pourra accéder pour ajouter des enregistrements. Par conséquant j'aimerais intégrer à mot de passe à ce bouton, est-ce possible ?

Merci de votre attention et de votre aide par avance.

Cordialement,

[mout1234]

Bonjour,

Si tu n'as pas besoin d'une sécurité élevée, tu peux simplement créer un formulaire de connexion et te permettre ainsi d'identifier l'utilisateur en cours et les droits correspondants en les référençant dans une table d'utilisateurs.

à voir à ce sujet dans la faq: http://access.developpez.com/faq/?page=TAAdmin#login

[l-dag]

Re,

Merci pour tes indications,

J'ai rentré le code suivant :

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 connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe   As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Table_Identifiant WHERE Id_administrateur = \'" & Me.txt_user & "\' AND Mot_de_passe =\'" & Me.txt_pass & "\';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "Formulaire de connexion"
  User_id = rs("Id_administrateur").Value
  User_groupe = rs("Societe").Value
Else
  MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub

Sachant que ma table se nomme "table_identifiant", elle est composé des champs : "id_administrateur", "nom", "prenom", "societe" et "mot_de_passe".

Mon formulaire s'appelle "Forulaire de connexion"

J'ai suivi toutes les indications de la FAQ mais cela ne marche pas..

Cordialement,

[l-dag]

Re,

J'ai réassayé toute l'après midi mais sans succès.

Pourtant j'ai refait la manip' en recopiant exactement le meme code que dans la FAQ, avec la meme table (que j'ai rempli).

Je pense que je me trompe sur le formulaire connexion. Il faut bien créer un nouveau formulaire, mettre le bouton connexion (que j'ai mis en lien vers mon formulaire "affaires" pour essayer), et entrer le code donné dans la FAQ dans l'évènement "sur clic" ?

[mout1234]

Bonjour,

cela ne marche pas

c'est vague


Sauf erreur de ma part, il ne faut pas mettre de \

Code :

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

sql = "SELECT * FROM Table_Identifiant WHERE Id_administrateur = '" & Me.txt_user & "' AND Mot_de_passe ='" & Me.txt_pass & "';"

AU fait, erreur classique: en vba ne pas déclarer ainsi:

Code :

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

Dim sql, User_id, User_groupe   As String

Car dans ce cas, sql et User_ID sont de type VARIANT

Code :

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

Dim sql as string , User_id as string, User_groupe   As String

Pour ma part je place toujours une seule variable par ligne et je place des tabulations avant le AS pour aligner

Code :

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

1
2
3
4
 
Dim sql                as string
Dim User_id          as string
Dim User_groupe   As String

[l-dag]

J'ai a nouveau rentré un code, sans succès encore!

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 connexion_Click()
Me.Requery
Dim sql As String, User_id As String, User_groupe   As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Administrateur WHERE Identifiant = '" & Me.txt_user & "' AND Mot_de_passe ='" & Me.txt_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "Formulaire_administrateur", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "Connexion_administrateur"
  User_id = rs("Identifiant").Value
  User_groupe = rs("Societe").Value
Else
  MsgBox "(Identifiant, Mot_de_Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub

Sachant que j'ai crée un formulaire "connexion_administrateur" basé sur la table "administrateur".
Le bouton (connexion) est sur ce formulaire et doit ouvrir le formulaire : "formulaire_connexion". Or lorsque j'appuie dessus, on me dit :
"l'expression sur clic entrée....est une erreur."

Je ne sais pas pourquoi alors que j'ai bien rempli mon code, suivant tes conseils!

[mout1234]

Bonjour,


Y a des chances qu'il y ait une erreur de syntaxe quelque part dans ton code... pas forcément sur le code du bouton... Compile ton code pour contrôler