Discussion :

[nabgre]

Salut à tous!
J'ai fractionner une base de données et j'ai mis la dorsale sur notre serveur.
Lorsque je lance la frontale sur le serveur, il n'ya pas de soucis, tout passe comme sur des roulettes.
Bizarrement, lorsque je veux la lancer à partir d'un ordinateur, j'ai l'erreur 3051 qui dit: " ... est déjà ouvert en mode exclusif par un autre utilisateur ou vous devez avoir l'autorisation de visualiser ou écrire sur ses données "
J'ai utiliser un autre ordinateur pour faire un autre test, mais c'est la même erreur.

Quelqu'un saurait il ce qui peux provoquer cela et m'aider?

[Invité]

Bonjour

La frontale doit être sur le PC et non sur le serveur.

Philippe

[nabgre]

Salut Philippe,
merci déjà pour la réponse.
Effectivement, mes frontales sont sur 3 ordinateurs que j'utilise pour faire le test et la dorsale sur le serveur.
Lorsque je les lance les frontales quelque soit l'ordinateur, c'est la même erreur qui apparaît et je ne sait vraiment pas pourquoi.

[loufab]

Bonjour,
As-tu vérifié que tu n'ouvres pas l'application en mode Exclusif ?
C'est dans les Options.

Cordialement,

[nabgre]

Bonjour loufab,
J'ai regardé dans les options, mais l'application est en mode partagé. c'est vraiment bizarre que ça ne donne pas!
j'ai aussi un code pour le changement du ruban à l'ouverture de l'application et je ne sait si cela peut être la souce du problème:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Function OuvreDémarrage()
 
On Error GoTo OuvreDémarrage_Err
 
Dim BdS As DAO.Database
Dim RecRuban As DAO.Recordset
Dim strXML As String
 
Set BdS = CurrentDb
Set RecRuban = BdS.OpenRecordset("SELECT Ruban.Txt FROM Ruban", dbOpenDynaset)
 
strXML = RecRuban.Fields(0).Value
 
RecRuban.Close
Set RecRuban = Nothing
 
BdS.Close
Set BdS = Nothing
 
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
Dim blnAutoriserMaj As Boolean
 
    '***********************************************
    blnAutoriserMaj = True
    '***********************************************
    ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
    ModifiePropr "StartupForm", DB_Text, "CONNEXION"
    ModifiePropr "StartupShowDBWindow", DB_Boolean, False
    ModifiePropr "StartupShowStatusBar", DB_Boolean, False
    ModifiePropr "AllowBuiltinToolbars", DB_Boolean, False
    ModifiePropr "AllowFullMenus", DB_Boolean, False
    ModifiePropr "AllowBreakIntoCode", DB_Boolean, False
    ModifiePropr "AllowSpecialKeys", DB_Boolean, False
    '***********************************************
    ModifiePropr "AllowBypassKey", DB_Boolean, True
    '***********************************************
    Application.SetOption "Show Startup Dialog Box", False
    Application.SetOption "Show Hidden Objects", False
    Application.SetOption "Show System Objects", False
    Application.SetOption "Show New Object Shortcuts", False
    Application.SetOption "Show Status Bar", False
    Application.SetOption "ShowWindowsInTaskbar", False
 
 
Application.LoadCustomUI "Rubanperso", strXML
 
 
OuvreDémarrage_Sortie:
    Exit Function
 
OuvreDémarrage_Err:
    MsgBox Err.Description & " " & Err.Number, vbCritical
        Resume OuvreDémarrage_Sortie
End Function

Ca peut être la cause?