[VBA] formulaire de securité

Fermé

Théo - 9 juin 2005 à 10:28
WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 - 13 juin 2005 à 15:27

Salut tou le monde !

Voila donc je suis actuellement en stage de premiere année bts info gestion developpeur d'application. Dans l'application Access 97 que je cré, je dois incoperais un formulaire de securité (Utilisateur, Mot de Passe) et je ne vois vraiment pas comment gerer sa par rapport a ma table securité contenant les infos user et mdp.

Donc g un bouton OK qui doit verifier par une requete si les données entré ds les champs utilisateur et mot de passe son correct pour ouvrir un autre formulaire ou dans le cas contraire envoyé un MsgBox.

Merci d'avance pour vos réponses !!!

A voir également:

[VBA] formulaire de securité
Mode securite - Guide
Formulaire de contact le bon coin introuvable ✓ - Forum Réseaux sociaux
Formulaire de réclamation facebook - Guide
Incompatibilité de type vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA

28 réponses

Réponse 21 / 28

Théo
13 juin 2005 à 10:14

Confidentiel dsl, c une appli de gestion des indemnités, donc g tout les noms et les primes des salariés.

Sinon si tu vois pas tanpis je laisserais comme ça.

Merci pour ton aide.

Réponse 22 / 28

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
13 juin 2005 à 10:23

;-) Vi, c'est du confidentiel, ça ;-)

Ce n'est pas que je vois pas, mais je n'ai pas ton code sous les yeux, c'est pas facile d'être efficace...

Par contre, sur les portions de code qui posent problème, un petit copier/coller, ici, serait une aide précieuse...

;-)

Réponse 23 / 28

Théo
13 juin 2005 à 10:31

Option Compare Database

Public vNomUtil As String

Private Sub bntOK_Click()

Dim vSecurite
Dim Cpt As Integer
Dim vMotdePasse As String

Set vSecurite = CurrentDb.OpenRecordset("securite")
vSecurite.MoveLast
vSecurite.MoveFirst
For Cpt = 1 To vSecurite.RecordCount
vNomUtil = vSecurite.NomUtil
vMotdePasse = vSecurite.Pswd
If Me.txtUtilisateur = vNomUtil Then
If Me.txtMotdePasse = vMotdePasse Then
vSecurite.Close
DoCmd.OpenForm ("Gestion du Régime Indemnitaire")
DoCmd.Close acForm, "Formulaire Securité Connexion"
Forms("Gestion du Régime Indemnitaire").Etq_NomUtil.Caption = vNomUtil
End If
Else: MsgBox "Nom d'utilisateur ou Mot de Passe Incorrect !", vbExclamation, "Connexion Impossible"
End If
Next

End Sub

Voila mon code !

Réponse 24 / 28

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
13 juin 2005 à 10:52

;-)

Essaie avec ça :

Forms("Gestion du Régime Indemnitaire").Etq_NomUtil.Caption = "*"
For Cpt = 1 To vSecurite.RecordCount
If Me.txtUtilisateur = vSecurite.vNomUtil And Me.txtMotdePasse = vSecurite.pswd Then
Forms("Gestion du Régime Indemnitaire").Etq_NomUtil.Caption = Me.txtUtilisateur
End If
vSecurite.movenext
Next
vSecurite.Close
If Forms("Gestion du Régime Indemnitaire").Etq_NomUtil.Caption = Me.txtUtilisateur Then
DoCmd.OpenForm ("Gestion du Régime Indemnitaire")
DoCmd.Close acForm, "Formulaire Securité Connexion"
Else
MsgBox "Nom d'utilisateur ou Mot de Passe Incorrect !", vbExclamation, "Connexion Impossible"
End If

;-)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 25 / 28

Théo
13 juin 2005 à 11:06

J'ai une erreur sur le:
Forms("Gestion du Régime Indemnitaire").Etq_NomUtil.Caption = "*"

Il dit: Impossible de trouver le formulaire 'Gestion du Régime Indemnitaire' auquel il est fait référence dans une expression de macro ou un code Visual Basic.

Réponse 26 / 28

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
13 juin 2005 à 11:58

;-) Je regarde...

Réponse 27 / 28

Théo
13 juin 2005 à 15:09

Réponse 28 / 28

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
13 juin 2005 à 15:27

;-) Pas trouvé... Mais bon essaie ça :

Verif = "*"
For Cpt = 1 To vSecurite.RecordCount
If Me.txtUtilisateur = vSecurite.vNomUtil And Me.txtMotdePasse = vSecurite.pswd Then Verif = "OK"
vSecurite.MoveNext
Next
vSecurite.Close
If Verif = "OK" Then
DoCmd.OpenForm ("Gestion du Régime Indemnitaire")
Forms("Gestion du Régime Indemnitaire").Etq_NomUtil.Caption = Me.txtUtilisateur
DoCmd.Close acForm, "Formulaire Securité Connexion"
Else
MsgBox "Nom d'utilisateur ou Mot de Passe Incorrect !", vbExclamation, "Connexion Impossible"
End If

;-)

Discussions similaires

Sécurité de l'URL

La nouvelle messagerie du Boncoin....

"L'indice n'appartient à la sélection" + VBA

comment lire un message masqué????

Comment cacher ou masquer une URL

Discussions similaires

Newsletters