begin process at 2010 02 10 14:44:18
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > MOT DE PASSE POUR RENTRER DANS UNE APPLICATION ACCESS

MOT DE PASSE POUR RENTRER DANS UNE APPLICATION ACCESS


 Information sur la source

Note :
3,25 / 10 - par 4 personnes
3,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Niveau :Débutant Date de création :15/04/2004 Vu :6 426
Auteur : Draconagi

Ecrire un message privé
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

La table Utilisateurs qui conserve les données des utilisateurs (ID, Mot de passe, Nom, prénom,etc..). Ce code permet de vérifier les données saisies dans les champs du formulaire.
Ainsi à la fin de la vérification vous pourrez donner accés au menu principal.
Créer donc une table utilisateur et deux formulaire (un pour l'identification et l'autre pour le menu principal).
Vous mettez le formulaire d'identification ( Compte ID chez moi) en formulaire de démarrage et vous empêchez l'accés à la fenêtre de la base par un autre code ou par l'aide sécurité d'access. Ainsi vous vous retrouvez avec une protection plutôt sympas.
N'oubliez pas de crypter votre base.

Source

  • Private Sub Commande15_Click()
  • On Error GoTo Err_Commande15_Click
  • MonCritère = "[ID] = '" & Me.ID & "'"
  • xd = DLookup("[ID]", "UTILISATEURS", MonCritère)
  • MonCritère = "[Mot de passe] = '" & Me.Mot_de_passe & "'"
  • mdp = DLookup("[Mot de passe]", "UTILISATEURS", MonCritère)
  • If IsNull(xd) Then
  • MsgBox ("ID incorrectes")
  • End If
  • If IsNull(mdp) Then
  • MsgBox ("Mot de passe incorrect")
  • Else
  • Dim stDocName As String
  • Dim stLinkCriteria As String
  • stDocName = "MENU"
  • stLinkCriteria = "[Mot de passe]=" & "'" & Me![Mot de passe] & "'"
  • DoCmd.Close
  • DoCmd.OpenForm stDocName, , , stLinkCriteria
  • End If
  • Exit_Commande15_Click:
  • Exit Sub
  • Err_Commande15_Click:
  • MsgBox Err.DESCRIPTION
  • Resume Exit_Commande15_Click
  • End Sub
Private Sub Commande15_Click()
On Error GoTo Err_Commande15_Click

     MonCritère = "[ID] = '" & Me.ID & "'"
     xd = DLookup("[ID]", "UTILISATEURS", MonCritère)
     MonCritère = "[Mot de passe] = '" & Me.Mot_de_passe & "'"
     mdp = DLookup("[Mot de passe]", "UTILISATEURS", MonCritère)
     If IsNull(xd) Then
         MsgBox ("ID incorrectes")
     End If
    
     If IsNull(mdp) Then
         MsgBox ("Mot de passe incorrect")
     Else
         Dim stDocName As String
         Dim stLinkCriteria As String
     
         stDocName = "MENU"
         
         stLinkCriteria = "[Mot de passe]=" & "'" & Me![Mot de passe] & "'"
         DoCmd.Close
         DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
Exit_Commande15_Click:
    Exit Sub

Err_Commande15_Click:
    MsgBox Err.DESCRIPTION
    Resume Exit_Commande15_Click
End Sub

 Conclusion

Voilà et j'espère que cela pourra vous servir.
Bon courage à tous.


 Sources du même auteur

ENREGISTREMENT D'UN GRAPHIQUE EXCEL SOUS FORME D'IMAGE JPG
Toutes les sources de Draconagi

 Sources de la même categorie

AFFICHER LES SESSIONS ACTUELLEMENT OUVERTES par djebbipgm
SCRIPT VBS DE DÉFINITION DE MOT DE PASSE par djebbipgm
ACTIVATION/DÉSACTIVATION DE PROXY WEB par djebbipgm
CRÉATION DE SOUS-RÉPERTOIRE À PARTIR DU MENU CONTEXTUEL par djebbipgm
CORRIGER RÉCURSIVEMENT LA CIBLE DES RACCOURCIS D'UN RÉPERTOI... par sammounier
Toutes les sources de la catégorie VBScript

Commentaires et avis

Commentaire de hqv0 le 15/04/2004 13:50:30

Niveau debutant !!!   je suis debutante, Mais je ne comprend rien ,ni dans ton code,ni dans tes explication.
Si cela est clair pour toi, penses a ceux qui n'ont pas la meme vu sur les choses que toi.
Donc Peux  donner des details

Exemple :
"Commande15", est ce un bouton ?
"MonCritère " , est ce  une Variable ?
etc....

ou dans ton texte explicatif : "table" c'est quoi ? une base e donnée?
etc...

Bref je nage completement  j'ai besoin d'une bouée.

Commentaire de liquide le 15/04/2004 22:09:46

Une bien grosse alors ;-)

command15 est un bouton apparement
Moncritere doit etree une variable du type string : dim mocritere as string
le "DLookup" je le mettrais en varaiable type tableau mais je n'en suis pas sur, et j'ai beau chercher dans l'aide je ne la trouve pas en fct ni en procedure.

bonne prog, moi aussi je m'y perd

Commentaire de jmlucienvb le 16/04/2004 07:49:01

Il s'agit d'une méthode intéressante de l'utilisation de DLookup que j'avoue n'avoir jamais pratiquée...;-)
Dlookup recherche une valeur donnée dans un champ (premier paramètre) extéreur au formulaire sur lequel on est, dans un domaine précis par exemple une table (Deuxième paramètre), le troisième paramètre étant la valeur recherchée......
Le reste est un peu sans explication, mais l'utilisation de Dlookup vaut bien 7/10 car elle a d'autres applications qui me paraissent très intéressantes

Commentaire de Patrice99 le 16/04/2004 09:10:12

Il faudra alors compiler en .mde (sans le code source), sinon un simple Ctrl-Pause permetra de passer outre le mot de passe !!!
De plus, même en mode .mde, il faudra peut être interdire la lecture des tables (car il est toujours possible de désactiver le formulaire de démarrage avec Shift), ce qui oblige de gerer une base de sécurité (.mdw) avec gestion des droits d'acces : dans ce cas ton code ne sert plus à rien, puisque c'est la gestion de sécurité d'Access qui fera cela à ta place, mais c'est un peu compliqué à faire.

Commentaire de liquide le 16/04/2004 19:10:48

salut

le "Dlookup" est une prog interne à Acces ?

si c'est le cas, je comprends pourquoi je ne le connaissais pas, je ne fais pas du VB via Acces.

bonne prog

Commentaire de zeunz le 14/05/2004 12:03:14

slt,
sais tu comment on fait pr creer une base de donnees access , avec un PASSWORD?
merci

Commentaire de tbbuim1 le 30/06/2004 10:39:31

_On peut définit un mot de passe pour la base sous access dans les options.
_Dlookup est une fonction toute faite sous access qui permet de récupérer une valeur dans une requête ou table avec un critère.
Dans le cas ou plusieurs résultats sont possibles, il affiche le premier.
Il est reste toute fois difficile de sécurisé une base access de cette façon, mais pour contredire un peu Patrice99, si dans les options on enlève la possibilité de pouvoir faire ctrl+pause alors il ne reste plus que shift au démarrage pour passer outre...
Mais on peut éventuellement masquer les tables sensibles pour avoir une petite sécurité de plus.

Commentaire de tbbuim1 le 30/06/2004 11:06:05

Et même avec les .MDW c'est bidon, car en fait ce ne sont que des raccourcis du .mdb sur lequel il y a une sécurité, gestion utilisateurs et tout et tout. Donc le .mdb est toujours disponible et donc modifiable.
Donc c'est bidon. si on passe pas par le .mdw, on peut ouvrir la base sans problème. De plus, si un utilisateur à accès au .mdw il aura forcément accès au .mdb(e)  La meilleur façon de sécurisé une table access semble être la création d'un fichier .ini recueillant les mots de passe. On place le fichier .ini au milieu d'autre, on le nomme de façon à ce qu'on ne puisse pas le reconnaître et on crée un .mde.
Ainsi, avec un .mde, on ne peut pas voir le code et savoir où l'on va récupérer les mots de passe. Et donc, la table des mots de passe est sécurisée, lol. Mais bon, les autres tables ne sont pas à l'abri pour autant, mais déjà ça empêche qu'un utilisateur connaissant access puisse récupérer tous les mots de passe...

Commentaire de vbhiba le 05/06/2006 18:01:39

c'est important mais je voulais bien que ca sera avec sql server aussi par ce que on travail avec merci bien

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 11,653 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)