Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et aide.

J'ai une appli sécurisée avec un fichier MDW :-( dans laquelle je doit aller chercher des données.

Je précise que cette application ne "m'appartient" et que je ne peux pas la modifier ni ajouter un utilisateur par contre j'ai le mot de passe et le code de l'admin. Comme la base est bien sécurisée l'Administrateur (utilisateur par défaut) n'a pas de droit.

J'ai créer une base test avec un utilisateur qui a le même nom que l'admin de la base sécurisée puis tenté de lier ma table mais il me dit que je n'ai pas le droit de lier cette table.

J'ai pensé à utiliser le .mdw de la base sécurisé comme .mdw de ma base mais je ne sais pas comment procéder pour qu'il ne devienne pas le mdw par défaut de toutes mes base Access.

J'ai jeté un oeil à la FAQ mais j'ai rien trouvé qui me soit utile.

Quelqu'un a déjà fait cela ? A une piste de solution ?

A+

[Lou Pitchoun]

Bonjour à tous et merci de votre temps et aide.

Bonjour à toi tout seul

J'ai pensé à utiliser le .mdw de la base sécurisé comme .mdw de ma base mais je ne sais pas comment procéder pour qu'il ne devienne pas le mdw par défaut de toutes mes base Access.

J'ai jeté un oeil à la FAQ mais j'ai rien trouvé qui me soit utile.

Quelqu'un a déjà fait cela ? A une piste de solution ?

A+

Pour utiliser le mdw uniquement sur cette base, utilise un raccourci :

Code :

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

"C:\Chemin_exécutable_access" "Chemin_base_access" /wrkgrp "Chemin_du_mdw"

[marot_r]

Non ça marche pas.

Il me dit que je n'ai pas accés à ma base test si j'utilise le fichier de sécurité de la base protégée.

L'idée qui me semble la plus viable c'est de créer une nouvelle base et de lui dire que son fichier de sécurité est le même.

Le pb c'est que la seule solution que j'ai trouvée c'est Outil/Sécurité/Admin Groupe de travail/Joindre. Mais si je fait cela TOUTES mes BD viennent se brancher sur ce groupe de travail par défaut et du coup je n'ai plus accès à rien.

Pas cool :-(.

A+

[Lou Pitchoun]

Comment ça ?? ça marche pas ???
Ah oui ok.. je crois que j'ai compris...
As tu sécurisé ta base test selon les mêmes critères (droit d'accès des groupes) que l'autre ??

une chose que j'ai oublié de te demander pour précision:
Tu dis avoir le code admin : avec ce code, tu ne peux pas accéder aux données ?

[marot_r]

Comment ça ?? ça marche pas ???
Ah oui ok.. je crois que j'ai compris...
As tu sécurisé ta base test selon les mêmes critères (droit d'accès des groupes) que l'autre ??

J'ai essayer mais apparement même si l'utilisateur porte le même nom et à les même droits, il n'est pas le même. J'ai même essayer de réactiver le compte Admin dans la base sécurisée et de me servir du MDW avec ma base de test mais là il ne me laisse pas rentrer dans ma base de test.

une chose que j'ai oublié de te demander pour précision:
Tu dis avoir le code admin : avec ce code, tu ne peux pas accéder aux données ?

J'arrive à accéder aux données dans la base sécurisée mais pas à partir d'une base extérieure par link.

A+

[Tofalu]

C'est un des derniers codes sources (voir le dernier) il me semble

http://access.developpez.com/sources

[Arkham46]

slt,

J'ai essayer mais apparement même si l'utilisateur porte le même nom et à les même droits, il n'est pas le même.

Non c'est pas le même, l'utilisateur est identifié par un ID en plus du Login quand tu le crée.
Il faut que cet Id soit le même.

[marot_r]

Merci à vous deux. Ici le code que j'ai utilisé.

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
 
Private Sub TestConnexionDBSecurisee()
    Dim wk As Workspace
    Dim db As Database
    Dim dbe As DBEngine
 
    Set dbe = New DBEngine
    dbe.SystemDB = "C:\DataEase\Data\COLS BLEUS\System.mdw"
    Set wk = dbe.CreateWorkspace(Format(Now(), "yyyymmddhhnnss"), "monUser", "monMotPasse", dbUseJet)
    Set db = wk.OpenDatabase("C:\DataEase\Data\COLS BLEUS\Pers_col_bleu.mdb", , , "MS Access;PWD="monMotPasse"")
 
    'Exemple de lecture de données
    Dim t As tabledef
    Dim r As Recordset
    Dim f As Field
 
    For Each t In db.TableDefs
        If Not t.Name Like "MS*" Then
            Debug.Print t.Name
            Set r = db.OpenRecordset(t.Name)
            Do While Not r.EOF
                For Each f In r.Fields
                    Debug.Print f.Name, f.Value
                Next f
                r.MoveNext
            Loop
            r.close:set r=nothing
        End If
    Next t
 
    db.Close: Set db = Nothing
End Sub