bonjour pourquio lorsque je met ce code le message incompatibilité de type apparait ??
le projet est en vba et est sur access c'est au niveau de la requette que le message d'erreur m'apparait merci de votre aide


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
22
23
24
25
 
Private Sub connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe   As String
Dim rs As ADODB.Recordset
Static i As Byte
sql = ""
sql = sql & "SELECT * FROM T_User WHERE TRIGRAMME = '" & Me.txt_user & "' "
sql = sql & "AND PASSWD ='" & Me.txt_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
 
If Not rs.EOF Then
  DoCmd.OpenForm "[Form_menu gene]", 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
Edité par ThierryAIM : lorsque vous utilisez les balises de mise en forme, veillez à ce que la case "Désactiver le bbCode" soit décochée sous votre message