Discussion :

[pam-pg]

Bonjour,
j'essaie de vous présenter mon problème.
J'ai créé une base sur Accès pour le travail. Au boulot cette base m'est accessible via le logiciel Accès classique (2000).

Je souhaiterais que mes collègues concernés puisse accéder aux données en lecture seule. Eux même n'on pas la version d'Accès comme moi mais simplement une runtime.

Deux soucis : Il peuvent modifier les données de ma base, par contre les filtres ne fonctionne pas.
Comment faire pour qu'il ne puissent pas modifier et qu'ils puissent faire fonctionner les filtre (même le filtre par formulaire d'Accès ne fonctionne pas) ! pas plus que celui que j'ai moi-même créé.

[loufab]

Bonjour,

Il y a un tuto sur les sécurités ACCESS. Voir ma signature.

Pour ce qui est des filtres c'est plutot étonnant. Comment as-tu procédé ? Qu'utilises-tu comme technique ?

Cordialement,

[pam-pg]

Voici le code lancer par un click sur bouton. Dans le runtime, cette fonction ne marche pas (pas de réaction au filtrage).
Remarque : j'ai aussi constaté que le filtre par formulaire standard n'est pas opérant.
Pour l'aspect voir le fichier joint dans le premier topic.

Salutations.

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
Private Sub Commande9095_Click()
Dim fa1 As String
Dim fa2 As String
Dim fa3 As String
Dim fa4 As String
Dim fa5 As String
Dim fa6 As String
Dim fa7 As String
 
fa1 = "[Libellé affaire] like " & Chr(34) & "*" & Forms![Lot par affaires]![Libellé sel] & "*" & Chr(34)
fa7 = "[Numéro affaire] like " & Chr(34) & "*" & Forms![Lot par affaires]![Affaire sel] & "*" & Chr(34)
fa2 = "[CCS] like" & Chr(34) & "*" & Forms![Lot par affaires]![CCS sel] & Chr(34)
fa3 = "[tranche] like" & Chr(34) & "*" & Forms![Lot par affaires]![Tranche sel] & Chr(34)
fa4 = "[OPEX-CAPEX] like" & Chr(34) & "*" & Forms![Lot par affaires]![Imputation sel] & Chr(34)
fa5 = "[Projet] like" & Chr(34) & "*" & Forms![Lot par affaires]![Projet sel] & Chr(34)
fa6 = "[Statut] like" & Chr(34) & "*" & Forms![Lot par affaires]![Statut sel] & Chr(34)
Me.Filter = fa1 & "and" & fa2 & "and" & fa3 & "and" & fa4 & "and" & fa5 & "and" & fa6 & "and" & fa7
Me.FilterOn = True
 
 
End Sub

[pam-pg]

C'est encore moi.
Concernant mdw, j'en ai fait l'expérience il y a quelques temps.
En fait quand on lance la base, il sse crée un fichier (mda je crois mais je ne me souviens plus très bien) . Or ce fichier dans mon cas ne peut pas se créer car l'autorisation pour créer des fichiers n'existe qu'à mon nom et pas à celui de mes collègues. L'administrateur ne veux pas modifier les droits, donc c'est rapé pour cette façon de faire.

Si tu as une autre idée, je suis preneur.

[loufab]

Ton filtre ne peut pas fonctionner même avec une version complète.
Analyse ce que tu envois à la propriété filtre et tu comprendras

c'est le fichier ldb qui se crée, sans les droits ajout/modification/suppression sur les répertoires impossible de se servir de la base : sécurisé ou pas.

Je ne vois pas pourquoi l' "administrateur" ne veut pas donner ces droits sur le répertoire, se sont des droits classiques d'un espace partagé sur un serveur de fichiers.

Tu peux très bien héberger la base sur un poste lambda.

[pam-pg]

Le problème de l'administrateur c'est qu'il ne gère que le niveau répertoire racine et pas en dessous. Il ne peut pas modifier juste le répertoire où se trouve ma base. bref! s'il le faisait, les collègues pourraient créer partout dans le répertoire racine .

SiSi Loufab, mon filtre fonctionne sans problème et je l'utilise couramment. Qu'est ce qui te tracasse au juste.

Salutations.

[loufab]

Voici le code que tu as fourni et que j'ai adapté pour éviter d'avoir à créer le form et les controles :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function test()
fa1 = "[Libellé affaire] like " & Chr(34) & "*" & "Libellé sel" & "*" & Chr(34)
fa7 = "[Numéro affaire] like " & Chr(34) & "*" & "Affaire sel" & "*" & Chr(34)
fa2 = "[CCS] like" & Chr(34) & "*" & "CCS sel" & Chr(34)
fa3 = "[tranche] like" & Chr(34) & "*" & "Tranche sel" & Chr(34)
fa4 = "[OPEX-CAPEX] like" & Chr(34) & "*" & "Imputation sel" & Chr(34)
fa5 = "[Projet] like" & Chr(34) & "*" & "Projet sel" & Chr(34)
fa6 = "[Statut] like" & Chr(34) & "*" & "Statut sel" & Chr(34)
test = fa1 & "and" & fa2 & "and" & fa3 & "and" & fa4 & "and" & fa5 & "and" & fa6 & "and" & fa7
 
End Function

Voici le résultat :

Code :

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

[Libellé affaire] like "*Libellé sel*"and[CCS] like"*CCS sel"and[tranche] like"*Tranche sel"and[OPEX-CAPEX] like"*Imputation sel"and[Projet] like"*Projet sel"and[Statut] like"*Statut sel"and[Numéro affaire] like "*Affaire sel*"

Il manque les espaces entre les And... plutôt génant.

au sujet de ton administrateur c'est édifiant...

cordialement,

edit : et avant le CCS sel

[pam-pg]

Loufab.

Effectivement c'est pas clean. Pourtant ça fonctionne sur Accès 2002(chez moi) et Accès 2000 je crois (sous réserve je vérifierai au boulot).

Par contre en runtime je ferai la correction et je te tiens au courant du résultat.
Merci.

[pam-pg]

L' admin a ouvert les droit à un panel restreint.
Ca marche impéccable avec un fichier mdw.

[loufab]

Content pour toi... et pour lui