[Debutant] Formulaire login mot de passe

Bonsoir
voila,j'ai recupere le code suivant dans la faq
http://access.developpez.com/faq/?page=TAAdmin#login

le code plante sur la ligne

Code:

---

Set rs = CurrentDb.OpenRecordset(sql)

---

le debugprint me dit qu'il manque un parametre.

Merci d'avance pour un coup de main

Salut,

Peux-tu nous mettre ton code complet ou nous mettre à quoi correspond sql

Dolphy ;)

Voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub cmd_logga_in_Click() Me.Requery Dim sql, User_id, User_groupe As String Dim rs As DAO.Recordset Static i As Byte sql = "SELECT * FROM tbl_USERS WHERE TRIGRAMME = '" & Me.txt_user & "' AND PASSWD ='" & Me.txt_Password & "';" Set rs = CurrentDb.OpenRecordset(sql) If Not rs.EOF Then DoCmd.OpenForm "frm_Transaktion", acNormal, , , , acWindowNormal DoCmd.Close acForm, "frm_Dialog" 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és", vbCritical DoCmd.Quit End If Debug.Print   End Sub

---

L'erreur vient de la table, le champ dans la table est Password, alors que dan sla requête, c'est passwd.

Deux options, tu modifie la table, ou le SQL

Code:

---

sql = "SELECT * FROM tbl_USERS WHERE TRIGRAMME = '" & Me.txt_user & "' AND PASSWORD ='" & Me.txt_Password & "'"

---

:oops:

Merci a vous deux pour le coup de main.

Aider moi SVP à créer un formulaire basé sur ce principe et qui permet aux utilisateurs de MODIFIER LEUR LOGIN et les MOT DE PASSE.


Merci bien à tous