Bonjour,
Je redecouvre access dans une version 2021. Je souhaite protéger des tables en écriture en fonction d'un login. Cela se faisait simplement avant 2007... Je souhaite donc protéger mes tables en écriture. J'utilise ADOX. C'est le seul que j'ai su référencer.
Voici le code :

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
Sub GestionDroit()
Dim cnn As Object
Dim cat As Object
Dim tbl As Object
 
 
Dim connectionString As String
connectionString = "Provider=mabase;"
 
Set cnn = CreateObject("ADODB.Connection")
cnn.Open connectionString
Set cat = CreateObject("ADOX.Catalog")
Set cat.ActiveConnection = cnn
 
For Each tbl In cat.Tables
 
    If tbl.Type = "TABLE" Then
        tbl.Properties("Jet OLEDB:AllowEdits") = False
 
    End If
 
Next tbl
cnn.Close
Set cat = Nothing
Set cnn = Nothing
 
 
End Sub
.... J'arrive à lire les tables,afficher la date de crétation, lire leur type mais Properties ne fonctionne pas. Comment donc modifier la propriété d'une table pour empêcher qu'elle soit en écriture ? Grand merci à vous pour votre aide.
J'ai trouvé des exemples mais en dao.
Cdlt
Thierry