[VBA-A]probleme de mot de passe

**lumbroso** · 05/04/2006, 10h10

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

**ThierryAIM** · 05/04/2006, 10h29

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

Invité · 05/04/2006, 10h30

Salut,

Lorsque tu mets la valeur de tes champs faits

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me.txt_user.value

Déjà dans un premier temps

Starec

**lumbroso** · 06/04/2006, 00h14

voici le code deja vu au paravent

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

**=JBO=** · 06/04/2006, 00h25

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

):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim rs As DAO.Recordset

Pour info, CurrentDb retourne un objet de type DAO.Database.

Allez, bon courage....

**lumbroso** · 21/05/2006, 07h43

uu

**SfJ5Rpw8** · 21/05/2006, 08h59

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

**ouskel'n'or** · 21/05/2006, 10h15

lumbroso a écrit :
uu

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

**lumbroso** · 23/05/2006, 17h00

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set rs = CurrentDb.OpenRecordset(sql)

que le probleme se presente je comprend rien

**AlainTech** · 23/05/2006, 21h17

Essaye de supprimer le ; à la fin.

Non testé.

**lumbroso** · 24/05/2006, 00h00

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

**SfJ5Rpw8** · 24/05/2006, 10h08

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

**lumbroso** · 24/05/2006, 23h56

=JBO= bonsoir
j'ai essayer de mettre ce que tu ma dit de faire a savoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SfJ5Rpw8** · 24/05/2006, 23h58

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

**lumbroso** · 25/05/2006, 08h08

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

**SfJ5Rpw8** · 25/05/2006, 08h15

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

**ThierryAIM** · 25/05/2006, 11h45

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é

)