Discussion :

[Elwe31]

Bonjour a vous tous,

Il y a un truc que je ne pige pas !!!!
je suis sous access 2000

J'ai un module de classe nommé "Obj1" qui ressemble a ça:

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
 
Private ListA
Private ListB
 
Private Sub Class_Initialize()
  'creation des collections
  Set ListA = CreateObject(Scripting.Dictionary)
  Set ListB = CreateObject(Scripting.Dictionary)
End Sub
 
Public Sub test()
  ListA.Add "A", "Ligne1" 
End Sub
 
Public Sub test2()
  msgbox "toto" 
End Sub

Et quand je fait dans une de mes fonctions:

Code :

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

1
2
3
 
Dim O1 As New Obj1
Osql.test

J'ai une Erreur : 424 - Objet requis

alors que si je fais:

Code :

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

1
2
3
 
Dim O1 As New Obj1
Osql.test2

ça fonctionne impecc !!!!!!!!????????

Quelqu'un a une idée ?

[mout1234]

Bonjour,


il s'agit d'objets donc il faut les déclarer en type objet (la non mention du type implique un type variant).

Code :

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

1
2
Private ListA as Object
Private ListB as Object

[Elwe31]

Merci....
Mais c'est pareil !

J'ai essayé juste une petite fonction:

Code :

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

1
2
3
4
 
Dim a As Object
Set a = CreateObject(Scripting.Dictionary)
a.Add "r", "rrrr"

Et sur la ligne "Set...." j'ai erreur 424 ( la meme )

Merci encore

[mout1234]

Code :

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

Set a = CreateObject("Scripting.Dictionary")