Discussion :

[azur668]

Bonjour,

Cette question a déjà été posée, mais sans réponse, c'est pourquoi je me permet de la re-poser :

Quand on ouvre plusieurs fois la même base (le même fichier mdb ou mde),
à partir de la deuxième ouverture, on obtient ce message dans un bandeau à l'ouverture :

la base est ouverte en lecture seule. (...) pour modifier la structure, enregistrez une copie.

Cela ne me dérange pas qu'elle soit en lecture seule, mais je ne veut pas de ce message.
cela se produit même pour un mde/ade
et même en ouvrant la base depuis le runtime !
(alors que de toute façons les modification de structure n'y sont pas possible!)

Comment faire pour ouvrir une même base sur plusieurs poste sans avoir ce message?
Je dois absolument laisser les utilisateurs accéder au même fichier (pas à une copie locale),
et je ne peut me permettre de laisser ce message chez le client

Une piste : peut-etre une valeur non documentée de currentDB.properties a rajouter dans la base ??
(Existe-t-il une liste exhaustive de toutes les currentDB.properties reconnues par access?)

Merci

[GillesDeVuif]

Bonjour.
Tu peux essayer d'ajouter cela à ton code :

Code :

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

DoCmd.SetWarnings False

Cela permet de désactiver l'ensemble des avertissements : pour réactiver , c'est la même avec "True"

Cordialement.

[azur668]

Non, pas du tout !
SetWarnings sert uniquement pour masquer les messages de confirmations après une action de l'utilisateur

moi je parle d'un message qui s'affiche automatiquement à l'ouverture de la base.
Dans la version 2007, le message apparait sous la forme d'un bandeau en dessous du ruban.

Merci quand même.

Une autre idée ??

[GillesDeVuif]

Re.
Peut-être par les paramètres de Application.setOption ?

Code :

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

1
2
Application.SetOption "Default Open Mode for Databases", 0
Application.SetOption "Default Record Locking", 0

article msdn : http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

Cordialement.

[azur668]

Personne n'a d'idée pour enlever cette saleté de barre d'information ?

ça fait vraiment pas très propre en production.

Les utilisateur ne veulent de toute façons pas toucher à la structure, ils ne savent même pas ce que c'est !
Et en plus la base est un MDE à la structure intouchable, ce message est vraiment une aberration ! ! !

[nico84]

Existe-t-il une liste exhaustive de toutes les currentDB.properties reconnues par access ?

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
Private Sub DBproperties()
Dim FSO As New Scripting.FileSystemObject
Dim FileText As Scripting.TextStream
Dim prp
 
Set FileText = FSO.OpenTextFile(Planet_path & "properties.txt", ForWriting, True)
For Each prp In CurrentDb.Properties
  On Error GoTo suite:
  FileText.WriteLine prp.Name & Left("                              ", 30 - Len(prp.Name)) & " " & prp.Value
suite:
Next prp
FileText.Close
Set FSO = Nothing
Shell "notepad.exe " & Planet_path & "properties.txt" ', vbMaximizedFocus
End Sub

Avec cette séquence je n'ai pas de message mias je ne sais pas laquelle évite le conflit (Mode_admin est un booléen faux si l'utilisateur n'est pas administrateur) :

Code :

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

1
2
3
4
5
6
CurrentDb.Properties("AllowBypassKey") = Mode_admin
CurrentDb.Properties("StartupShowDBWindow") = Mode_admin
CurrentDb.Properties("AllowBuiltinToolbars") = Mode_admin
CurrentDb.Properties("AllowFullMenus") = Mode_admin
CurrentDb.Properties("AllowShortcutMenus") = Mode_admin
CurrentDb.Properties("AllowToolbarChanges") = Mode_admin

NB : la séquence nécessite un redémarrage de l'appli

[Tofalu]

Il suffit de faire en sorte que le problème en amont soit résolu. Ce n'est pas le message qui est génant mais son mode d'ouverture. Interesse toi à la notion de base de données frontale / dorsale et aussi aux tables liées.

Là, tu fais une mauvaise utilisation d'Access à priori, plein d'opérations nécessitent que la base soit en lecture/écriture

[azur668]

Merci Nico, Merci Tofalu,
mais mon problème n'est toujours pas résolu...

En fait il ne se produit que sur un fichier ADP/ADE :

Pour un fichier MDB, l'ouverture simultané du même fichier MDB sur deux postes ne pose aucun problème tant que aucun n'est en mode exclusif.
mais si un poste l'ouvre en exclusif, alors le message apparait et c'est normal (quoique il serai interessant de pouvoir le masquer)

Par contre pour une fichier ADP, si on ouvre le même fichier sur deux poste, le message apparait toujours sur le deuxième poste.
il semblerai que l'ouverture d'un ADP se fasse systématiquement en exclusif.

Une solution pour pouvoir partager à plusieurs un même fichier ADP en exploitation sans avoir ce message ?

(Il s'agit d'une appli en exploitation et les utilisateurs n'ont absolument pas l'intention de modifier la structure de la base)

[Tofalu]

Euh, chaque poste doit avoir son propre fichier ADP c'est les bases mêmes d'un client/serveur en l'occurence Access / SQL Server

[azur668]

Euh, chaque poste doit avoir son propre fichier ADP c'est les bases mêmes d'un client/serveur en l'occurence Access / SQL Server

Pas forcément, le fichiers ADP n'étant pas destiné a être modifié (en l'occurence c'est un ADE),
pourquoi ne pas utiliser le même pour tous les utilisateurs, comme un exe qui serai sur un lecteur réseau ?

Au passage cela simplifie énormément la gestion des versions, puisque tout le monde utilise forcément la même version.
Autrement, comment indiquer a un utilisateur que sa version est périmée ?
(bien sur c'est possible par le biais d'un flag dans la base dorsale, mais c'est assez complexe et nécessite une intervention de l'utilisateur)