Discussion :

[gwems]

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

[ilank]

Bonjour,
que souhaites-tu faire réellement ?

Pour ouvrir le dossier DOSSIER.

Code :

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

Shell "Explorer " & chr(34) & dossier & chr(34),vbnormalfocus

Une idée serait de lancer la bonne application avec des paramètres sur la ligne de commande lui indiquant qu'il faut supprimer le fichier mdb se trouvant dans le dossier CHEMIN (donc CHEMIN est envoyé comme paramètres).

[gwems]

ilank ... décidément que ferais-je sans toi mdr

par contre je souhaiterait récupéré de manière automatique le nom de l' application access.

au cas ou les utilisateurs décident de modifier le nom de l appli.

j ai deja essayer des codes suivants sans succès.

Code :

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

1
2
test= me.name  (ce code renvoie le nom du formulaire)
test= me.application.name (ce code renvoie "microsoft Access")

[ilank]

CurrentProject.Name ou CurrentDB.Name pour renvoyer le nom du fichier.
Pour le titre de l'application, il s'agît de CurrentDB.Property("AppTitle")

[gwems]

je n' arrive pas a supprimer mon fichier "test.mdb"

je fais

Code :

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

shell "cmd /c del"&  "c:\test.mdb"

quand a l'ouverture d' une application je fais le code suivant:

Code :

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

shell "cmd c/ c:\test2.mdb

ce dernier code ouvre bien la commande DOS mais elle reste ouverte

mes codes sont ils corrects??

[ilank]

L'instruction dos DEL d'après mes souvenirs attend une confirmation (y/n) avant de supprimer.

Code :

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

Shell "cmd /c del /q c:\test.mdb"

ou

Code :

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

If Dir("c:\test.mdb")<>"" And Dir("c:\test.ldb")="" Then Kill "c:\test.mdb"

[gwems]

j ai essayer tes deux sollutions ca ne semble pas etre ca
ou alors c est mon 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Compare Database
 
 
Private Sub Form_Open(Cancel As Integer)
dossier = "\\nbelea88\BS PROJECTS\TEI_Suivi_Projets_LTH_PERMANENT\update"
chemin = CurrentProject.Path
fichier = CurrentDb.Name 'chemin fichier mdb local
nomfichier = CurrentProject.Name
Rem fichier2 = dossier & "\" & nomfichier 'chemin fichier mdb réseau
nombre = Len(chemin & "\" & nomfichier) - 3
test = Left(chemin & "\" & nomfichier, nombre)
Fichierldb = test & "ldb"
 
If chemin = dossier Then
'''Mode normal
Else
 
If Dir(fichier) <> "" And Dir(Fichierldb) = "" Then
MsgBox ""
Kill fichier
End If
 
DoCmd.Quit
 
 
'Shell "Explorer " & Chr(34) & dossier & Chr(34), vbNormalFocus
 
End If
End Sub

il me met erreur 70: permission refusée sur le kill


et pour l'ouverture de mon autre fichier " fichier2" est ce correct??