Bonjour,
J'ai récupéré ce code sur la base de données d'un collègue :
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().
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 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
Partager