Discussion :

[laetus]

bonjour à tous,

alors voilà mon problème j'ai une table principale appelée SUIVIE_CONTROLE avec plusieurs champs dont un champ liste issue d'une table TBL_MODELE contenant le nom d'un model et l'autre chmap de la table s'appelle chemin c'est le chemin d'une image.

mon problème c'est que lorsque je suis sur mon formulaire issue de ma table principale je souhaiterais que en fonction du changement de ma liste déroulante de modèle cela charge l'image du modele dans le formulaire.

merci d'avance car je suis dans la panade
@+

[argyronet]

Bonjour,

Lorsque tu clic sur ta liste, celle-ci te renvoie la valeur de la colonne(0) qui doit être en générale l'ID de ton RowSource.
Dans ta liste, tu dois avoir également l'ID de l'image correspondante dans le table fille (TBL_MODELE).
De là, tu affectes une procédure VBA qui rafraichie ton image dynamiquement, soit par exemple si l'ID de ton image est sur le 2ème colonne:

Code :

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

1
2
3
4
5
Dim IDImage As Long
Dim MonCheminImage As String
MonCheminImage=Me!MaListe.Column(1)
MonCheminImage=ObtenirChemin(IDImage)
Me!ControleImage=LoadPicture(MonCheminImage)

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
Function ObtenirChemin(IDImage As Long) As String
Dim RS As Recordset
Dim DB As Database
Dim SQLCommand As String
 
  SQLCommand = "SELECT Chemin FROM TBL_MODELE WHERE ID = " & IDImage
  Set DB = currentDB
  Set RS = currentDB.OpenRecordset(SQLCommand, dbOpenDynaset)
  With RS
    .OpenRecordset
      ObtenirChemin = !Chemin
    .Close
  End With
  Set RS = Nothing
  Set DB = Nothing
End Function

A+

Argy

[laetus]

merci d'avoir repoondu mais il me fais une erreur pour Dim DB As DATABASE "type utilisateur non défini"

[argyronet]

Re,

Tu dois faire référence (Dans le menu Outils\Références) à DAO 3.x
Ensuite tu déclares comme tel:

Code :

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

1
2
Dim DB as DAO.Database
Dim RS as DAO.Recordset

A+

Argy

[laetus]

merci bien mais avec ton code j'ai réussi à trouver une astuce je prend la valeur caché du combo merci bien

[argyronet]

C'était le but...
Il est difficile d'expliquer ces finesses du fait que l'on connaisse pas bien le niveau de chacun.
Peux-tu mettre résolu si ce n'est pas fait...

A+

Argy