Discussion :

[lolo_bob2]

Bonjour à tous

Voila j'ai un bouton sur un formulaire qui me permet d'importer des
données d'excel dans Access le problème c'est qu'a chaque fois que
l'on clique sur ce bouton les données sont réimportées...
Existe t-il un moyen de mettre un mot de passe sur ce bouton pour le
verrouiller et eviter que n'importe quelle personne puisse cliquer
dessus


Merci de votre aide à tous


A+

[Junior_jef]

Bonjour à tous

Voila j'ai un bouton sur un formulaire qui me permet d'importer des
données d'excel dans Access le problème c'est qu'a chaque fois que
l'on clique sur ce bouton les données sont réimportées...
Existe t-il un moyen de mettre un mot de passe sur ce bouton pour le
verrouiller et eviter que n'importe quelle personne puisse cliquer
dessus


Merci de votre aide à tous


A+

Si tu asmis en place une stratégie d'utilisateur, a ta place, je n'afficherais le bouton que pour un utilisateur précis.

Si pas, sur l'evenement Onclick du bouton, en VBA tu demandes un mot de passe grace à un inputbox, si le mot de passe est bon, tu execute l'action.

[lolo_bob2]

Ok merci

Je pense que je vais opter pour la deuxieme solution mais je ne connais pas la code VBA pour faire cela....

Merci de votre aide

A+

[Dolphy35]

Salut,

Le problème de l'inputbox est que la saisie n'est pas masquée à l'écran. Le fait de mettre un mot de passe dans le code n'est pas très sécurisé.

Si la visualisation de la saisie ne te gêne pas tu peux utiliser ce code (le plus simple):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim strMP As String
 
strMP = "lolo_bob2"
    If InputBox("Veuillez saisir le mot de passe", "Mot de passe") = strMP Then
 
        'Mot de passe Ok
 
    Else
 
        'Mot de passe Nok
 
    End If

Autre solution tu créer un champ sur ton form avec un bouton 'Ok' qui s'affiche après avoir appuyer sur le bouton d'importation, l'utilisateur devra saisir le MP dans le champ et valide par 'Ok'. Il est posssible avec le masque de saisie du champs d'afficher des étoiles lors de la saisie.

Autre solution tu créer un formulaire avec un champ et bouton 'ok' et ce form s'ouvre sur appuit du bouton d'importation.

Dolphy

[@rkane]

tu copies ce script dans un petit form presenté façon msgbox avec un champ texte et un bouton, tu modifies le nom du form à ouvrir et les pwds :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Option Compare Database
Option Explicit
Private Type sLoginPw
Login As String
PW As String
End Type
Dim LoginPw(5) As sLoginPw ' adapter le nombre de pwd au besoin
Private Sub cmdValid_Click()
Dim i As Integer, ok As Boolean
For i = 1 To 5  ' adapter le nombre de pwd au besoin
If Me!Login = LoginPw(i).Login And Me.PW = LoginPw(i).PW Then
ok = True
Exit For
End If
Next i
If ok Then
DoCmd.OpenForm "MonForm"  ' ici le nom du form à ouvrir
DoCmd.Close acForm, Me.Name
Else
MsgBox "LOGIN OU PASSWORD ERRONE ! VEUILLEZ LES RESSAISIR", vbInformation
DoCmd.Close acForm, Me.Name
End If
Erase LoginPw
End Sub
 
Private Sub Form_Load()
Call Initialisation
End Sub
 
 
Sub Initialisation()
Dim i As Integer
For i = 1 To 5  ' adapter le nombre de pwd au besoin
 
LoginPw(1).Login = "Pierre"  ' ici rajouter login et password au besoin
LoginPw(1).PW = "xfiles21"
 
LoginPw(2).Login = "Paul"
LoginPw(2).PW = "qsdfjklm"
 
LoginPw(3).Login = "Jacques"
LoginPw(3).PW = "azerty"
 
Next i
End Sub

Bon courage
Patrick

[lolo_bob2]

Merci beaucoup pour vos réponses !
ca fonctionne impecable !


A+