Problème requête

Problème pour identification (Mdp vide) - requête

Bonjour,

Explication:

Versions: Excel 2000 / Visual Basic 6

Nous avons un programme de gestion de planning qui permet à chaque personne de consulter et de modifier ses quarts.

Nous voullons ajouter une identification (par Mot de passe) à la modification des quarts afin que chacun ne puisse modifier que ses quarts...

Le code suivant a donc été ajouté :

Requête Accès: log_Perso
PARAMETERS nom Text ( 255 ), mdp Text ( 255 );
SELECT personne.Nom, personne.mdp
FROM personne
WHERE (((personne.Nom)=[nom]) AND ((personne.mdp)=[mdp]));

VBa Excel : (extrait concerné)

Public Sub Identification()
Set qDefPerso = db.QueryDefs("log_Perso")
qDefPerso.Parameters("nom") = Feuil7.ComboBox2.Value
qDefPerso.Parameters("mdp") = Feuil7.TextBox_Mdp.Value
Set curseurPerso = qDefPers😵penRecordset

If curseurPerso.RecordCount <> 0 Then
Call DeleteModif
Call ajoutModif
MsgBox "Modifié", vbInformation
Else
MsgBox "Mot de passe erroné", vbCritical
End If
End Sub

Ce dernier fonctionne, si le Mot de passe entré est :
- exacte : il modifie les quarts
- erroné : message d'erreur (ne modifie pas les quarts)

PROBLEME:

Dans la base, les utilisateurs n'ayant pas de Mot de passe ont leur champ vide.

Or, si on laisse la <Feuil7.TextBox_Mdp.Value> vide comme l'est le Mot de passe, ça ne fonctionne pas (envoi sur le message d'erreur) alors qu'il est "bon".

Pour éviter ce problème, nous voullons détecter si l'utilisateur a un Mot de passe dans <Public Sub Identification()> avant de vérifier s'il est bon.

Seulement, nous n'y arrivons pas, comment cela est-il possible à réaliser sous vb6 ?

Est-ce normal que le programme consière le Mot de passe "" (vide) comme faux ?

Merci d'avance pour toute aide...