Discussion :

[vins86]

Bonjour,

Je suis nouveau sur le forum, et débutant.

J'aurais besoin de vous. Je ne trouve pas de modèles modifiable

un formulaire utilisateurs et mot passe et bouton valider.

Une table permet de rentrer, supprimer ou modifier les utilisateurs et mot de passe

quand on clique sur un bouton valider, si les champs sont mauvais, message d'erreur
et si les champs sont bon, la page d'accueil définis pour l'utilisateur s'ouvre

J'espère avoir de l'aide de votre part.

Cordialement,

vins86

[Invité]

Bonjour
Un bon début ici:
http://access.developpez.com/faq/?page=TAAdmin#login

[vins86]

Bonjour,

Justement je l'ais déjà vu.

Mais je n'arrive pas à le mettre en place que des messages d'erreur et rien se fait.

Cordialement.

[Invité]

As tu déjà créé la table correctement.
Ensuite il ne faut pas dire qu'il y a des messages d'erreur... Il faut dire lesquels et où et quand.

[vins86]

J'ai bien créer la table mais rien se fait quand je clique sur connexion rien se passe.

[Invité]

As tu créé le formulaire avec les deux zones de texte indépendantes "txt_user" et "txt_pass" ainsi que le bouton "connexion" ?

[vins86]

Oui je l'ais fait le formulaire.

[Invité]

Oui mais encore.
On veut bien t'aider, mais il faudrait plus de détails sur ce qui ne va pas.
Je viens d'essayer comme ce qui est indiqué et cela fonctionne.

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 T_USERS WHERE TRIGRAMME = '" & Me.txt_user & "' AND PASWD ='" & Me.txt_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "NOM_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 dépassé le nombre de tentatives autorisées", vbCritical
DoCmd.Quit
End If
End Sub

Ton formulaire s'appelle bien "F_CONNEXION" et est bien indépendant?


Il faut également remplacer "NOM_FORMULAIRE" par le nom du formulaire qui devra s'ouvrir si la condition est remplie.

[vins86]

Je vais essayer. Comme vous avez dit. escusez-moi pour le peu d'information. La connexion était basse.

Je vous retiens au courant de se que j'ai. Merci des informations.

[f-leb]

bonsoir,

Code :

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

sql = "SELECT * FROM T_USERS WHERE TRIGRAMME = '" & Me.txt_user & "' AND PASWD ='" & Me.txt_pass & "';"

quelqu'un s'est posé la question de savoir ce qui se passe lorsque le mot de passe rentré est du genre:

nimportequelmotdepasse' OR 'a'='a

?

[vins86]

Bonsoir,

je viens de faire tout se qu'il est marquer et un message d'erreur me dit:

Erreur d'éxécution '3078':

le moteur de base de données microsoft access ne peut pas trouver la table ou la requête source << T_User >>. Assure-vous qu'elle existe et qu'elle est correctement orthographiée.

Voilà si cela peut aider.

Je galère un peu.

Merci encore et bonne soirée.

[vins86]

Bonjour,

J'ai enfin réussi. Sa marche niquel, j'avais mal renommer ma table.

Grand merci de ta part.

Cordialement..

[vins86]

Maintenant, si possible, je voudrais que chaque utilisateur ouvre sa propre page.

Cordialement,

[f-leb]

bonjour,

qu'entends-tu par "ouvrir sa propre page" ?

Ouvrir un formulaire dépendant sur l'enregistrement correspondant peut être ? Un truc comme:

Code :

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

DoCmd.OpenForm "NomDuFormulaire", , ,"TRIGRAMME = '" & rs("TRIGRAMME").Value & "'"

[vins86]

je voudrais que chaque utilisateur ouvre son formulaire avec ses propres données

ou mettre se code?

merci beaucoup.

Cordialement,

[f-leb]

ou mettre ce code?

a priori à la place de la ligne 9 dans le code de GAYOT

[vins86]

a priori à la place de la ligne 9 dans le code de GAYOT

Oui. C'est bon. sa marcher. Merci Beaucoup