Problème "fonction non définie"

[majudis]

Bonjour,

J'ai récupéré ce code sur la base de données d'un collègue :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Commande51_Click()

Dim strFilePath As String
Dim chemin As String

strFilePath = Openit()
Me.PHOTO = strFilePath

End Sub

J'ai tout vérifié, le nom des champs etc... tout est bon. Je suis certain que ce code fonctionne, simplement il me met une erreur. La ligne que j'ai surligné en rouge serait l'erreur. Il me dit "Fonction non définie". Peut etre ne connait-il pas la fonction openit().

J'ai vérifié au niveau des références, j'ai exactement les même que sur la base de mon collègue.

Je sèche

Grand merci d'avance

Majudis

[marot_r]

Autant que je sache, OpenIt n'est pas une fonction intégrée d'Access donc elle doit être défini dans un module quelque part dans ton application. Fait une recherche texte de OpenIt sur tout le projet.

Il se peut qu'elle soit définie comme private dans un formulaire ce qui ferait qu'elle ne serait pas visible en dehors de celui-ci.

A+