Discussion :

[David1259]

Bonjour le forum

je voudrais bloquer un formulaire par un mot de passe et login
j'ai donc fait une recherche dans FAQ Access

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 "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 dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub

j'ai créé 2 formulaires F_CONNEXION et F_Autre_Formulaire
j'ai fais dans F_CONNEXION 2 zones de texte et 1 bouton
et quand je rentres le login "SED" et le mot de passe "root"
il met un message erreur et la ligne dans vba en jaune

Code :

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

Set rs = CurrentDb.OpenRecordset(sql)

je ne trouve pas mon erreur
où alors ça ne fonctionne pas sur access 2007

Merci d'avance
David @+

[Pierre Fauconnier]

Bonjour

Les barres \ sont de trop et empêchent le moteur SQL d'interpréter correctement la chaine SQL.

[David1259]

Bonjour et merci Pierre Fauconnier
exacte les barre en trop et en plus une autre petite erreur
nom de la table différent que vba "T_User" et "T_USERS"
merci beaucoup