[AC-2010] Erreur "incompatibilité de type" [Résolu]

[oreoolep]

Bonjour,

Sur ce morceau de code, je reçois un message d'erreur "Incompatibilité de Type" (erreur 13). C'est la ligne 11 ci-dessous.

Code :

Set rst = DB.OpenRecordset("_ChoixRequêtes_Métré", DB_OPEN_SNAPSHOT)

qui ne marche pas.

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
Function list_enreg_avalist()
 
Dim DB As Database
Dim rst As Recordset
 
On Error GoTo list_enreg_Err
 
DoCmd.OpenQuery "Supprimer_Avalist"
 
Set DB = CurrentDb
Set rst = DB.OpenRecordset("_ChoixRequêtes_Métré", DB_OPEN_SNAPSHOT)
rst.MoveFirst
 
Do Until rst.EOF
If rst(5) = "vrai" Then
 
 DoCmd.OpenQuery rst(1), acViewNormal, acEdit
 
End If
rst.MoveNext
 
 
Loop
 
Set rst = Nothing
Set DB = Nothing
 
DoCmd.RunMacro "_Macros_creant_avalist"
 
list_enreg_Exit:
    Exit Function
 
list_enreg_Err:
    MsgBox Error$
    Resume list_enreg_Exit
 
End Function

Une idée pour gérer ce problème ? Je crois que je ne suis pas assez doué pour trouver tout seul.

Merci

Ore

[Philippe JOCHMANS]

Bonjour

Plusieurs pistes à explorer :

A priori tu travailles en DAO, est-ce que la référence à ADO est bien enlevée ?

Es-tu sûr du nom de ta requête _ChoixRequêtes_Métré, et je ne pense pas que commencer un nom par _ soit l'idéal.

Philippe

[oreoolep]

Merci Philippe, ta réponse m'a mis sur une piste.

Je suis allé dans les références, j'ai décoché la référence à ADO, et du coup, ça a marché.

Après, j'ai une autre fonction (glanée celle-là sur le net) nécessitant ADO j'ai donc dû revenir pour recocher. Et là, surprise, les deux fonctions marchent sans problème ! J'avoue ne pas bien comprendre ce qui se passe !! En tout cas, mes deux fonctions marchent chacune de son côté.

Pour ce qui est des noms avec "_", effectivement, je crois que cela a été une mauvaise idée (en plus des noms en français), mais il va me falloir pas mal de temps pour nettoyer tout le code. Je vais essayer de démarrer ça le plus rapidement possible.

En tout cas, merci encore. Si tu peux me conseiller une lecture sur le moyen de faire coexister ADO et DAO, je te serais reconnaissant.

A+

[LedZeppII]

Bonsoir,

Pour faire coexister DAO et ADO voir : Erreur d'exécution '13', Incompatiblité de type.

A+

[oreoolep]

C'est parfait ! Merci beaucoup.

Ore