Discussion :

[karidrou]

Bonjour,
J'ai ajouté une sécurité pour mon application avec 2 groupes : administrateur et autorisation max
Sous administrateur aucun pb
Sous autorisation max j'ai une erreur d'éxécution 3033 : vous n'avez pas l'autorisation requise pour utiliser l'object 'MSysTables'
J'ai donné presque tous les droits à ce groupes mais sans succés.
Ca plante au niveau de mon formulaire : sur l'événement Après MAJ j'ai un petit code VBA pour créer un requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_AfterUpdate()
Dim Sql As String
 
Sql = "SELECT T_PROFESSIONNEL_SANTE.s_nom, T_PROFESSIONNEL_SANTE.s_prenom, T_PROFESSIONNEL_SANTE.s_specialite, T_PROFESSIONNEL_SANTE.s_mode_exercice, T_PROFESSIONNEL_SANTE.s_adhesion, TS_SPECIALITE.specialite_txt, TS_MODE_EXERCICE.mode_exercice_txt, T_PROFESSIONNEL_SANTE.codeprof INTO T_PATIENT_PROF"
Sql = Sql & " FROM TS_MODE_EXERCICE RIGHT JOIN (TS_SPECIALITE RIGHT JOIN T_PROFESSIONNEL_SANTE ON TS_SPECIALITE.specialite = T_PROFESSIONNEL_SANTE.s_specialite) ON TS_MODE_EXERCICE.mode_exercice = T_PROFESSIONNEL_SANTE.s_mode_exercice;"
DoCmd.DeleteObject acQuery, "R_PATIENT_PROF"
 
CurrentDb.CreateQueryDef "R_PATIENT_PROF", Sql
DoCmd.SetWarnings False
DoCmd.OpenQuery "R_PATIENT_PROF"
DoCmd.SetWarnings True
 
End Sub

Il ne veut pas créer la requête R_PATIENT_PROF.
En cherchant sur le forum, j'ai peut être trouvé ça : je n'aurais pas donné l'autorisation de modifier le code sql ????
Je ne sais pas comment on fait
Merci de m'aider

[totom]

Au lieu de faire ton querydef pour supprimer quelquechose, passe par un
DoCmd.RunSQL ("Ta requete de suppression")
Si tu veux supprimer une ligne d une table
fais "DELETE CleDeTaTable FROM Table WHERE Condition"
Ca devrait fonctionner.
Bonne chance
Tom