Discussion :

[nico62370]

Bonsoir,

J'ai réalisé un formulaire indépendant pour effectuer une recherche (en utilisant les conseils des tutos et autres posts)...
Donc, j'ai une zone de texte (txtNom), un bouton (btnSearch) et une zone de liste (lstResult).
La saisie de la recherche se fait dans txtNom
Le bouton btnSearch actionne le code qui affiche le résultat dans lstResult.

A partir des informations affichées, je souhaiterais pouvoir double-cliquer sur une ligne pour ouvrir un form avec les informations complètes.

Quelqu'un peut-il me donner une piste ?

Merci

[mcfly37]

Bonjour

il suffit juste de mettre l'ouverture du formulaire sur l'évenement double clique de ta liste, comme ceci :

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
Private Sub MaListe_DblClick(Cancel As Integer)
 
Dim stDocName As String
Dim stLinkCriteria As String
 
'Affecte le nom du formulaire que l'on veut créer au paramètre stDocName
 
stDocName = "MonFormulaire"
 
'Initialise le critère d'ouverture 
 
stLinkCriteria = "MonCritere = '" & Me.MaListe & "'"
 
 
'Ouvre le formulaire MonFormulaire sur l'enregistrement de  sélectionné
 
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
 
End Sub

Cordialement

mcfly

[nico62370]

Effectivement, avec ta manip j'arrive à ouvrir le formulaire voulu par contre j'ai un message : "Type de données incompatibles dans l'expression du critère".

Cela vient du fait que dans ma liste de choix, j'ai plusieurs colonnes :
N°Client | NomFamille | Prénom | Ville

Voici le code modifié avec mes paramètres :

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstResult_DblClick(Cancel As Integer)
 
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Clients"
stLinkCriteria = "N°Client = '" & Me.lstResult & "'" 
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
End Sub

J'ai essayé de remplacer N°Client (voir en rouge) par NomFamille mais le formulaire est vide.

[mcfly37]

Re

Si ton champs N° client est de type numérique, il faut enlever les quotes comme ceci :

Code :

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

stLinkCriteria = "N°Client = " & Me.lstResult & " ;"

J'en profite pour rajouter le point virgule que j'avais oublié (pas obligatoire mais ca fait plus propre^^)

Sinon si je puis me permettre, évite les nom de champs avec des caractères spéciaux (genre °) et des espaces, car ca oblige après a toujours mettre des crochets chaque fois que tu fait une opération sur le champs.

Cordialement

Mcfly

[nico62370]

C'est en forgeant qu'on de vient forgerons !

Merci de ton aide. çà fonctionne à merveille.