[VBA-A]probleme de mot de passe

c bon j'ai fais une copie de ma base et j'ai activé l'option DAO 3.6
mais le probleme est le meme je te reme le code que j'ai

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Me.Requery Dim sql, securite, NomUtilisateur, MotDePasse As String Dim rs As DAO.Recordset Static i As Byte sql = "select * from securite where NomUtilisateur= '" & Me.Txt_NomUtilisateur.Value & "' and MotDePasse = '" & Me.Txt_Password.Value & "';" 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

---

l'erreur arrive toujour au meme endroit à savaoir:

Code:

---

1 2	Set rs = CurrentDb.OpenRecordset(sql)

---

"erreur 3061 trop peu de parametres. 2 attendu."

bon enleve le ";" à la fin...... histoire de...

envoi la requête contenu dans variable SQL.. pour cela tu peu rajouter une ligne

Code:

---

1 2 3 4

... debug.print sql Set rs = CurrentDb.OpenRecordset(sql)

---

puis faire un copier/coller du texte dans fenêtre exécution...

je te remerci ca marche enfin merci

http://www.developpez.net/forums/sho...452#post982452

Citation:

---

Envoyé par lumbroso

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

---

Euh... Faudra qu'on m'explique là...

Citation:

---

Envoyé par AlainTech

http://www.developpez.net/forums/sho...452#post982452

Euh... Faudra qu'on m'explique là...

---

oui il devait être identique.. mais à quoi surement pas au message "trop peu de paramétres.." mais plutôt au message initial "incompatibilité de type" :roll: enfin ... j'imagine..

Enfin, le principal c'est que ce soit :resolu:

et fais-moi plaisir, juste pour prendre de bonnes habitudes, dimensionne tes variables correctement :

Code:

---

Dim sql, securite, NomUtilisateur, MotDePasse As String

---

=

Code:

---

1 2 3 4

Dim sql As Variant Dim securite As Variant Dim NomUtilisateur As Variant Dim MotDePasse As String

---

on n'est pas en Delphi, alors stp :

Code:

---

Dim sql As String, securite As String, NomUtilisateur As String, MotDePasse As String

---

c'est beaucoup mieux ;)

je vous remerci et je prend note pour l'avenir