Discussion :

[Zartak]

Bonjour ! Voila dans ma base de données ACCESS j ai decidé d'effectuer un Archivage de certaines données, je copie simplement les données dans une autre base qui est la même au final sauf le nom biensur.
Lorsque je copie ces données, il faut que la base d'Archive soit en mode ecriture, cependant, de la base principale je peux ouvrir la base Archive

Code :

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

(ac.OpenCurrentDatabase (Ma base...)

, et a ce moment la elle doit être en mode Lecture seulement.

Existe t'il un morceau de code en VBA pour ouvrir une base de données en lecture seule? (Sans avoir plusieurs utilisateurs à gérer avec des droits a attribuer)

Comme par exemple cette syntaxe pour les raccourcis :

Code :

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

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" "C:\Mes documents\Base client.mdb" /ro

Mais dans ma Commande de base

Code :

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

ac.OpenCurrentDatabase (.....)

[gael44]

Tu peux ouvrir la base en exclusif : OpenCurrentDatabase(nom_base,True)
(True pour ouvrir en exclusif)

[Zartak]

Merci de ta réponse, en effet oui.. mais ca ne repond pas vraiment a mon problème.

La j essaye avec un RecordSet mais c est pas mon point fort , avec une syntaxe a peu pres comme celle ci:

Code :

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

Set oRS = CurrentDb.OpenRecordset(SQL , , dbReadOnly)

[gael44]

Met l'option dbDenyWrite et dbreadonly éventuellement

Code :

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

currentdb.OpenRecordset("table",,dbDenyWrite,dbreadonly)

Et puis je suis en WE j'espère que ca va marcher pour toi.

[Zartak]

Malheureusement je n'arrive pas a procédé de cette manière, quelqu'un aurait une autre idée ?

[Zartak]

J'essaye à présent une autre syntaxe, mais j'ai un problème :

Code :

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

1
2
3
4
5
Dim db As Database
Dim ws As Workspace
 
 
Set db = ws.OpenDatabase((rcs("Valeur")), True, True)

Le rcs("Valeur") contient le chemin de la base à ouvrir ( Je le recupère grace à un recordset) le code n'est pas complet mais ca devrait suffir pour mon problème.

Pourquoi j'ai ce message d'erreur?
Variable Objet ou variable de bloc With non définie?

Desolé je débute je galère un peu

[gael44]

IL y a des parentheses en trop dans ton code après avant rcs

[Zartak]

Desolé c est un "vieu" poste, j avais fini par trouver la solution, mais merci