La méthode 'Connection' de l'objet '_CurrentProject' a échoué

Version imprimable

13/01/2010, 14h33
DarkCerise

La méthode 'Connection' de l'objet '_CurrentProject' a échoué
Bonjour,

Je bute sur un problème depuis quelques jours, malgré de nombreuses recherches sur le sujet.

J'ai repris un projet réalisé sous Access 2007 et sans qu'aucune modification n'est été apportée, des dysfonctionnements sont apparus sur certains postes.

La commande CurrentProject.Connection, appelée ainsi :
Code:

1 2 Dim cnn As New ADODB.Connection Set cnn = CurrentProject.Connection
renvoie l'erreur suivante :

Citation:

Erreur d'exécution '-2147418113 (8000ffff)
La méthode 'Connection' de l'objet '_CurrentProject' a échoué

J'ai demandé à un utilisateur étant affecté par cette erreur de tester la valeur de currentproject.Connection.ConnectionString dans la console d'exécution, il obtient alors l'erreur suivante :

Citation:

Erreur d'exécution '-2147418113 (8000ffff)
Erreur Automation
Défaillance irrémédiable

Pour précision, cette erreur apparait sur des PC étant sous XP et Vista, sachant que d'autres postes ayant à priori la même configuration ne rencontrent pas ce problème.

La réinstallation du MDAC 2.8 SP1 n'a rien changé à la donne.

Merci d'avance de votre aide, j'en ai bien besoin.
15/01/2010, 10h41
DarkCerise

Décidément, cette erreur ne semble pas inspirer grand monde... Je serais pourtant très reconnaissante si quelqu'un avait une piste à me donner...

Pour information, j'ai fait une application Access faisant un simple appel à la méthode Connection de l'object currentProject, comme présenté précédemment et la même erreur apparait. Il semblerait donc que cette erreur ne soit pas propre à une application mais à Access en général. Quelqu'un aurait-il une idée des causes probables de ce problème ?

Bonjour,

Essaye de modifier ton code comme suit :

Code:

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 TestCnx()
Const THIS_DB                 As String = "Ta BDD.accdb"
Const CONNECTION_STRING       As String = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & THIS_DB & ";Mode=Share Deny None;"
Dim cnn                       As Object
Dim rs                        As Object
    On Error GoTo TestCnx_Error
 
    Set cnn = CreateObject("ADODB.Connection")
    With cnn
        .ConnectionString = CONNECTION_STRING
        .Open
        Set rs = .Execute("SELECT * FROM Clients")
        With rs
            Debug.Print .Fields(0).Value
            .Close
        End With
        .Close
    End With
    On Error GoTo 0
TestCnx_Exit:
    Set rs = Nothing
    Set cnn = Nothing
    Exit Sub
TestCnx_Error:
 
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure TestCnx"
    Resume TestCnx_Exit
End Sub

Qu'est-ce que ça donne ?

Argy

20/01/2010, 11h46
DarkCerise

Bonjour,

Tout d'abord, merci beaucoup pour ton aide et désolée pour le délai de réponse, j'ai eu quelques empêchements.

J'ai réalisé une version de l'appli n'appelant au chargement que la méthode TestCnx telle que tu l'as donné mais l'utilisateur obtient toujours la même erreur, à savoir :

Citation:

Erreur d'exécution '-2147418113 (8000ffff)
La méthode 'Connection' de l'objet '_CurrentProject' a échoué
21/01/2010, 16h21
DarkCerise

Bonjour,

J'ai aujourd'hui accès à un des postes présentant le problème évoqué ci-dessus et peut donc effectuer des tests plus facilement.

Je viens de découvrir quelque chose de nouveau. Pour provoquer l'erreur, j'allais dans la fenêtre d'exécution et tapais la commande suivante :

Citation:

?currentProject.Connection

qui me renvoyait l'erreur sur la méthode Connection de l'object currentProject. Je viens de constater qu'en appelant une 2e fois cette commande, une nouvelle erreur apparait à la place de la précédente :

Citation:

Erreur d'exécution '-2147217838 (80040e52)
L'objet source des données est déjà initialisé.

Est-ce que cela parle à quelqu'un ?
Merci d'avance
21/01/2010, 17h20
DarkCerise

Bon et bien le problème est résolu et bien que ça soit une bonne nouvelle pour moi ça reste assez frustant vu le temps passé...
J'ai lancé la réparation de Office (dans le panneau ajouter / supprimer des logiciels) et au bout de 30 minutes d'attente... ça marchait...
22/01/2010, 10h05
pier.antoine

Bonjour.

Une idée, qui vaut ce qu'elle vaut.

Est-ce que ce ne serait pas une référence non cochée, ou manquantes?

La réparation d'Office l'aurait remise en place...

Pierre
22/01/2010, 10h35
argyronet

Citation:

Envoyé par pier.antoine

Une idée, qui vaut ce qu'elle vaut.
Est-ce que ce ne serait pas une référence non cochée, ou manquantes?
La réparation d'Office l'aurait remise en place...

Non Pierre, je ne pense pas car avec le code que je lui ai proposé, elle aurait eu une erreur 429 et avec son propre code, une erreur de compilation.

Argy
22/01/2010, 11h38
pier.antoine

Ah alors...
Dans ce cas, je ne vois d'où ça pourrait venir.

Pierre
25/01/2010, 15h21
DarkCerise

J'avais contrôlé les références, donc je confirme qu'il ne s'agissait pas de cela. Cependant, je reste incapable de déterminer l'élément qui a posé problème. L'erreur étant apparue le même jour pour les 3 utilisateurs, il s'agissait peut-être d'une mise à jour mal installée.