Authentifier une BD creer un login et motpass
hayouta87
Messages postés
18
Statut
Membre
-
hayouta87 Messages postés 18 Statut Membre -
hayouta87 Messages postés 18 Statut Membre -
Bonjour,
je travail dans une application ou les utilisateurs doivent saisir un mot de pass avec leur login b1sur pr acceder a application.
J ai creer un formulaire ou j ai mis login et mot de pass et un bouton pr valider alors je connai pa le code qui permet d executer cette formulaire.
je travail sous access
j attend votre reponse
cordialement
je travail dans une application ou les utilisateurs doivent saisir un mot de pass avec leur login b1sur pr acceder a application.
J ai creer un formulaire ou j ai mis login et mot de pass et un bouton pr valider alors je connai pa le code qui permet d executer cette formulaire.
je travail sous access
j attend votre reponse
cordialement
5 réponses
Salut
Déjà faut qu'tu crée une table UTILISATEUR, avec comme colonne "LOGIN" et "MOT_DE_PASSE"
Ensuite, tu crée un formulaire pour que les utilisateurs puissent s'inscrirent.
Après pour ton formulaire, le bouton VALIDER doit être programmé comme ceci :
SI &zonedetexteLOGIN& appartient a LOGIN ET Si &zonedetexteMOTDEPASSE& appartient a MOT_DE_PASSE ALORS
MsgBox "Vous êtes autorisé à parcourir ce formulaire"
DoCmd.OpenForm("Le formulaire à ouvrir")
SINON
Msgbox "Votre login ou mot de passe est incorrect"
Déjà faut qu'tu crée une table UTILISATEUR, avec comme colonne "LOGIN" et "MOT_DE_PASSE"
Ensuite, tu crée un formulaire pour que les utilisateurs puissent s'inscrirent.
Après pour ton formulaire, le bouton VALIDER doit être programmé comme ceci :
SI &zonedetexteLOGIN& appartient a LOGIN ET Si &zonedetexteMOTDEPASSE& appartient a MOT_DE_PASSE ALORS
MsgBox "Vous êtes autorisé à parcourir ce formulaire"
DoCmd.OpenForm("Le formulaire à ouvrir")
SINON
Msgbox "Votre login ou mot de passe est incorrect"
hayouta87
Messages postés
18
Statut
Membre
merci j ai deja une table utilisateur.le probleme que je sais pa comment et ou ecrire le code SVP aide moi
Tu crée un bouton, clique droit propriété...ensuite sur la page "evenement"... choisis par exemple "Sur Clic". Tu aura qu'a choisir procédure évenementielle dans la lsite déroule de "Sur Clic"... Après tu clique sur le petit bouton à côté avec 3 petit points. C'est ici que tu pourra écrire ton code.
Mon code ci-dessus est en Français, tu dois le traduire en VBA.
Mon code ci-dessus est en Français, tu dois le traduire en VBA.
Ouais en VBA lol. Essaye d'apprendre quelques tuyaux dans les tutoriels...recherche des cours sur google.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Private Sub Nomdetonbouton_Click()
Me.Requery
Dim SQL, VLogin, VMot As String
Dim REQ As DAO.Recordset
Static i As Byte
//Pour l'instant tu n'as rien a changer
SQL = "SELECT * FROM Nom de ta Table (UTILISATEUR) WHERE Nomdetatableutilisateur.nomdelacolonnelogin = '" & Me.Nomdezonedesaisielogin & "' AND Nomdetatableutilisateur.nomdelacolonnelogin = '" & Me.Nomdezonedesaisiemotdepasse & "';"
Set REQ = CurrentDb.OpenRecordset(SQL)
If Not REQ.EOF Then
DoCmd.OpenForm "Nomduformulairequetuveuxouvrir", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Nomduformulairequetuutilisemaintenant"
VLogin = REQ("Nomdelacolonnelogindelatableutilisateur").Value
VMotDeOasse = REQ("Nomdelacolonnemotdepassedelatableutilisateur").Value
Else
MsgBox "Vous n'êtes pas autorisé à vous connecter"
i = i + 1
End If
If i = 3 Then
MsgBox " Vous avez dépassé le nombre de tentatives autorisés"
DoCmd.Quit
End If
End Sub
Il faut que tu copie ce programme dans le générateur de code comme je te l'avais déjà dit.Tout ce que j'ai mis en italique, il faut que tu le change par rapport à ta base de donnée... Redemande moi si tu as un problème
Me.Requery
Dim SQL, VLogin, VMot As String
Dim REQ As DAO.Recordset
Static i As Byte
//Pour l'instant tu n'as rien a changer
SQL = "SELECT * FROM Nom de ta Table (UTILISATEUR) WHERE Nomdetatableutilisateur.nomdelacolonnelogin = '" & Me.Nomdezonedesaisielogin & "' AND Nomdetatableutilisateur.nomdelacolonnelogin = '" & Me.Nomdezonedesaisiemotdepasse & "';"
Set REQ = CurrentDb.OpenRecordset(SQL)
If Not REQ.EOF Then
DoCmd.OpenForm "Nomduformulairequetuveuxouvrir", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Nomduformulairequetuutilisemaintenant"
VLogin = REQ("Nomdelacolonnelogindelatableutilisateur").Value
VMotDeOasse = REQ("Nomdelacolonnemotdepassedelatableutilisateur").Value
Else
MsgBox "Vous n'êtes pas autorisé à vous connecter"
i = i + 1
End If
If i = 3 Then
MsgBox " Vous avez dépassé le nombre de tentatives autorisés"
DoCmd.Quit
End If
End Sub
Il faut que tu copie ce programme dans le générateur de code comme je te l'avais déjà dit.Tout ce que j'ai mis en italique, il faut que tu le change par rapport à ta base de donnée... Redemande moi si tu as un problème
merci c tres gentil de ta part
mais c tres compliqué bcp d erreur j ai le meme nom du login dans le formulaire utilisé et la table utilisateur voila le code :
Private Sub Commande4_Click()
Me.RequeryDim SQL, VLogin, VMot As String
Dim REQ As DAO.RecordsetStatic i As Byte
SQL = "SELECT * FROM TABLE [CHEF PROJET] WHERE [CHEF PROJET].login = '" & Me.login & "' "
AND [CHEF PROJET].login = '" & Me.mot de passe & "';
"Set REQ = CurrentDb.OpenRecordset(SQL)If Not REQ.EOF ThenDoCmd.
OpenForm "menu principale", acNormal, , , ,
acWindowNormalDoCmd.Close acForm, "chef projet" VLogin = REQ "login".
ValueVMotDeOasse = REQ("mot de passe").
ValueElseMsgBox "Vous n'êtes pas autorisé à vous connecter"
"i = i + 1End IfIf i = 3
ThenMsgBox " Vous avez dépassé le nombre de tentatives autorisés"DoCmd.
QuitEnd
IfEnd Sub
mais c tres compliqué bcp d erreur j ai le meme nom du login dans le formulaire utilisé et la table utilisateur voila le code :
Private Sub Commande4_Click()
Me.RequeryDim SQL, VLogin, VMot As String
Dim REQ As DAO.RecordsetStatic i As Byte
SQL = "SELECT * FROM TABLE [CHEF PROJET] WHERE [CHEF PROJET].login = '" & Me.login & "' "
AND [CHEF PROJET].login = '" & Me.mot de passe & "';
"Set REQ = CurrentDb.OpenRecordset(SQL)If Not REQ.EOF ThenDoCmd.
OpenForm "menu principale", acNormal, , , ,
acWindowNormalDoCmd.Close acForm, "chef projet" VLogin = REQ "login".
ValueVMotDeOasse = REQ("mot de passe").
ValueElseMsgBox "Vous n'êtes pas autorisé à vous connecter"
"i = i + 1End IfIf i = 3
ThenMsgBox " Vous avez dépassé le nombre de tentatives autorisés"DoCmd.
QuitEnd
IfEnd Sub
