Programmer login et mot de passe sous access [Fermé]

Signaler
-
 akila -
Bonjour,

c ma première participation à ce forum. je souhaite un avis ou un conseil sur comment ajouter du code sur un bouton qui doit valider un login et un mot de passe dans une base de donnée access. voila mon problème: j'ai créer le formulaire je souhaite la portion de code si login correct et mot de passe aussi on se dirige vers un autre formulaire.
merci beaucoup de votre aide j'ai besoin de tous vos lumière. merci encore une

4 réponses

merci beaucoup pour votre réponse j'ai déja trouvé comment faire mais merci énormément de votre aide. j'ai un autre problème maintenant je désir que le login aparaisse dans un autre formulaire aprés connexion pour connaitre quel est l'utilisateur qui est connecté je voudrais l'enregistrer dans un champ utilisateur_courant dans le formulaire que je dois ouvrir

je ne sais pas si c claire merci d'avance
21
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

salut merci bcp pour votre réponse cette instruction où dois je la mettre? est ce dans propriété du champ c ça? mais si j'ai déja créer les utilisateurs gràce à "gestion des utilisateurs de access" et avec username ça marche mais comment le mettre dans une zone texte dans le formulaire
Messages postés
1144
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
Bonjour

Tu as mis tes profil et mot de passe dans une table?
Si oui sur clic de ton bouton :

Exemple table s'appel auth avec 2 champs pass pour le password et login pour le nom d'utilisateur.
2 champ dans le formulaire :
login = l'utilisateur
password = mot de passe

Dim db As Database
Dim rs As Recordset
Dim password As String

Set db = CurrentDb
Set rs = db.OpenRecordset("select pass from auth where login = '" & Me.login & "'")
With rs
If Not .EOF Then
password = !pass
If password = Me.password Then
DoCmd.OpenForm ("Ton formulaire")
Else
MsgBox ("PASSWORD INCORECT")
Exit Sub
End If
Else
MsgBox ("PASSWORD INCORECT")
Exit Sub
End If
End With
rs.Close
db.Close
Messages postés
1144
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
Bonjour

Bah pour moi le plus simple serait de clic droit sur le champ qui est cense recuperer l'utilisateur :

Données : =forms!nom_du_formulaire_principal!nom_du_champ_ou_l_uitilisateur_rentre_son_pseudo