acces protégé à un autre formulaire [Résolu]

[coco38]

Bonjour,
Je voudrais accéder à un autre formulaire grâce à plusieurs identifiants (préalablement rentré dans une table) et que les personnes n'ayant pas d'identifiant ne peuvent y accéder.
que dois-je faire?
Merci

[loufab]

Bonjour,


Mettre en place la sécurité ACCESS Utilisateur (voir mon tuto) protéger la table des utilisateurs (sinon n'importe qui peut s'y inscrire).

Créer un groupe d'accés à ce formulaire. Y inscrire les utilisateurs.

Si la table source du formulaire n'est également accessibles que par ces utilisateur, inscrire que la table. Lorsqu'un utilisateur non inscrit l'ouvre il apparait vide (aucun controle, aucune donnée).

Cordialement,

[coco38]

Vous avez dû mal me comprendre, en fait je rentre un numéro dans une zone de texte et lorsque je clique sur ok si le nuémro existe dans ma table j'ouvre un autre formulaire sinon je n'ouvre rien

[loufab]

"Je vous ai compris..." CDG

Le plus sur c'est la sécurité utilisateur. Maintenant un bricolage est toujours possible.

Code :

1
2
3
4
5
6
7
8
9
10
 
If me.texte = dlookup("monchamp","matable","condition where valide") then
 
docmd.openform ....
 
else
 
msgbox "j'ouvre pas"
 
endif

Avec la technique que tu souhiate mettre en place n'importe qui peut s'ajouter dans la table donc avoir accès au forms.

Cordialement

[coco38]

Ok
Merci

[coco38]

Je viens de mettre le code est j'ai une erreur: "Impossible de faire référence à une propriété ou de la définirpour un contrôle si ce dernier n'est pas activé"

[loufab]

Bonjour,

peut-on voir le code ? est-il dans le 1er formulaire ?

[coco38]

Voici mon code qui marche a peu près mais qu'avec l'utilisateur 1 :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Texte13.SetFocus
If Texte13.Text = DLookup("NUMABONNE", "ABONNE") Then
 
stDocName = "espace abonné"
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_ok1_Click:
Exit Sub
 
Err_ok1_Click:
MsgBox Err.Description
Resume Exit_ok1_Click
 
Else
 
MsgBox "Vous ne faîtes pas partie des abonnés, utilisez l'espace en accès libre."
 
End If

[loufab]

Bonjour,

2 choses :

La première ; ce n'est pas la peine de mettre le focus sur Texte13 pour y faire appel.

La deuxième ; Le Dlookup contient un troisième paramètre qui est la condition Where.

Dans ton cas il faut faire :

Code :

if not isnull(dlookup("NUMABONNE","ABONNE","NUMABONNE=" & me.texte13 )) then

Si la valeur retournée par dlookup() n'est pas nulle - l'abonné existe - alors on ouvre le formulaire.

Cordialement,

[coco38]

OK
Bah ça marche merci beaucoup

[goingoin6]

Bonjour,

on voudrait faire un peu la meme chose mais on veut que le numéro que l'on tape soit égal à celui du formulaire qui s'ouvre. Est ce possible?

[loufab]

Bonjour Goingoin,

Une petite recherche dans la faq ou le forum répondra à ta question.

Cordialement,

[goingoin6]

Comment fait on pr rechercher sur le forum? On voulait le faire mais on ne sait pas ou aller...

[loufab]

Au dessus du message il y a un bouton recherche.
En dessous il y a marquer la F.A.Q Access

tu parles toujours à la troisième personne ou c'est une coutume grenobloise ?

[goingoin6]

on est plusieurs...

[loufab]

sur le même écran... c'est du vrai multi utilisateur mais ça reste du mono tache.

regardez du coté de la commande Docmd.openform et plus particulièrement l'option Where de celle-ci.

Cordialement,

[goingoin6]

est ce que tu peux nous dire ce que signifie: "stLinkCriteria"?
on avait réussi a voir qu'il fallait regarder à cet endroit mais on n'arrive pas savoir quoi mettre

[loufab]

stLinkcriteria est une simple variable texte issue du générateur. on pourrait l'appeler Tartufe ou Goingoin que ça ne changerai rien.

regarde(z) ici :

http://access.developpez.com/faq/?page=Forms#PassValeur

il y a un bon exemple pour comprendre le mécanisme.

[goingoin6]

ça marche!!!
Merci beaucoup!