Discussion :

[tieuphuong]

bonjour,

je voudrais voir ce que donne le gestionnaire d'images présenté par Caféine sous access 97 :

quand j'ouvre le formulaire j'ai l'erreur : 'Erreur de compilation Variable non définie'

qui pointe sur 'CurrentProject'

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
18
19
20
Private Sub Form_Current()

If Len(Me.Nom) > 0 Then
    Me.Caption = "Détails pour le salarié : " & Me.Nom & " - " & Me.Prénom
Else
    Me.Caption = "Saisie d'un nouveau salarié"
End If

On Error GoTo Catch02

If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
Else
    Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
End If

DisplayPhoto

Exit Sub

j'ai essayé de l'ouvrir sous access 2003 et j'ai le même probleme...

Caféine ou quelqu'un d'autre pourrait il me dire comment faire pour que ça marche?

merci d'avance.

[Domi2]

Bonjour,

Regarde peut-être du côté des références.

Tu n'en aurait pas une marquée manquante ?

Vérifie également que la référence Microsoft Access XX Object Library soit bien cochée.

Domi2

[tieuphuong]

Bonjour,

a priori je les ai toutes...

cf capture.

[Domi2]

Re,

Ben, sorry, mais on voit pas grand-chose...

Ceci étant, tu as simplement repris le projet, ou tu l'as incorporé dans une de tes applications ?

Domi2

[tieuphuong]

Pour l'instant je voulais voir à quoi ça ressemblait et comment ça marchait.

Après je verrai si je peux l'utiliser dans un de mes projets perso...

[Lou Pitchoun]

Salut,

CurrentProject n'existe pas sous Access97.

utilise cette fonction pour récupérer le chemin de la base :

Code :

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

1
2
3
4
5
Public Function ParentDir() As String
 
    ParentDir = Left(CurrentDb.name, Len(CurrentDb.name) - Len(Dir(CurrentDb.name)))
 
End Function

Code :

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

Me.imgPhoto.Picture = ParentDir & "\images\blank.jpg"

[Domi2]

Re,

Curieux...

La bibliothèque ADO est bien cochée ? quelle version ?

Domi2

[tieuphuong]

ça marche avec ce nouveau code!

Merci