Créé un formulaire pour Utilisateur
Maving
Messages postés
6
Statut
Membre
-
Maving Messages postés 6 Statut Membre -
Maving Messages postés 6 Statut Membre -
Boujour,
ma préoccupation est celle ci:
Je créé une table utilisateur et dans le formulaire avec mon bouton click, il lue seulement un utilisateur, le bouton Click ne sait pas lire d'autres utilisateurs qui se trouve dans la table Utilisateur, comment solution ce problème avec leS codes VBA. merci
ma préoccupation est celle ci:
Je créé une table utilisateur et dans le formulaire avec mon bouton click, il lue seulement un utilisateur, le bouton Click ne sait pas lire d'autres utilisateurs qui se trouve dans la table Utilisateur, comment solution ce problème avec leS codes VBA. merci
A voir également:
- Créé un formulaire pour Utilisateur
- Whatsapp formulaire opposition - Guide
- Cree un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
2 réponses
bonjour,tu as du faire un formulaire "unique", fait donc un formulaire tableau (continu) et tu aura tous tes enregistrement.
Roger
Roger
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
