Discussion :

[p'tite Sandrine]

bonjour,

J'ai utilisé le code trouvé sur ce site pour ouvrir une fenêtre de sélection du fichier image a ajouter à l'enregistrement.
Il fonctionne super bien.

Seulement je vais devoir déplacer ma base de donnée quand elle sera finie.
Donc j'aimerais que cette boite s'ouvre sur une variable (le chemin d'accès du dossier) stockée dans une table et affichée dans un sous formulaire ou formulaire principal celon les cas.

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
 Private Sub Commande18_Click()
Dim strLink As String
 
' Gestion des erreurs
On Error GoTo Catch01
 
' récupération du chemin physique de la photo
' par la boite de dialogue
strLink = OuvrirUnFichier(Me.Hwnd, _
"Sélectionner une photo pour le batiment", _
2, "fichier image", "jpg", "Formulaires![ChemDoss]![ChemDoss]")
 
' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
' tentative d'affichage de la photo
Me.facade.Picture = strLink
Me.chemFacade = strLink
End If

Si je remplace "Y:\image" par "Formulaires![ChemDoss]![ChemDoss]" il n'en tient pas compte.
pouvez vous m'aider à corriger le code.
merci

[soltani1]

Bonjour,

et si tu enlève les guillemets "" de "Formulaires![ChemDoss]![ChemDoss]"
Regarde si ça fonctionne.

A+

[Junior_jef]

bonjour,

J'ai utilisé le code trouvé sur ce site pour ouvrir une fenêtre de sélection du fichier image a ajouter à l'enregistrement.
Il fonctionne super bien.

Seulement je vais devoir déplacer ma base de donnée quand elle sera finie.
Donc j'aimerais que cette boite s'ouvre sur une variable (le chemin d'accès du dossier) stockée dans une table et affichée dans un sous formulaire ou formulaire principal celon les cas.

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
 Private Sub Commande18_Click()
Dim strLink As String
 
' Gestion des erreurs
On Error GoTo Catch01
 
' récupération du chemin physique de la photo
' par la boite de dialogue
strLink = OuvrirUnFichier(Me.Hwnd, _
"Sélectionner une photo pour le batiment", _
2, "fichier image", "jpg", "Formulaires![ChemDoss]![ChemDoss]")
 
' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
' tentative d'affichage de la photo
Me.facade.Picture = strLink
Me.chemFacade = strLink
End If

Si je remplace "Y:\image" par "Formulaires![ChemDoss]![ChemDoss]" il n'en tient pas compte.
pouvez vous m'aider à corriger le code.
merci

essaie ceci:

Code :

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

1
2
3
strLink = OuvrirUnFichier(Me.Hwnd, _
"Sélectionner une photo pour le batiment", _
2, "fichier image", "jpg", Formulaires![ChemDoss]![ChemDoss])

La meme chose donc, mais sans les "

[p'tite Sandrine]

Cela donne:

Code :

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

1
2
Erreur inatendue: 424
Objet requis

[soltani1]

Bonjour,

teste si Formulaires![ChemDoss]![ChemDoss] renvoie bien le chemin d'accès du dossier.

A+

[Junior_jef]

Pourquoi 2 fois [ChemDoss]? : Formulaires![ChemDoss]![ChemDoss]


à mon avis ceci: Formulaires![ChemDoss] suffit
ou Formulaires![ChemDoss].value (mais la,j'en suis moin sur)

[p'tite Sandrine]

- le chemin d'acces renvois bien a un dossier


- j'ai mis deux fois [ChemDoss] car l'un est le nom du sous formulaire et l'autre le nom du champ de ce sous formulaire. (j'ai mis le même nom pour le retrouver facilement car ma base est plutot complexe et comprend déjà de nombreux formulaire et sous formulaire )

[soltani1]

Bonjour,

et si tu remplace "Formulaires![ChemDoss]![ChemDoss]" par
""" & Formulaires![ChemDoss]![ChemDoss] & """

A+

[p'tite Sandrine]

Plus de message d'erreur.
Mais il ne tient toujours pas compte du chemin d'acces et continue a ouvrir le dossier que j'avais viser avant de vouloir en faire une variable

[cafeine]

essaie

Code :

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

Me.Controls("CheminDoss").Form.Controls("CheminDoss")

[p'tite Sandrine]

merci pour votre aide.

On m'a conseiller quelque chose qui a bien fonctionné.
Mon problème était que je cherchais le champ d'un formulaire alors que c'était celui d'un sous formulaire. Ce qui donne:

Code :

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

1
2
3
strLink = OuvrirUnFichier(Me.Hwnd, _
                         "Sélectionner une photo pour le batiment", _
                         2, "fichier image", "jpg", Forms![NOUVEAU BATIMENT]![ChemDoss].Form![ChemDoss])

et voilà

merci a tous pour votre acceuil et surtout pour votre rapidité.