Discussion :

[Gloirez]

Bonjour,

Je suis bloquée sur un syntaxe qui sera sûrement facile pour vous.
J'ai en effet le code suivant qui demande à l'utilisateur d'entrer un mot de passe via un input box et si le mot de passe est correct exécute les lignes de codes. Ce code marche très bien.

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 Bouton_Click()
Dim rst As DAO.Recordset
Dim sSQL As String ' Ouverture de la base de données
Dim v As Variant
strReponse = InputBox("Veuillez saisir votre mot de passe !!", "Identification")
sSQL = "Select * From table2 where [np]='vo jacques'"
 'open
Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
'traitement
Do Until strReponse = v
         v = rst![CP]
         rst.MoveNext
    If strReponse = v Then
         sql1 = "Delete * FROM [TAB]"
         DoCmd.RunSQL sql1
         MsgBox " les données ont été exportées"
      End If
Loop 
'close
rst.Close
End Sub

Je souhaiterai par contre dans le cas où le mot de passe est incorrect afficher un msgbox" le mot de passe est incorrect".

Mon souci est que : je ne sais pas où placer le code.

J'ai essayé de le mettre dans la boucle comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Do Until strReponse = v
         v = rst![CP]
         rst.MoveNext
    If strReponse = v Then
         sql1 = "Delete * FROM [TAB]"
         DoCmd.RunSQL sql1
         MsgBox " les données ont été exportées"
      End If
  If strReponse <> v Then
   MsgBox" le mot de passe saisi est incorrect"
End if
Loop

Le code marche mais le msgbox " le mot de passe incorrect est affiché plusieurs fois".

Je sais que çà pas ne pas être très claire , je suis disponible pour détailler un peu plus si besoin.

Merci d'avance

[syrald]

Bonjour,

Si j'ai bien compris, tu récupère des lignes d'une table par rapport à un utilisateur, et tu teste chacune d'entre elle avec le mot de passe que tu as rentré avant la boucle.
Là où tu as écris le code pour dire que le mot de passe est incorrect, comme il est à l'intérieur de la boucle qui vérifie toutes les lignes, il s'affiche donc bien à chaque ligne (sauf celle où le mot de passe est correct).

Toi ce que tu aimerais, c'est qu'il exécute le code pour chaque élément de la table si le mot de passe est le bon, et qu'il affiche le message si aucun d'entre eux n'a ce mot de passe c'est ça?
Si c'est le cas, tu prends le problème de travers. Au lieu de récupérer toutes les lignes de la table pour un utilisateur et de regarder si le mot de passe est le bon pour l'un d'eux, pourquoi ne pas:
-Faire ta requête directement avec le mot de passe
-Regarder si tu as bien des lignes qui correspondent à ce critère
-Exécuter ton code pour chacune des lignes qui ont ce mot de passe
-Afficher ton message d'erreur si aucune ligne n'a ce mot de passe

[Gloirez]

Bonjour syrald,
Merci pour ton retour.
J'ai rien à ajouter sur ta description , c'est bien ce que je souhaite avoir.
Je ne sais pas par contre comment s'y prendre avec tes propositions suivantes:

Faire ta requête directement avec le mot de passe
-Regarder si tu as bien des lignes qui correspondent à ce critère
-Exécuter ton code pour chacune des lignes qui ont ce mot de passe
-Afficher ton message d'erreur si aucune ligne n'a ce mot de passe

Merci de m'éclairer d'avantage

[syrald]

Je te donne la marche à suivre pour que tu le fasses toi même et que tu comprennes mieux de ton côté

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
 
Private Sub Bouton_Click()
Dim rst As DAO.Recordset
Dim sSQL As String ' Ouverture de la base de données
 
strReponse = InputBox("Veuillez saisir votre mot de passe !!", "Identification")
sSQL = "Select * From table2 where [np]='vo jacques AND [CP]='" & strReponse "'"
 
rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
If rst.RecordCount <> 0 Then
   'Là tu fais ton code sur chaque ligne, tu sais que le mot de passe est bon
Else
   'Là tu n'a eu aucune ligne avec ce mot de passe, tu peux afficher ta MsgBox
End If
 
rst.Close
End Sub

[Invité]

Code :

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

1
2
set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
if rst.eof then msgbox "ha ha ha!" : exit sub

Code :

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

1
2
3
4
5
6
7
8
9
do while not rst.eof
    
    If strReponse = rst![CP] Then
        CurrentDb.execute "Delete * FROM [TAB]"
        MsgBox " les données ont été exportées"
        exit do
      End If        
 rst.movenext
loop

[Gloirez]

Bonjour ,

Merci pour vos retours et du temps consacré à mon problème.

syrald : J'ai essayé comme tu me l'as proposé de faire mon code sur chaque ligne mais rien ne marche, j'ai encore un niveau débutant sur vba, sql.

Code :

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

1
2
If rst.RecordCount <> 0 Then
   'Là tu fais ton code sur chaque ligne, tu sais que le mot de passe est bon

dysorthographie : Merci pour ton code mais çà le même effet que mon code proposé tout au début.
Mon problème persiste, j'ai pas de msgbox " mot de passe incorrect" lorsque le mot de passe saisi est incorrect.
Rien ne se passe lorsqu'un mot de passe incorrect est saisi.
Faut -il que je revois la ligne de code suivante:

Code :

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

if rst.eof then msgbox "ha ha ha!" : exit sub

Merci de m'élucider.

Merci encore du temps.

[syrald]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If rst.RecordCount <> 0 Then
   While Not rst.EOF
      CurrentDb.execute "Delete * FROM [TAB]"
      MsgBox " les données ont été exportées"
      rst.MoveNext
   Wend
Else
   MsgBox" le mot de passe saisi est incorrect"
End If

Ce code là part du principe que ta requête peut donner plusieurs lignes (si le mot de passe est même pour cet utilisateur pour plusieurs lignes).
Mais si ça n'arrive jamais, tu peux enlever le While, le rst.MoveNext et le Wend.

[Gloirez]

Merci syrald pour ton code.
J'ai bien un message lorsque le mot de passe saisi est incorrect mais c'est pareil que mon premier poste : le message s'affiche plusieurs fois et c'est ce que je voulais éviter.

Code :

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

1
2
3
4
5
6
7
8
9
If rst.RecordCount <> 0 Then
   While Not rst.EOF
      'CurrentDb.Execute "Delete * FROM [TAB]"
      MsgBox " les données ont été exportées"
      rst.MoveNext
   Wend
Else
   MsgBox " le mot de passe saisi est incorrect"
End If

merci encore

[syrald]

Quel message s'affiche plusieurs fois? Les données ont été exportées ou Le mot de passe saisi est incorrect?

C'est normal si c'est le premier qui s'affiche plusieurs fois. Si tu ne veux pas, tu déplaces la ligne MsgBox "Les données ont été exportées" juste après le Wend
Si c'est le deuxième c'est que tu n'as pas écris la même chose que moi ^^

[Gloirez]

Merci syrald pour ton retour rapide ,
C'est le message" Les données ont été exportées " qui s'affichait plusieurs fois, je l'ai donc enlevé de la boucle While.
Par contre ton msgbox " le mot de passe saisi est incorrect " n'est jamais exécuté , ne s'affiche jamais.
Avez vous essayé de mettre un mot de passe incorrect pour voir la réponse?


MERCI

[syrald]

Je ne l'ai pas essayé, mais normalement il devrait fonctionner!
Est-ce que ça marque "Les données ont été exportées" quand tu met un mauvais mot de passe?

Si c'est le cas remplace If rst.RecordCount <> 0 Then par If Not rst.EOF Then

[Gloirez]

Merci,

Est-ce que ça marque "Les données ont été exportées" quand tu met un mauvais mot de passe?
oui c'est ce qui est marqué à la saisie d'un mauvais mot de passe.

Si c'est le cas remplace If rst.RecordCount <> 0 Then par If Not rst.EOF Then

Je l'ai remplacé et j'ai toujours le message "Les données ont été exportées" au lieu d'avoir " mot de passe saisi incorrect".
Le else n'est toujours pas exécuté.

[Invité]

Bonjour,
tu te prend la tête pour rien!

Code syrald adapté! :

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

1
2
3
4
5
6
7
8
strReponse = InputBox("Veuillez saisir votre mot de passe !!", "Identification")
sSQL = "Select * From table2 where [np]='vo jacques' AND [CP]='" & strReponse & "'"
Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
If rst.EOF Then
    MsgBox " le mot de passe saisi est incorrect"
Else
    MsgBox " les données ont été exportées"
End If

[Gloirez]

Bonjour,

C'est génial, dysorthographie : ton code marche très bien !!!

Je tenais à vous remercier syrald et dysorthographie .
Merci pour tout le temps passé à la recherche d'une solution.

Merci aux administrateurs de ce site!!!


Bonne journée à tous les deux!!