Discussion :

[tAKAmAkA]

Bonjour à tous,

Dans le cadre de la sécurisation de ma base je souhaite avoir un groupe "Lecture seule" (j'ai utilisé l'assistant et choisi les groupes proposés par celui-ci).

Ce groupe doit pouvoir executer des requêtes de mise à jour mais sans avoir les droits sur les tables.
J'utilise donc l'option WITH OWNERACCESS dans la requête comme ceci:

Une fonction met à jour certains champs en fonction de la valeur renvoyée par un DCount:

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
Public Function fctMajNbSousLoc(ByVal Parent)
Dim combien As Long, SQL As String
Select Case Len(Parent)
    Case 1
                combien = DCount("MagasinID", "tblMagasin", "DepotParent = '" & Parent & "'")
                'Debug.Print "combien1 " & combien
                'DoCmd.RunSQL "UPDATE tblDepot SET NbSousLoc = " & combien & " WHERE DepotID = '" & Parent & "' ;"
              SQL = "UPDATE tblDepot SET NbSousLoc = " & combien & " WHERE DepotID = '" & Parent & "' WITH OWNERACCESS OPTION;"
 
    Case 2
                combien = DCount("EpiID", "tblEpi", "MagasinParent = '" & Parent & "'")
                'Debug.Print "combien2 " & combien
                SQL = "UPDATE tblMagasin SET NbSousLoc = " & combien & " WHERE MagasinID = '" & Parent & "' WITH OWNERACCESS OPTION;"
    Case 3
                combien = DCount("TraveeID", "tblTravee", "EpiParent = '" & Parent & "'")
                'Debug.Print "combien3 " & combien
                SQL = "UPDATE tblEpi SET NbSousLoc = " & combien & " WHERE EpiID = '" & Parent & "' WITH OWNERACCESS OPTION;"
    Case 4
                combien = DCount("TabletteID", "tblTablette", "TraveeParent = '" & Parent & "'")
                'Debug.Print "combien4 " & combien
                SQL = "UPDATE tblTravee SET NbSousLoc = " & combien & " WHERE TraveeID = '" & Parent & "' WITH OWNERACCESS OPTION;"
    Case 5
                combien = DCount("ArticleID", "tblArticle", "AdTopo = '" & Parent & "'")
                'Debug.Print "combien5 " & combien
                SQL = "UPDATE tblTablette SET NbSousLoc = " & combien & " WHERE TabletteID = '" & Parent & "' WITH OWNERACCESS OPTION;"
    Case Else
    MsgBox "Cas non prévu ", , "xxx"
End Select
    CurrentDb.QueryDefs("qryMajNbSousLoc").SQL = SQL
End Function

L'instruction suivante ne marchant plus car le groupe n'a pas droit de maj sur les tables

Code :

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

'DoCmd.RunSQL "UPDATE tblDepot SET NbSousLoc = " & combien & " WHERE DepotID = '" & Parent & "' ;"

Je ne sais pas si la démarche est correcte.
Le groupe Lecture seule devrait hériter des droits du propiétaire et donc pouvoir exécuter la requête.
Au lieu de cela j'ai l'erreur 3033 qui me dit que je n'ai pas les droits pour utiliser l'objet qryMajNbSousLoc.

C'est la première fois que j'utilise cette option et ce n'est pas sans douleurs...

Pourriez-vous me dire où le bât blesse, s'il vous plait?

[Maxence HUBICHE]

Démarche incorrecte (puisque cela ne fonctionne pas !)

Essaie plutôt les requêtes paramétrées