Discussion :

[bambi98]

Bonjour à tous
J'ai un probleme qui me tourmente. En effet Je suis entrain de faire une administration en dao. Le problème est que lorsque j’ajoute un utilisateur ou groupe crée à l’espace j’ai un message d’erreur me signalant :mise à jour impossible. La base de donnée ou l’objet est à lecture seule
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub administrer()
                     Dim espace As Workspace
                     Dim utilisateur As User
                     Dim goupe As Group
                          'creation de l'espace
                        Set espace = DBEngine.Workspaces(0)
                   With espace
                                  Set utilisateur = .CreateUser("utilisateur", "dfgdf")
                                   .Users.Append utilisateur
                    End With
            End Sub

merci de bien vouloir verifier si le code a une erreur et de m'apporter d'eventuelle solution

[loufab]

Bonjour Mickael.

La base est ouverte en mode exclusif.

Les droits systèmes sont insuffisant sur l'un des répertoires de la base (donnée, application ou fichier de sécurité).


A part ces 2 choses je n'en vois pas d'autres. voici un code issue du tuto sur la sécurité et qui fonctionne.

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
Function CreateUsr()
' necessite librairie DAO
    Dim wrk As Workspace
    Dim usr As DAO.User
 
    Set wrk = DBEngine.Workspaces(0)
 
    With wrk
 
        Set usr = .CreateUser("Jacques", "567AzeRTY89", "mon_motdepasse")
        .Users.Append usr
 
    End With
 
End Function

[Gary_Stoupy]

Bonjour,

Vérifie dans Option/Avancé et Mode d'ouverture par défaut...
bouton radio "Mode partagé" doit être sélectionné

[bambi98]

bonjour à tous
j'ai essayé vos solutions mais rien

Vérifie dans Option/Avancé et Mode d'ouverture par défaut...
bouton radio "Mode partagé" doit être sélectionné

c'est vrai que l'onglet ouverture en mode partagé etait coché mais ca pas changé quelque chose

voici un code issue du tuto sur la sécurité et qui fonctionne.

l'erreur reste meme avec cette solution et pourtant avec l'assistant il n'y a pas de probleme ca marche bien; mais en VBA zero. s'il vous plait essayer encore de m'apporter quelque chose