[VBA] formulaire de securité

Question

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 !!!

WhiteFang · Answer

;-)Dans ton bouton OK, tu ouvres, via VBA, ta table sécurité, et tu vérifies les champs avec une boucle, que tu compare à tes zones de texte...;-)

WhiteFang · Answer

;-))Remet la ligne DIM comme elle était !! ;-)));-))))

Théo · Answer

ok sa marche a peu prés, mais maintenant i me met une message microsoft visual basicerreur d'exécution '361'Impossible de charger ou de décharger cet objetquand je clic sur deboguage il me met l'erreur sur le "Unload Me"

Théo · Answer

c bon g reussi a corriger l'erreur en retirant"Unload Me" et "LaTable.Close"En tout cas merci beaucoup pour ton aide tu as assuré, meme si c pas simple de m'expliquer un truc chui du genre a rien comprendre enfin tu l'as remarqué ^^Merci Man !

WhiteFang · Answer

;-))))Tu avais une erreur sur "LaTable.Close" ???

Théo · Answer

oui qd g supprime le Unload Me, il a mi la mm erreur sur LaTable.close donc g sup aussi et sa fonctionne

Théo · Answer

une dernière question steup.dans la declaration des variables:Dim LaTable, Cpt, NomUtilisateur, MotDePassePourquoi on met tou a la suite et pourquoi on declare pas de type ?Et pourquoi quand g tout declarer separerment sa marchait pas ?

WhiteFang · Answer

;-)Je met tout à la suite et je ne déclare rien quand il s'agit de petit bidules, question appli VBA.... Quand on dit rien, le type par défaut est VARIANT, qui prend un peu plus de mémoire, mais on s'en fous car ce ne sont que de petits bidules en VBA, et comme les ressources sont libérées au "End Sub", cela permet de donner une aide à ceux qui sont un peu dans la panade sans avoir à leur donner de cours magistral sur la programmation et l'état de l'art....C'est pour aider... Ensuite, le petit gars/fille qui vient là pour crier "à l'aide", il a tout le temps, avec le code qu'on lui donne, pour ensuite faire un joli ptit code bien propre et économique en ressources, bref, un bon petit développeur... Touche F1 à fond !! ;-)))Les bons, ils n'ont pas besoin de notre aide... ;-))))))))))))Et quand tu dis rien, l'avantage du VARIANT, c'est de s'adapter à tous les types de données.... Pas de prise de tête pour un débutant....;-)

Théo · Answer

Ok merci !L'element LaTable c une table fictive qui va recevoir les elements de la table securite ?Et sinon sur le formulaire suivant, j'ai mi un champ qui affiche le nom de l'utilisateur connecté, pour le moment pas de prob sa fonctionne bien. Mais quand g ajouté la ligne qui ferme le formulaire securité a la connexion d'un utilisateur, le champ utilisateur du second formulaire ne reçoit plus les données utilisateur du premier formulaire.Tu as pas une idée ?

WhiteFang · Answer

;-)LaTable : Oui, c'est un variable de type OBJET, qui fait référence à la vraie table, avec toute la structure (champs...)Pour le nom de l'utilisateur : Utilise une variable "Public", dans un module, cela la rendra accessible  par TOUT ton projet VBA...Ex : Public NomUtilisateur -As String si tu veux ;-)-Ensuite, dans ton fomulaire : Txt_Utilisateur=NomUtilisateur;-)

Théo · Answer

Donc g créer le module avec pour code:Option Compare DatabasePublic NomUtilisateur As StringPrivate Sub txt_Utilisateur_BeforeUpdate(Cancel As Integer)txt_Utilisateur = NomUtilisateurEnd SubMais sa marche pasEt sinon g un autre probleme, c quand je ve mettre plusieurs utilisateur dans ma table securite, le cpt du formulaire securite ne doit pas voir les autre ligne car il me ferme la page au lieu d'ouvrir le second formulaire

Théo · Answer

UP

Théo · Answer

il a mi sa automatiquement quand g voulu créer mon code sur le champ txtUtilisateur du deuxième formulaire.sinon c pas grave je v laisser le premier formulaire ouvert mais je ferais en sorte que le second se mette devant pour pas qu'on y accede ^^enfin bref camouflage !

WhiteFang · Answer

;-)Tu aurais dû utiliser une étiquette, pas une zone de texte...;-)

Théo · Answer

Je fais comment avec une étiquette ???

WhiteFang · Answer

Tu utilises la propriété CaptionEx : Me.Etq_UserName.Caption =xxx Ou direct depuis l'autre formulaire : Forms(xxx).Etq_UserName.Caption=xxx

Théo · Answer

cool sa marche merci :)sinon tu c pas cmmt je peux faire pour gerer plusieurs utilisateur ?parce que si je met dropp utilisateur dans la table securite, sa ne marche pas.

Théo · Answer

Voila on est lundi !!! ;)

WhiteFang · Answer

;-)Un dropp utilisateur ? Wat is dat ?Qu'entends tu par gérer plusieur utilisateurs ?;-)

WhiteFang · Answer

;-)Ta base, c'est du confidentiel ? Passke c'est vrai, avec le temps, on arrive à se mélanger les pinceaux, et tu pourrais me l'envoyer que je vois tout ça avec mes yeux à moi... Mais bon.. Faut pas qu'elle soit trop grosse non plus ;-);-)

Théo · Answer

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.

WhiteFang · Answer

;-) 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...

;-)

Théo · Answer

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 !

WhiteFang · Answer

;-)

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

;-)

Théo · Answer

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.

WhiteFang · Answer

;-) Je regarde...

Théo · Answer

UP

WhiteFang · Answer

;-) 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

;-)

[VBA] formulaire de securité - Page 2

Discussions similaires

Newsletters