Pas de permission pour "MSysTables" object

Ici le bout de code du bouton...

DoCmd.SetWarnings (False)
dates = Format(DateSerial(Year(DateBox), Month(DateBox),
Day(DateBox)), "MM-DD-YYYY")

SQL = "SELECT Agenda.idGroupe, Agenda.idDossier, Agenda.date,
Agenda.reference, Agenda.description, Agenda.vacation, Agenda.fait, [prenom]
& "" "" & [nom] AS PrenomNom FROM Employes INNER JOIN Agenda ON
Employes.idEmploye = Agenda.idEmploye WHERE Agenda.date=#" & Format(dates,
"DD-MM-YYYY") & "# And Agenda.idEmploye= " & EmployeBox & " ORDER BY
Agenda.idGroupe, Agenda.idDossier, Agenda.date"

DoCmd.DeleteObject acQuery, "reqAgendaImprimer"
Set qryNew = CurrentDb.CreateQueryDef("reqAgendaImprimer")
qryNew.SQL = SQL
DoCmd.SetWarnings (True)

stDocName = "Agenda"
DoCmd.OpenReport stDocName, acViewNormal

:o)

Bonjour,

Encore un problème... Avec l'ajout de la sécurité, tout va pour le mieux
sauf pour une seule chose. J'ai un bouton que lorsqu'on le clique, je Delete
une requête et j'en crée une nouvelle du même nom avec différentes
informations et ensuite j'ouvre un état avec cette nouvelle requête.
Lorsqu'un usager essaie de l'utiliser, ca dit que ils n'ont pas de permission
suffisante pour "MSysTables".

De plus, tous mes usagers sont dans le groupes "Users" par defaut. J'ai
enlevé tous les droits à ce groupe par exemple.

Pourquoi ils n'ont pas les permissions suffisantes?

Merci!

Bonjour,
Pourquoi supprimer la requete si seule le SQL est modifie.
Visiblement les utilisateurs n'ont ni le droit de supprimer ou d'ajouter des
objets dans la base.

Essaie en ne mettant a jour que le SQL de ta requete :

CurrentDb.Querydefs("reqAgendaImprimer").SQL = SQL

Ici le bout de code du bouton...

DoCmd.SetWarnings (False)
dates = Format(DateSerial(Year(DateBox), Month(DateBox),
Day(DateBox)), "MM-DD-YYYY")

SQL = "SELECT Agenda.idGroupe, Agenda.idDossier, Agenda.date,
Agenda.reference, Agenda.description, Agenda.vacation, Agenda.fait, [prenom]
& "" "" & [nom] AS PrenomNom FROM Employes INNER JOIN Agenda ON
Employes.idEmploye = Agenda.idEmploye WHERE Agenda.date=#" & Format(dates,
"DD-MM-YYYY") & "# And Agenda.idEmploye= " & EmployeBox & " ORDER BY
Agenda.idGroupe, Agenda.idDossier, Agenda.date"

DoCmd.DeleteObject acQuery, "reqAgendaImprimer"
Set qryNew = CurrentDb.CreateQueryDef("reqAgendaImprimer")
qryNew.SQL = SQL
DoCmd.SetWarnings (True)

stDocName = "Agenda"
DoCmd.OpenReport stDocName, acViewNormal

:o)

Bonjour,

Encore un problème... Avec l'ajout de la sécurité, tout va pour le mieux
sauf pour une seule chose. J'ai un bouton que lorsqu'on le clique, je Delete
une requête et j'en crée une nouvelle du même nom avec différentes
informations et ensuite j'ouvre un état avec cette nouvelle requête.
Lorsqu'un usager essaie de l'utiliser, ca dit que ils n'ont pas de permission
suffisante pour "MSysTables".

De plus, tous mes usagers sont dans le groupes "Users" par defaut. J'ai
enlevé tous les droits à ce groupe par exemple.

Pourquoi ils n'ont pas les permissions suffisantes?

Merci!