Comment créé un formulaire pour les utilisateurs avec VBAccess
Maving
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Maving Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
Maving Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Comment créé un formulaire pour les utilisateurs avec VBAccess
- Whatsapp formulaire opposition - Guide
- Comment créer un groupe whatsapp - Guide
- Cree un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Formulaire de réclamation facebook - Guide
2 réponses
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
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
Sans code, pas d'aide.