[Debutant] Formulaire login mot de passe [Résolu]

[Oliviers]

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

[Dolphy35]

Salut,

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

Dolphy

[Oliviers]

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

[Heureux-oli]

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 :

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

[Oliviers]

Merci a vous deux pour le coup de main.