authentifier une BD creer un login et motpass Fermé

Question

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

V3n1 · Answer

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"

V3n1 · Answer

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.

V3n1 · Answer

Normalement tu aavais pas besoin de ça mais c'est gfénérateur de code.

V3n1 · Answer

Ouais en VBA lol. Essaye d'apprendre quelques tuyaux dans les tutoriels...recherche des cours sur google.

V3n1 · Answer

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

Authentifier une BD creer un login et motpass

5 réponses