Discussion :

[Ouadhaj]

Bonjour à tous,

Je travaille sur une application interne fonctionnant sur Access. J'ai résolu de nombreux problèmes dessus mais il m'en reste un et je n'ai trouvé aucune aide dessus sur le Web.
Lors de l'ouverture de mon document Access, j'ai l'erreur de compilation "Type défini par l'utilisateur non défini" qui s'affiche sur les lignes suivantes :

Code :

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

1
2
3
4
5
6
7
8
Public gvExCLS01 As New EX_CLS01
Public gvExCLS02 As New EX_CLS02
Public gvExCLS03 As New EX_CLS03
Public gvExCLS04 As New EX_CLS04
Public gvExCLS05 As New EX_CLS05
Public gvExCLS06 As New EX_CLS06
Public gvExCLS07 As New EX_CLS07
Public gvExCLS08 As New EX_CLS08

J'ai eu beaucoups d'applications sur VBA mais je n'ai jamais rencontré ce Type la. Auriez vous une piste pour moi svp ?
Aucune Bibliothèque n'est marquée Manquante dans mes références.

Merçi à tous !

[marot_r]

Bonjour,

À priori je soupsconnerai ta série de EX_CLS... qui ne sont pas des types standards de Access.

Si ils n'ont pas été définis ailleurs dans ton code VBA avec une instruction de type :

Code :

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

1
2
3
Type EX_CSL01
  'ici ce qui caractèrise le type
end type

ou avec une référence, ce sont probablement eux les coupable.

A+

[Ouadhaj]

Bonbjour marot_r et tous les internautes,

En fait pour remettre les choses dans leur contexte il s'agit d'un très gros outil access que je n'ai pas développé.
On me l'a juste transmis pour résoudre les erreurs de code et sur ce proglème je reste....:aie::aie:

Les Type EX_CLS0* n'apparaissent nulle part dans tout le reste du projet,

et les objets gvExCLS0* ne sont rettrouvé que sur des fonctions de la sorte :

Code :

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

1
2
3
Function fnctIsNull(ByVal strFldCtrl) As Boolean
          fnctIsNull = gvExCLS01.fnctIsNullEx(strFldCtrl)
End Function

Je ne vois toujours pas la solution. Pour moi le problème vient de la déclaration des EX_CLS0* mais je ne sais pas ce qu'ils représentent.

[marot_r]

D'après le nom je dirai qu'il s'agit de fichiers Excel.

As-tu vérifié dans les références ?

fnctIsNullEx ressemble à un nom de fonction défini par l'utilisateur.

Je soupsconne qu'elle teste si un contrôle est nul.

Regarde où est utilisé ton fnctIsNull. Peut-être peux-tu remplacer l'appel à l'objet par une de ta propre fonction, un truc du genre :

Code :

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

1
2
3
Function fnctIsNull(byref strFldCtrl as variant) As Boolean
          fnctIsNull = isnull(strFldCtrl)
End Function

A+

[Ouadhaj]

J'y ai pensé mais sur d'autres fonctions ca parait plus complexe :

Code :

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

1
2
3
4
5
Function fnctGetScreenResolution(expRes$) As Boolean
 
    fnctGetScreenResolution = gvExCLS01.fnctGetScreenResolutionEx(expRes$)
 
End Function

Ou alors :

Code :

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

1
2
3
4
5
Function fnctCheckIfUnpaidInvoicesExists(DBFiledata As Database, strDynasetName$, IDCustomerToCheck&) As Long
 
    fnctCheckIfUnpaidInvoicesExists = gvExCLS01.fnctCheckIfUnpaidInvoicesExistsEx(DBFiledata, strDynasetName, IDCustomerToCheck)
 
End Function

En fait gvExCLS01 ne serait il pas la declaration d'un élément Graphique ?

[marot_r]

En fait gvExCLS01 ne serait-il pas la declaration d'un élément Graphique ?

Je ne pense pas. "gv", d'après moi doit vouloir dire "global variable" (variable globale, utilsable et modifiable de presque partout dans l'application). De plus je vois mal comment la vérification d'un facture pourrait être associée à un objet graphique.

pour fnctGetScreenResolution ce n'est pas très dificile de la recréer mais pour fnctCheckIfUnpaidInvoicesExists ce sera sans doute moins évident.

Si j'étais toi je demanderai à avoir accès à la machine qui fait tourner cette application et je chercherai des fichiers nommés EX_CLS*.

Je n'ai pas vu ta réponse, as-tu vérifié les références ? Elles peuvent aider à trouver des éléments externes à l'applictaion qui sont manquant.

Verifie aussi si tu n'as pas des modules de classes qui s'appellerai EX_CLS....

Pense à faire afficher les objets cachés, cela peut aider. (C'est une des options de la BD).

A+

A+

[Ouadhaj]

Merci Marot_r je vais continuer à regrader plus en profondeur le code.
sinon pour les référence j'avai déjà vérifié aucune bibliothèque n'est manquant.

Je continue à chercher de mon côté je reviendrai chercher de l'aide si je bloque toujours

En attendant je suis toujours preneurs d'idées.

Merci !