[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

quelles sont les type de données dans ta base pour TRIGRAMME et PASSWD ?

et je préfèrerais Me.text_user.Text, en VBA, la propriété par défaut d'une textBox c'est Value, pas Text comme en VB6

Salut,

Lorsque tu mets la valeur de tes champs faits

Code:

---

1 2	Me.txt_user.value

---

Déjà dans un premier temps


Starec

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:

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....

uu

Citation:

---

Envoyé par lumbroso

uu

---

Je comprends pas la question ? cela ve dire quoi ... uu ? :?:?

bon plutôt que de poster des message de "up" qui n'apportent rien ... essai de comprendre ce que t'as répondu =JBO= ...! et si tu as pas compris ou si cela ne résoud pas ton probléme demande des précisions...

lumbroso a écrit :
uu

Citation:

---

Envoyé par bbil

Je comprends pas la question ? cela ve dire quoi ... uu ? :?:?

---

Faudra que tu patiente un peu, bbil. Si je calcule bien, tu auras ta réponse dans un mois et demi :mouarf:

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

Essaye de supprimer le ; à la fin.

Non testé.

meme en enlevant le ; le message est identique je ne compred pas

Citation:

---

Envoyé par lumbroso

meme en enlevant le ; le message est identique je ne compred pas

---

et lis tu les réponses qui te sont données ? je ne vois nulle part ou tu dis que la solution donnée ici ne fonctionne pas ?

voir la aussi :?

=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??

quelle est ta version d'access SVP.., la référence à DAO est-elle activée..
tiens un peu de lecture dans msdn

je ne pense pas que la reference DAO est activéé et j'utilise la version 2000 pro comment fait on pour l'active

ben pour les références, habituellement c'est dans le menu outils de l'éditeur VBE

Citation:

---

Envoyé par bbil

ben pour les références, habituellement c'est dans le menu outils de l'éditeur VBE

---

Tout à fait exact :
Menu Outils >> Références : cocher Microsoft DAO 3.6 Object Library



(Pardon bbil, j'ai édité ton message par erreur, suis mal reveillé :oops: )

je suis desole mais sur l'option outil je n'est pas references est ce normal

Citation:

---

Envoyé par lumbroso

je suis desole mais sur l'option outil je n'est pas references est ce normal

---

? quand tu est dans un module ...?

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??