Login password access
Résolusamsan -
est ce qu'il n y a pas de solution pour qu'on puisse faire le login et le mot de passe par le code vba
pcq on nous a demandé de créer un menu d'admiistration qui permet de choisir l'utilisateur(administrateur ou un autre utilisateur) et le mot de passe bien sur mais seul l'administrateur peut effectuer des modifications sdans la base de données
c urgent
merci
Configuration: Windows XP Internet Explorer 7.0
- Login password access
- Vu password - Télécharger - Confidentialité
- Menara messagerie login - Forum Réseaux sociaux
- Portail mpsa login ✓ - Forum Réseau
- Bios password - Guide
- Acer quick access - Forum Logiciels
18 réponses
Une question porte sur la possibilité de gérer un login et un mot de passe via VBA pour créer un menu d'administration qui distingue les droits entre administrateur et utilisateur, base de données protégée. La configuration évoquée est Windows XP et Internet Explorer 7, la demande est urgente, avec des réponses variées allant de conseils techniques à des échanges hors sujet. Parmi les contributions, plusieurs échanges mentionnent des tensions de ton et des remarques personnelles, tandis que d'autres proposent des exemples ou des pistes concernant la mise en œuvre d'une authentification via VBA. D'autres échanges abordent les limitations de sécurité liées à XP et IE7 et évoquent la nécessité d'une approche plus moderne ou d'une base de données mieux protégée.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTu veux ta réponse.
La voila.
Voici un exemple que j'ai pris de quelqu'un :
Pour exécuter ce code, il faut activer la référence : Microsoft DAO 3.x Object Library
Le formulaire login/mot de passe permettra à un utilisateur de s'identifier et à la base de le reconnaître et de décider de lui donner
ou non la permission d'accéder à la base. Pour ce faire, on aura besoin d'une table T_User et d'un formulaire " F_Connexion "
Table T_Users (TRIGRAMME, NOM, PRENOM, GROUPE, PASWD) tous les champs sont de type texte. Un enregistrement exemple
de cette table : T_User(SED, SEBASTIEN, DULOT, Administrateur, root)
L'évènement on_click du bouton Connexion :
Private Sub connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USERS WHERE TRIGRAMME = \'" & Me.txt_user & "\' AND PASWD =\'"& Me.txt_pass & "\';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal
DoCmd.close acForm, "F_CONNEXION"
User_id = rs("TRIGRAMME").value
User_groupe = rs("GROUPE").value
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
Msgbox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub
