[VBA-A]probleme de mot de passe
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:
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
impossible de valider sans erreur
voici le code deja vu au paravent
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Private Sub connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As ADODB.Recordset
Static i As Byte
sql = "SELECT * FROM T_USER WHERE TRIGRAMME = '" & Me.txt_user.Text & "' AND PASSWD ='" & Me.txt_pass.Text & "';"
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 |
mon message d'erreur qui est toujour le meme cad imcompatibilite de type n'arrete pas d'apparaitre au niveau niveau de mon sql cad la 7emme ligne de code a savoir:
Code:
Set rs = CurrentDb.OpenRecordset(sql)
merci de m'aider
Hello, tu devrais lire le message mis par ThierryAim sur ton premier post? à propos des balises :wink:
Re: impossible de valider sans erreur
Bonsoir lumbroso,
Pb hyper classique... toujours la même confusion entre les bibliothèques ADO et DAO...
Concernant l'objet RS, tu devrais opter pour la bibliothèque DAO (et aussi vérifier qu'elle est effectivement référencée :wink: ):
Code:
Dim rs As DAO.Recordset
Pour info, CurrentDb retourne un objet de type DAO.Database.
Allez, bon courage....
[vab - a] probleme sur mot de passe
bonjour a tous
je sais vous allez me dire que je radote mais apres plusieur tests concernant le code si joint le message d'erreur n° 3061 apparait c'est a dire "trop peut de paramètres. 2 attendu"
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Me.Requery
Dim sql, securite, NomUtilisateur, MotDePasse As String
Dim rs As ADODB.Recordset
Static i As Byte
sql = "select * from securite where NomUtilisateur= '" & _
Me.Txt_NomUtilisateur & "' and MotDePasse = '" & Me.Txt_Password & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "Form_menu gene", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "securite"
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 |
et en mode débugage c'est toujour au niveau
Code:
1 2
|
Set rs = CurrentDb.OpenRecordset(sql) |
que le probleme se presente je comprend rien
[vab - a] probleme sur mot de passe
meme en enlevant le ; le message est identique je ne compred pas
[VBA-A] probleme sur mot de passe
=JBO= bonsoir
j'ai essayer de mettre ce que tu ma dit de faire a savoir
Code:
1 2
|
Dim rs As DAO.Recordset |
mais a parament le DAO n'est pas reconnu il ne me le propose pas
as tu une autre idee??
[vab - a] probleme sur mot de passe
je ne pense pas que la reference DAO est activéé et j'utilise la version 2000 pro comment fait on pour l'active
[vab - a] probleme sur mot de passe
je suis desole mais sur l'option outil je n'est pas references est ce normal
[vab - a] probleme sur mot de passe
quand je suis su rle module j'ai effectivement l'opion reference mais ya un mot de passe que je n'est jamais mis y a un par defaut??