Discussion :

[DarkCerise]

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 :

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

1
2
Dim cnn As New ADODB.Connection
Set cnn = CurrentProject.Connection

renvoie l'erreur suivante :

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 :

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.

[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 ?

[argyronet]

Bonjour,

Essaye de modifier ton code comme suit :

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 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

[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 :

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

[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 :

?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 :

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

[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...

[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

[argyronet]

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

[pier.antoine]

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

Pierre

[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.