Discussion :

[ironik]

Bonjour à tous!

Je suis confronté à une erreur que je ne comprends vraiment pas, c'est pourquoi je fais appel à la communauté

Contexte:

Je veux instancier une collection d'objet que j'ai appelé ColPurchaseOrderDetail, mais lors de la compilation j'obtiens systematiquement le message d'erreur suivant: compile error: Invalid Use of New Keyword

J'utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private sub LoadPurchaseOrder() As Object

Dim mcolPurchaseOrderDetails As colPurchaseOrderDEtail
Dim strSupId As String
Dim strPurchaseOrderId As Double


Set mcolPurchaseOrderDetails = new colPurchaseOrderDEtail
 mcolPurchaseOrderDetails.Load strPurchaseOrderId, strSupId, , , , , , , , , True

End sub

Voila, je ne comprends vraiment pas d'ou peut venir l'erreur...
J'ai essayé d'instancier d'autres objets=> meme message d'erreur
J'ai essayé d'instancier d'autres objets ailleurs dans le code=> meme erreur.

Je suis largué alors merci d'avance pour votre aide!

[jmfmarques]

Peux-tu nous expliquer comment tu peux "imaginer" qu'une procédure est un objet ?

[ironik]

Peux-tu nous expliquer comment tu peux "imaginer" qu'une procédure est un objet ?

Nan mais à la base c'etait une fonction ^^ et j'ai oublié de corriger le "as object". Parfois j'ai de la M...e dans les yeux

Bref le probleme ne vient pas de là de toute facon...

Petite précision concernant mon probleme : les objets sont "définis" dans une DLL

[jmfmarques]

les objets sont "définis" dans une DLL

dans quelle dll et avec quelles structures ?
on ne voit ni ta déclaration de dll ni l'affichage de types !

[ironik]

Ok merci tu m'as donné la solution!!!

En fait j'essaie de reprendre un programme que je n'ai pas développé et j'ai encore un peu de mal à comprendre tous les liens.

La dll est EMSBusiness

Il faut que je déclare ma collection en précisant la dll !

Code :

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

Public gEMSBusinessFactory As EMSBusiness.CClassFactory

Code :

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

Private mcolEMSPurchaseOrderDetails as EMSBusiness.ColPurchaseOrderDetail

Ensuite il faut que je passe via le constructeur

Code :

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

Set mcolEMSPurchaseOrderDetails = gEMSBusinessFactory.CreateBusinessColClass(ClassId_ColPurchaseOrderDetail)

C'est bien compliqué tout ca lol

[ironik]

quel est l'interet de procéder de la sorte?

J'ai créé un objet en programmant de manière beaucoup plus directe
Dans le meme projet, j'ai juste à déclarer mon objet et faire un SET = NEW
et hop c'est parti...

Est ce une mauvaise méthode?