Discussion :

[redtek]

Bonjour,
j'ai un petit souci. Lorsque j'essaie d'utiliser l'évènement Nodecheck sur un treeview avec case à cocher j'ai l'erreur VBA suivante :

"Erreur de compilation, Sub ou fonction non définie"

Je travailles sous access 2000 SP3. Aucune référence Dll ne semble manquer...

Quelqu'un a-t-il la solution miracle ?

[Arkham46]

Bonjour,
j'ai un petit souci. Lorsque j'essaie d'utiliser l'évènement Nodecheck sur un treeview avec case à cocher j'ai l'erreur VBA suivante :

"Erreur de compilation, Sub ou fonction non définie"

Je travailles sous access 2000 SP3. Aucune référence Dll ne semble manquer...

Quelqu'un a-t-il la solution miracle ?

Bjr,

comment est déclarée la procédure qui est mal définie?

[redtek]

Voila ma sub
TV1 est mon treeview

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
 
Private Sub TV1_Nodecheck(ByVal Node As Object)
Dim mybase As DAO.Database
Dim rst As DAO.Recordset
Dim IDelem As String
Dim filtre As String
 
 
'lecture et traitement du noeud cliqué, permet de retrouver l'ID de l'élément
 IDelem = Node.Key
 i = (Len(IDelem)) - 5
 IDelem = Right(IDelem, i)
 
 
'ouverture du recordset pour modifier atester de l'élément cliqué ds le treeview
 Set mybase = CurrentDb
 Set rst = mybase.OpenRecordset("ELEMENTS", dbopensnapshot)
 filtre = "ID_ELEMENT =" & IDelem
 rst.FindFirst (filtre)
 
   If Not rstElements("ATESTER_ELEMENT") Then
                    rst.Edit
                    rstElements("ATESTER_ELEMENT") = True
                    rst.Update
                Else
                    rst.Edit
                    rstElements("ATESTER_ELEMENT") = False
                    rst.Update
                End If
 
 rst.Close
 
 End Sub

Franchement je ne comprend pas ce qui cloche...

[Arkham46]

et dans tout ça, ça plante sur quelle ligne?

[Tofalu]

Curieux :

dbopensnapshot

n'est pas en majuscule

De plus, qu'est ce que : rstElements ?

[redtek]

Losque mon formulaire est activé et que je clique sur une case à cocher de mon treeview j'ai cette erreur citée plus haut qui se déclanche et le debugueur qui se bloque sur la première ligne de ma sub.

[Arkham46]

dans le menu : débogage --> compiler

ça devrait te montrer où est l'erreur, sans doute la mêm chose que ce que dit Tofalu

[redtek]

Merci Tofalu !
Un copier coller malheureux et un recodset mal corrigé, rstelements n'avait rien à faire là ... du coup j'ai aussi corrigé dbopensnapshot en dbopendynaset histoire que ça marche !

Désolé de vous avoir dérangé pour si peu
Merci en tt cas