Comment créé un formulaire pour les utilisateurs avec VBAccess
Maving
Messages postés
6
Statut
Membre
-
Maving Messages postés 6 Statut Membre -
Maving Messages postés 6 Statut Membre -
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
- Comment cree un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Formulaire de réclamation facebook compte désactivé - 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.