Discussion :

[Melhiril]

Salut,

J'ai regardé la FAQ pour essayer d'appliquer un mot de passe et login lors de l'ouverture d'un formulaire. J'ai testé le code qui a été donné mais ça ne marche pas. Je crois que j'utilise mal visual basic et que je ne comprend pas vraiment comment il s'applique avec access!

Le code doit s'appliquer sur un formulaire appelé connexion. Ce formulaire doit être rattaché à une table? une requête? Il est différent de celui qui doit s'afficher après validation du mot de passe et login?
Je suis perdue dans tout ça, mais il faut absolument que j'y arrive!

Si quelqu'un pouvait m'expliquer un peu mieux ça serait gentil.

Merci

[alcabk]

j'ai déjà fait ce genre de truc
c'est sûrement la solution la plus sérieuse, mais ça marche !!

déjà, il faut une table contenant les correspondances login-mot de passe (T1)

puis, formulaire où on se log :
>mettre une zone de liste déroulante (modifiable0) basée sur T1 qui contient, sur 2 colonnes, chaque login et mot de passe correspondant (bien sûr, il ne faut afficher que la 1è colonne à l'écran)
>mettre une zone de texte (txt1) avec masque de saisie mot de passe (pour avoir ***)
>bouton avec macro automatique avec conditions du genre

1)[Formulaires]![Formulaire1]![txt1]=[Formulaires]![Formulaire1]![modifiable0].[Column](1) : ouvrir formulaireX
2)[Formulaires]![Formulaire1]![txt1]<>[Formulaires]![Formulaire1]![modifiable0].[Column](1) ou [Formulaires]![Formulaire1]![Texte2] Est Pas Null : BoîteMsg "mot de passe erroné" etc...

[helas]

le formulaire Connexion demande le nom (Zone de texte nom) et le mot de passe (Zone de texte mdp)
La table tbUtilisateurs (2 champs: nom et mdp) contient la liste des utilisateurs et leurs mots de passe

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub mdp_AfterUpdate()
 If Me!mdp = DLookup("[mdp]", "tbUtilisateurs", "[nom] Like '" & Me!nom & "'") Then
  DoCmd.OpenForm "NomFormulaire"          'ouverture d'un formulaire
  DoCmd.Close acForm, Me.Name             'fermeture du formulaire Connexion
 Else
  Application.Quit                       'quitte l'application
 End If
End Sub

[alcabk]

j'ai oublié une partie de ta question :
ton formulaire qui s'ouvre après identification, il faut simplement le filtrer.
par exemple tu peux le baser sur une requête qui contient toutes les données dont tu as besoin, avec aussi comme critère nom=Formulaires![Formulaire1]![modifiable0]

[Melhiril]

J'ai essayé vos deux méthodes mais aucune ne marche... je suis vraiment nulle, je connais pas assez le langage visual basic.

Merci pour votre aide

[Melhiril]

Finalement j'ai réussi à faire quelque chose!
Quand on rentre le mot de passe, le formulaire voulu s'ouvre. Le problème c'est que même si le mot de passe n'est pas bon, ça marche!
Quel est le code pour éviter ça ?

[alcabk]

je te joins une petite base test que tu peux t'amuser à étudier...

bd2.zip

[Melhiril]

Merci beaucoup !!!

Je comprends beaucoup mieux ce qui n'allait pas! C'est vraiment super de m'avoir fait ça! merci!!

[Melhiril]

C'est encore moi!!
J'ai bien compris la base que tu as envoyé, seulement ça ne marche que si le login est identique au mot de passe!
J'ai essayé de modifier les conditions de la macro de sorte que le mot de passe du formulaire connexion soit identique à celui de la table utilisateur, mais ça me dit qu'il n'y pas d'objet d'automatisation Utilisateur (le nom de la table).

[alcabk]

tu as dû oublier qqch
ds l'exemple, motdepasse=login (c'était pr remplir la table utilisateurs vite fait).
as-tu bien mis 2 colonnes de données dans le modifiable ? (dont une qui ne se voit pas, à définir dans le format de la zone)
si oui, la macro fonctionne très bien telle qu'elle est.

indication: [Formulaires]![connexion]![Modifiable0].[Column](1) désigne en fait la colonne 2 du modifiable (et la colonne 1 est [Column](0))

j'espère que tu t'en sortiras...

[Melhiril]

ah d'accord, j'avais oublié de mettre deux colonnes dans le modifiable.

Vraiment merci beaucoup pour tes explications! J'en ai fini avec ça, ça marche très maintenant grâce à toi!

Merci