VBA:Un code qui ne marche pas!

Question

salut a tous!
voila mon pb:
T_User(login,mot_de_passe)
je voudrait que sur clic au boutons connexion,si le login et le mot de pase sont correct,le formulaire FM_Evaluation s'ouvre sinono au bout d'une 3eme tentitive le programme s'arrete.
mais il me dit erreur:type definie par l'utilisateur non definie au niveau de dim bd as database

Private Sub connexion_Click()
Dim Sql As String
Dim rs As Recordset
Static i As Byte
Dim bd As Database ----> c ici l'erreur

Set rs = bd.OpenRecordset(Sql)
Sql = "SELECT login,[mot_de_passe] FROM T_User WHERE login = '" & Me.txt_user & "' AND [mot_de_passe]='" & Me.txt_pass & "';"

If Not rs.EOF Then
DoCmd.OpenForm "FM_Evaluation", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_CONNEXION"
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
Me.Requery
End Sub

Utilisateur anonyme · Answer

Bonjour,Vérifie si tu as des références manquantes, si oui décoches les. Vérifies que la référence m$ dao est bien cochée et mets la le + haut possible...

sergeszebe · Answer

je l'ai fait mais ça n'a rien changé j'ai coché DAO 3.6 onbjet library et j'ai mie le plus haut possible.

Utilisateur anonyme · Answer

Re,mets alors :Dim bd As dao.DatabaseCa marche ?

sergeszebe · Answer

non il me met erreur 91veriable objet ou variable de bloc with non definieau niveau de set rs=bd open recorset

Utilisateur anonyme · Answer

Bon, il faut mettre dao aussi sur ton rs je pense.Donc : Dim rs As dao.Recordset

sergeszebe · Answer

eh! oui je l'ai oublié mais bon ça ne marche toujours pas ça met l'erreur 91 que j'ai enoncé au dessus.c'est vraiment chiant

Utilisateur anonyme · Answer

tu peux remettre ton code modifié que l'on y voit plus clair STP ?

sergeszebe · Answer

Private Sub connexion_Click()
Dim Sql As String
Dim rs As DAO.Recordset
Static i As Byte
Dim bd As DAO.Database
Set db = CurrentDb
Set rs = bd.OpenRecordset(Sql)
Sql = "SELECT login,[mot_de_passe] FROM T_User WHERE login = '" & Me.txt_user & "' AND [mot_de_passe]='" & Me.txt_pass & "';"
If Not rs.EOF Then
DoCmd.OpenForm "FM_Evaluation", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_CONNEXION"
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
Me.Requery
End Sub

Utilisateur anonyme · Answer

Re,Je pense que l'on va y arriver :O)Tu mets :Set rs = bd.OpenRecordset(Sql) et ensuite tu mets sql="....."Ca ne peut pas aller, faut lui dire avant ce que contient ton sql.

sergeszebe · Answer

bah! c ce que j'ai fait avant mais teebo m'a dit que c'est en l'envers il faut mettre  le set avant le sql.

Utilisateur anonyme · Answer

Si tu lui dit Set rs = bd.OpenRecordset(Sql) , il contient quoi le rs ?
Que neni, nada, il ne connait pas sql, il sait juste que c'est une chaine de caractère, plus précisemment que tu l'as déclaré en tant que telle.

Alors ça donne quoi ?

Utilisateur anonyme · Answer

Non, Teebo t'as dit ce que je t'ai dit ici : http://www.commentcamarche.net/forum/affich-2108400-vba-formulaire-securise#5Alors ca tourne ?

sergeszebe · Answer

ça tourne pas les gard!franchement je comprend plus rien une journée entierre! je suis bete ou c'est difficile à faire

Utilisateur anonyme · Answer

Bon, tu as un message d'erreur ?

sergeszebe · Answer

penses-tu qu'il faut deja egaler les valeur de login et mot de passe dans la requette?
on peut simplement dire

sql=select login,mot_de_passe from T_User!
et apres on dira
if not EOF T_User
move first
if
txtlogin=login and txtmp=mp
alors open
sinon
msg erreure
i=i+1
movenext.......
pour i=3 quit

sergeszebe · Answer

oui!
erreur 91 variable objet ou variable de bloc with non definie:

Private Sub connexion_Click()
Dim Sql As String
Static i As Byte
Dim bd As Database
Dim rs As Recordset
Set db = CurrentDb
Sql = "SELECT login,[mot_de_passe] FROM T_User WHERE login = '" & Me.txt_user & "' AND [mot_de_passe]='" & Me.txt_pass & "';"
Set rs = bd.OpenRecordset(Sql)----> ICI
If Not rs.EOF Then
DoCmd.OpenForm "FM_Evaluation", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_CONNEXION"
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
Me.Requery
End Sub

teebo · Answer

J'ai jamais dit de mettre dans ce sens!Et ensuite tu comprendrais peut être un peu mieux si tu n'avais pas posé deux fois la même question!

sergeszebe · Answer

j'ai fais le copier collé ça affiche :l'erreur 91 :variable objet ou variable de bloc with non definie: au meme endroit  Set rs = bd.OpenRecordset(Sql)

Utilisateur anonyme · Answer

Bon, je comprends pas là :-(Change la ligne qui génère l'erreur par :Set rs = bd.OpenRecordset("SELECT login,[mot_de_passe] FROM T_User ",dbOpenDynaset, dbReadOnly)

Utilisateur anonyme · Answer

Putain, j'ai de la peau de sosse devant les yeux !!!!!!!
Je t'ai dis de mettre :
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb

Corriges celui que tu veux, mais les 2 doivent être pareil...

Lust · Answer

Ouah le foutoir la dedans, j'ai pas eu le courrage de tous lire, enfin bon, tu travail sous Access, alors prends ADO et pas DAO pour commencer, respecte aussi une nomenclature un peu plus rigoureuse. Enfin bon, voila comment j'écrirais perso ton code, mais en ADO :Private Sub connexion_Click()Dim strSql As StringStatic i As ByteDim rst As RecordsetstrSql = "SELECT login, mot_de_passe FROM T_User WHERE login = " & """" & Me.txt_user & """" & " AND [mot_de_passe]=" & """" & Me.txt_pass & """"Set rst = New ADODB.Recordsetrst.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnlyIf Not rst.EOF ThenDoCmd.OpenForm "FM_Evaluation", acNormal, , , , acWindowNormalDoCmd.Close acForm, "F_CONNEXION"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Voila, si ca ne marche pas, vérifie ta requete

Lust · Answer

ecoute, si tu veux que ca marche, zip la bdd et envoie moi ca à sebdoucet@free.fr...

sergeszebe · Answer

tiens !à l'ouverture du formulaire acceuil le mt de passe est idheo.si tu veux te balader c'est www.idheo.com

sergeszebe · Answer

Voila enfin le bon code! ça pourra aider les autres.Dim msg As String, Titre As String, defval As StringDim sql As StringDim bd As DatabaseDim Enreg As RecordsetSet bd = CurrentDb()sql = "Select login, mot_de_passe From T_User Where login = " & """" & Me.txtlogin & """" & " AND mot_de_passe = " & """" & Me.txtpass & """"'sql = "select distinctrow login,mot_de_passe from T_User "Set Enreg = bd.OpenRecordset(sql)If Enreg.EOF ThenMsgBox ("ereur")ElseDoCmd.OpenForm "FM_Evaluation"End IfEnd Sub

VBA:Un code qui ne marche pas!

24 réponses

Discussions similaires

Newsletters