Bonjour j' ai effectuer un programme mais son utilisation doit etre limiter j' ai donc décider de limiter son accès a un dossier ...enfin bref vous comprendrez mieu avec le code
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
Private Sub Form_Open(Cancel As Integer)
 
 
dossier = UCase("\\nbelea88\BS PROJECTS\TEI_Suivi_Projets_LTH_PERMANENT\update")
chemin = CurrentProject.Path
 
If chemin = dossier Then
'''Mode normal
MsgBox "ok"
Else
' l'utilisateur n' est pas sur  "nbelea88"
MsgBox "ACCES REFUSE. VEUILLEZ LANCER L' APPLICATION DEPUIS LE DOSSIER SUIVANT :     " & dossier, vbCritical
 
End If
End Sub
Ce que je voudrais , lorsque l'utilisateur n' est pas sur "nbelea88" , c' est ouvrir le dossier "DOSSIER" dans une fenêtre windows.
l' idéal serait meme d'effacer l'application Access qui se trouve la ou elle devrais pas !!!

si vous n' avez pas tout compris n' heziter pas a demander
merci a tous