Créé un formulaire pour Utilisateur
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 à 20:38
Maving Messages postés 6 Date d'inscription vendredi 15 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 18 avril 2016 à 17:06
Maving Messages postés 6 Date d'inscription vendredi 15 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 18 avril 2016 à 17:06
A voir également:
- Créé un formulaire pour Utilisateur
- Cree un compte google - Guide
- Créer un compte gmail - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte instagram sur google - Guide
2 réponses
le meruvien
Messages postés
1125
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
15 décembre 2024
40
17 avril 2016 à 06:25
17 avril 2016 à 06:25
bonjour,tu as du faire un formulaire "unique", fait donc un formulaire tableau (continu) et tu aura tous tes enregistrement.
Roger
Roger
Maving
Messages postés
6
Date d'inscription
vendredi 15 avril 2016
Statut
Membre
Dernière intervention
21 avril 2016
18 avril 2016 à 17:06
18 avril 2016 à 17:06
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 password 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 password 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