Discussion :

[Niaouli02]

Bonjour,

J'ai vu quelques posts qui s'approche de mon problème mais pas de solution me concernant.

J'ai un formulaire de recherche comportant des zones de listes modifiables en cascade. Pour faire cette intéraction entre les zones de listes, je suis passées par une requête.

Le résultat de cette requête (plusieurs enregistrements) s'affiche dans une zone de liste simple.

Je voudrais qu'en double clickant sur un enregistrement, un formulaire de description (existant) s'ouvre. J'ai programmé un filtre dans ce formulaire de description afin qu'il s'ouvre sur l'enregistrement cliqué. Le lien étant du texte.

Voici mon code :

Code :

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

1
2
3
4
5
6
 
Private Sub lst_rech_resul_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "F_fiche", acNormal, , "[ORE]=" & Me.lst_rech_resul
 
End Sub

lst_rech_resul correspond à ma zone de liste où sont affichés les résultats de la requête dans le formulaire de recherche.

Le message d'erreur est le suivant :
Erreur d'execution '2501' :
L'action OpenForm a été annulée.
et vb me surligne la ligne de commande DoCmd.....

Si quelqu'un pouvait me donner des indications.... A noter que j'avais trouvé ce code sur un forum.. le seule différence avec mon travail c'est que le résultat ne résultait pas d'une requête.

Merci pour votre compréhension,.... en espérant que quelqu'un puisse m'aider.

[Gabout]

Bonjour,

Ton code me semble ok... si Me.lst_rech_resul correspond à une valeur numérique.

Si ce n'est pas le cas, tu transformes en

Code :

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

1
2
3
Private Sub lst_rech_resul_DblClick(Cancel As Integer)
DoCmd.OpenForm "F_fiche", acNormal, , "[ORE]='" & Me.lst_rech_resul &"'"
End Sub

Sinon je ne vois pas...

[Niaouli02]

Merciiiiiiiiiiiiiiiiiiiiiiiiii beaucoup beaucoup !

le problème était effectivement le fait que ma valeur était du texte et non pas du numérique..... J'y avait pensé mais je n'avais modifié mon qu'une partie du code et forcément ça ne fonctionnait pas.

Encore merci

[PASCALITA]

Bonjour,

Ton code me semble ok... si Me.lst_rech_resul correspond à une valeur numérique.

Si ce n'est pas le cas, tu transformes en

Code :

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

1
2
3
Private Sub lst_rech_resul_DblClick(Cancel As Integer)
DoCmd.OpenForm "F_fiche", acNormal, , "[ORE]='" & Me.lst_rech_resul &"'"
End Sub

Sinon je ne vois pas...

Bonjour Gabout,
J'ai la même demande que Niouli02 : en cliquant sur le nom de mon client dans une zone de liste, je voudrai que le formulaire affiche ses infos.
Mais je ne sais pas où écrire ce code ... en mode modification du formulaire, je "clic droit / modifier" sur le contrôle "zone de liste" . Ensuite je rentre dans "contrôle" et après je suis bloquée.... Peux tu m'aider ?
Un grand merci d'avance
Pascalita

[PASCALITA]

Bonjour Gabout,
J'ai la même demande que Niouli02 : en cliquant sur le nom de mon client dans une zone de liste, je voudrai que le formulaire affiche ses infos.
Mais je ne sais pas où écrire ce code ... en mode modification du formulaire, je "clic droit / modifier" sur le contrôle "zone de liste" . Ensuite je rentre dans "contrôle" et après je suis bloquée.... Peux tu m'aider ?
Un grand merci d'avance
Pascalita