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
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
A voir également:
- Comment créé un formulaire pour les utilisateurs avec VBAccess
- Comment créer un groupe whatsapp - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un compte instagram - Guide
- Créer un lien pour partager des photos - Guide
2 réponses
NHenry
Messages postés
15113
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 avril 2024
331
15 avril 2016 à 21:12
15 avril 2016 à 21:12
Quel code ?
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
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
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
Modifié par Maving le 15/04/2016 à 22:14
15 avril 2016 à 22:43
Sans code, pas d'aide.