Discussion :

[pontoise]

Bonjour,

j'utilise 2 formulaires : Form1 et Form2, et je souhaietrais faire la manip suivante :
Sur une ligne du form1, je double clic sur le champs [CodeProspect], qui est égal à "valeur1" pour cette ligne, et cela m'ouvre le Form2 avec un filtre sur "valeur1" du champs [CodeProspect] du form2.
J'ai essayé le code ci-dessous, cela m'ouvre bien le form2 mais sans filtre sur la velur souhaitée (je vois tous les enregistrements du form2)

Code :

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

1
2
3
Private Sub CodeProspectLst_DblClick(Cancel As Integer)
Application.DoCmd.OpenForm "Form2", acNormal, , [CodeProspect] = Me.CodeProspect
End Sub

Merci de me corriger ce code ou me donner des idées SVP afin que je puisse appliquer le filtre sur Form2, étant donné que je ne connais pas très bien le VBA.

PS : CodeProspectLst est le nom du contrôle du champ [CodeProspect] dans form1.

[Mr T 94]

Salut,
essaie avec

Code :

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

Application.DoCmd.OpenForm "Form2", acNormal, , [CodeProspect] = Me.CodeProspectLst

[FRED.G]

Si ton critère est de type String :

Code :

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

DoCmd.OpenForm "Form2", acNormal, , "[CodeProspect] =" & chr(32) &  Me![CodeProspect] & chr(32)

S'il est numérique :

Code :

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

DoCmd.OpenForm "Form2", acNormal, , "[CodeProspect] =" & Me![CodeProspect]

Pour êter sûr de passer une valeur à jour, tu peux faire un Me.Refresh avant le DoCmd.OpenForm.

[pontoise]

Salut Fred.G, j'ai mis ton code '

Code :

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

DoCmd.OpenForm "Form2", acNormal, , "[CodeProspect] =" & chr(32) &  Me![CodeProspect] & chr(32))

, mais j'ai un message d erreur "Erreur d execution 3075, Erreur de syntaxe (operateur absent) dans l expression [CodeProspect] = '.
Peux tu vérifier ce qui manque STP ?

Pour les autres réponses, ça n'a pas fonctionné, j'ai toujours tous les enregitrepments sans filtre.

D'avance merci npour vos réponses

[FRED.G]

Excuse-moi, c'est chr(34) et pas chr(32). J'ai fait de tête sans vérifier.

[pontoise]

Super, ça marche FRED.G.
n fait, il y avait un conflit avec une zone de liste modifiable dans mon formulaire qui est baseé sur le même champ "CodeProspect", j'ai changé le nom du contrôle, ensuite j'ai réessayé ton code, et là ça a marché.

Merci beaucoup

[samgione]

je suis Gilles, j'ai utilise le code ci-dessous pour ouvrir un formulaire sur un enregistrement specifique, ca a vraiment marcher, mais: je qu'un message affiche si le numero entrer dans la zone de texe du form1 n'existe pas dans le form 2. aide moi stp!

DoCmd.OpenForm "T_Fournisseurs", acNormal, , "[No] =" & Chr(34) & Me![recherche] & Chr(34)
j'ai essaiye ceci ca nemarche pas.
If "[No] " <> (Me![recherche]) Then
MsgBox " pa bon"
End If

merci d'avance pour votre aide.