Discussion :

[fodan]

Bonjour a tous,
j'ai un formulaire avec une table de données(type texte) en sous formulaire
et je souhaiterais en double cliquant sur un des champs que la valeur se mette automatiquement dans une zone de liste

est ce possible?
si oui comment faire?

merci pour votre aide
un debutant perdu dasn les controles et compagnie!!!

[Mahefasoa]

Tout est possible! Mais à condition d'être plus précis dans l'exposé de tes besoins.

Donnes un peu plus de détails...

A+

[fodan]

bonjour
en fait j'ai cree une base de données sous access avec des films
tous les champs sont en texte, titre, realisateur, acteurs numero de fiche allocine etc...

j'ai cree un formulaire qui inclus cette table en sous formluaire et je pensais mettre des boutons dans le formulaire pour aller par exemple faire une recherche directo sur allocine

j'aimerai par exemple double cliquez sur un champs de ma table (par exemple realisteur) que ca me le copie automatiquement dans une zone de liste
et come ca apres j'aurai mis differents boutons pour faire des recherches
par exemple un bouton ouvrant une fenetre web sur allocine avec comme critère de recherche le realisateur en question!!!

j'espere etre plus clair

merci pour votre aide

[Mahefasoa]

Salut,
Une question: est ce ceci est il valable pour n'importe quel champ?
En attendant, voici ce que j'ai fait: j'ai un formulaire nommé Cat contenant un sous-formulaire et une zone de liste nommée ZL qui est de type Liste valeurs et non Tables/requêtes.

A l'ouverture du formulaire (événement Sur ouverture), je vide la zone de liste

Code :

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

1
2
 
Me.ZL.RowSource = ""

Lorsque je double clique sur le champ Film du sous-formulaire (événement Sur doble clic), j'appelle une procédure qui se chargera de l'ajout dans la zone de liste.

Code :

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

1
2
3
4
5
6
7
 
Private Sub Film_DblClick(Cancel As Integer)
  On Error GoTo sor
  Add_List Me.Film
sor:
  Exit Sub
End Sub

Et voici la procédure Add_List qui va faire l'ajout dans la zone de liste. Elle a comme paramètre le texte contenu dans le champ Film.

Code :

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

1
2
3
4
5
6
7
 
Private Sub Add_List(Texte As String)
  Dim strSource As String
  strSource = Form_Cat.Liste4.RowSource & ";'" & Texte & "'"
  If Left(strSource, 1) = ";" Then strSource = Mid(strSource, 2)
  Form_Cat.Liste4.RowSource = strSource
End Sub

Tout ceci est très sommaire. A toi de voir.

Bon courage et @+