Comment créé un formulaire pour les utilisateurs avec VBAccess

Fermé
Maving Messages postés 6 Date d'inscription vendredi 15 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - Modifié par Maving le 15/04/2016 à 21:31
Maving Messages postés 6 Date d'inscription vendredi 15 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 18 avril 2016 à 16:39
Bonjour,

Je crée une table Utilisateur avec 3 champs (User_name, Motpasse et Confirm), dans le formulaire le bouton click qui malheuresement lue seulement le première utilisateur, il n'est se pas lire d'autres utilisateurs qui se trouve dans la table pour afficher le formulaire MENU, comment solutions ce problèmes avec le code VBA (Visual basic d'Access) s'il vous plaît, merci
A voir également:

2 réponses

NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
15 avril 2016 à 21:12
Quel code ?
0
Maving Messages postés 6 Date d'inscription vendredi 15 avril 2016 Statut Membre Dernière intervention 21 avril 2016
Modifié par Maving le 15/04/2016 à 22:14
Oui merci le code que j'utilise c'est le VBA (Visual Basic Access)
0
NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
15 avril 2016 à 22:43
code source ?
Sans code, pas d'aide.
0
Maving Messages postés 6 Date d'inscription vendredi 15 avril 2016 Statut Membre Dernière intervention 21 avril 2016
Modifié par Maving le 18/04/2016 à 17:13
Merci car le problème est résolu avec :
Nom de table T_UTILISATEUR LES Champs(ZUtilisaateur, ZMotpasse, ZConfirm)
Pour le code dans le bouton du formulaire Login

Dim db As Database
Dim rs As Recordset
Dim ZMotpasse As String

Set db=CurrentDB
Set rs = db.OpenRecordset("select *from T_UTILISATEUR where ZMotpasse='" & Me.ZMotpasse &"')
with rs
if Not.EOF Then
ZMotpasse=ZMotpasse
If ZMotpasse=Me.ZMotpasse then
Docmd.OpenForm ("MENU")
Else
MsgBox ("Le mot de passe introduit est incorrect"),VbCritical, "Droit accés"
ZMotpasse.SetFocus
Else
MsgBox ("Le mot de passe introduit est incorrect"),VbCritical, "Droit accés"
ZMotpasse.SetFocus
Exit Sub
End if
End With
rs.Close
db.Close
0