Discussion :

[Soulq]

Bonjour, je suis actuellement en train de sécuriser ma base access et je rencontre un petit problème.

J'ai crée un formulaire me permettant d'afficher des informations filtrées soit directement dans access soit en exportant sous excel, le tout en passant par la création de requete temporaires en fonction des filtres choisis.

En admin aucun souci tout fonctionne mais en Utilisateur j'ai 'erreur 3033' :

"Vous n'avez pas l'autorisation requise pour utiliser l'objet 'MSysTables'. ..."

Pour isoler le problème j'ai rajouter tous les droits à 'Utilisateur' a partir du menu 'autorisation d'accès' mais le problème persiste. Voici un des codes sur lequel se produit l'erreur :

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
31
32
33
34
Private Sub btnExcelStock_Click()
 
Dim qd As QueryDef
Dim SQL As String
 
SQL = "SELECT p.PartNumber, p.Designation, p.NFournisseur as Fournisseur,p.RefFournisseur,rc.BU, rc.QteBULocaux AS QteDansLocaux, rc.QteBUStock AS QteDansStock, rc.QteBUSite AS QteSurSite,Nz(rc.QteBULocaux,0)+Nz(rc.QteBUStock,0)+Nz(rc.QteBUSite,0) AS VolumeTotalBU, rd.DernierPrixU, rc.QteBULocaux*rd.DernierPrixU AS MontantLocaux, rc.QteBUStock*rd.DernierPrixU AS MontantStock,rc.QteBUSite*rd.DernierPrixU AS MontantSite,(Nz(rc.QteBULocaux,0)+Nz(rc.QteBUStock,0)+Nz(rc.QteBUSite,0))*rd.DernierPrixU AS MontantTotal FROM (ReqCalculStockEtLocauxBU AS rc INNER JOIN Produit AS p ON rc.NProduit=p.NProduit) INNER JOIN ReqDernierPxU AS rd ON p.NProduit=rd.NProduit WHERE p.NProduit <>0"
 
    If CocheLieu2 Then
 
        If ModifLieu2 = "Stock" Then
            SQL = SQL & "And rc.QteBUStock > 0"
        End If
 
        If ModifLieu2 = "LocauxShaktiware" Then
            SQL = SQL & "And rc.QteBULocaux >0"
        End If
 
        If ModifLieu2 = "SurSite" Then
            SQL = SQL & "And rc.QteBUSite >0"
        End If
 
    End If
 
    If CocheBU2 Then
        SQL = SQL & "AND rc!BU ='" & ModifBU2 & "'"
    End If
 
SQL = SQL & ";"
 
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", SQL)
    DoCmd.OutputTo acOutputQuery, "Requete_Temporaire", acSpreadsheetTypeExcel9, "EtatStock.xls", True
    DoCmd.DeleteObject acQuery, "Requete_Temporaire"
 
End Sub

La même erreur se produit si au lieu de "docmd.outputTo" il y a "docmd.openquery"

Comment est-il possible de régler ce problème?

[loufab]

Bonjour,

Tu as touché aux droits sur les objets MSYS... Il ne faut le faire que dans certains cas bien particulier.

Remet les droits sur ces tables systèmes.

Cordialement,

[Soulq]

Bonjour et merci de ta réponse,

Mais qu'est-ce que les tables systèmes MSYS et comment remettre les droits dessus?

Pour ma part j'ai changé les droits à partir des autorisations d'accès et je ne me souviens pas d'avoir vu des tables systèmes.