Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 15/08/2011, 18h33   #1
Membre du Club
 
Homme Claude Larocque
Développeur informatique
Inscription : mai 2009
Messages : 61
Détails du profil
Informations personnelles :
Nom : Homme Claude Larocque
Localisation : Canada

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : mai 2009
Messages : 61
Points : 46
Points : 46
Par défaut Vérification de mot de passe dans une table ne fonctionne pas

Bonjour,
J'ai un petit problème avec les mots de passe, rien de majeur, juste que je voudrais que dans la vérification du nom de l'usager et du mot de passe, tous
les enregistrements de la table "LoginPassword" soient vérifiés, pour le moment, seulement le premier enregistrement l'est.

J'ai capturé les écrans concernés, je crois que ce sera beaucoup plus rapide de voir exactement ce qui se passe.

https://skydrive.live.com/view.aspx?...A52FAE85%21189

Le code est à la fin de ce fichier.

Merci de votre temps

Claude du Québec
toumack est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/08/2011, 20h50   #2
Modérateur
 
Homme René MAROT
Inscription : octobre 2005
Messages : 5 470
Détails du profil
Informations personnelles :
Nom : Homme René MAROT
Localisation : Canada

Informations forums :
Inscription : octobre 2005
Messages : 5 470
Points : 7 552
Points : 7 552
Code :
1
2
3
4
 
While Not rs.EOF
   rs.MoveNext
Wend
Je ne sais pas exactement ce que tu avais en tête mais là tout ce que tu fais c'est parcourir séquentiellement ta table LoginPassword sans rien faire.

Si tu veux savoir si un enrgistrement est présent dans une table tu peux utiliser

Code :
1
2
3
if isNull(DFirst("NomTonchamp", "LoginPassword", "TesCritères")) then
   'L'élément cherché n'existe pas
end if
ou

Code :
1
2
3
4
5
6
Set rs = db.OpenRecordset("LoginPassword", dbOpenDynaset) 'Le dbOpenDynaset est obligatoire pour pouvoir faire le FindFirst
rs.findFirst("TesCritères")
if rs.nomatch() then
   'L'élément cherché n'existe pas
end if
rs.close:set rs=nothing
A+
__________________
Vous voulez une réponse rapide et efficace à vos questions téchniques ? Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
marot_r est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 09h09.


 
 
 
 
Partenaires

Hébergement Web