[AC-2010] Runtime et tables liées : erreur Automation [Résolu]

[perflo]

Hello,

J'ai un truc bizarre qui m'arrive ces jours-ci. Je me suis inspiré d'un tuto repris depuis le site pour gérer les tables liées depuis VB. Tout fonctionnait bien et tout à coup, j'ai un message d'erreur :

"L'expression sur clic entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. La classe ne gère pas Automation ou l'interface attendue"


Ce message apparaît uniquement avec le runtime !!!

Voici le code :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Function majLiensTablesLiées()
   Dim rstTable As New ADODB.Recordset
 
   rstTable.Open "SELECT bdTable.nomTable, bdBase.cheminBase FROM bdBase INNER JOIN bdTable ON bdBase.indexbdBase = bdTable.indexbdBase ;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
   Do While Not rstTable.EOF
      If LierTable(rstTable.Fields("nomTable"), rstTable.Fields("cheminBase")) = False Then
         MsgBox "Procédure interrompue !" & vbCrLf & vbCrLf & "Veuillez corriger le problème et recommencer !", vbOKOnly, "Information"
         rstTable.MoveLast
      End If
 
      rstTable.MoveNext
   Loop
 
   rstTable.Close
   Set rstTable = Nothing
 
End Function
 
 
Function LierTable(strTableALier As String, strChmFichier As String) As Boolean
   Dim dbBaseX As Database
   Set dbBaseX = CurrentDb
 
   On Error GoTo traiteErreur
 
   LierTable = False
 
   With dbBaseX.TableDefs(strTableALier)
      .Connect = ";DATABASE=" & strChmFichier
      .RefreshLink
   End With
 
   dbBaseX.Close
   Set dbBaseX = Nothing
   LierTable = True
 
   Exit Function
 
traiteErreur:
   MsgBox "Erreur no : " & Err.Number & vbCrLf & vbCrLf & Err.Description, vbOKOnly, "Erreur"
   LierTable = False
End Function

Le programme plante déjà sur rstTable.open ... C'est pourquoi je me suis dit que le problème devait venir d'une référence. Mais avant ça fonctionnait !?!?!? J'ai trafiqué dans tous les sens, en vain !?!?!

A n'y rien comprendre. Voici les références utilisées :



Merci de votre aide.

+ pour info : hier, chez deux collègues ayant Access version complète, leur programme, qui fonctionne nickel depuis longtemps, a planté (erreur bizarre 340... Mise-à-jour Windows ?!?!?). Après de nombreuses recherches, il a simplement fallu que je remplace les "Microsoft ActiveX Data Objects Library 2.8" par la 6.0, et ensuite c'était tout bon !

[perflo]

Pour le runtime, j'ai compilé le fichier afin qu'il ait une extension .accde

Or, si je me contente de renommer mon fichier avec une extension .accdr, ça fonctionne très bien avec le runtime !

A n'y rien comprendre

[perflo]

Trouvé !!!

Pour ceux que ça intéresse : c'est bien un problème de référence mal ... référencée, sur (je crois) les systèmes qui n'ont pas forcément fait les dernières mises-à-jour !

L'info Microsoft est à l'adresse suivante :

http://support.microsoft.com/kb/2517589/fr

Ensuite, j'ai suivi le lien indiqué dans Contournement, 983246. J'ai téléchargé le correctif correspondant au système d'exploitation en question (pour moi, le problème avait lieu sur un XP et un Windows 7 Home).

J'ai installé le correctif sur les PC et bingo, ça tourne !!