Discussion :

[edonis]

Bonjour a tous,
J'ai un formulaire1 avec un sous-formulaire1.
Dans formulaire1, j'ai deux champs que je renseigne et ainsi le
sous-formulaire1 affiche le résultat.
Jusque là aucun problème.

Dans un formulaire2, j'appel le formulaire1, et je voudrais ne pas avoir à resaisir les deux champs qui me servent de filtres, puisse qu'ils sont déjà définis dans le formulaire2.

J'ai pensé à faire un formulaire1bis et sous-formulaire1bis mais je ne voudrais pas multiplier les formulaires.

J'espère avoir été clair.
Avez-vous une piste que je puisse explorer ou une méthode permettant de copier les infos contenues dans les champs de Formulaire2 dans le formulaire1.

D'avance merci pour votre aide toujours aussi efficace.

[argyronet]

Bonjour,

Utilise l'argument OpenArgs de la méthode OpenForm()

Code :

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

DoCmd.OpenForm "MonForm", acNormal, , , , acDialog, "ValeurA;ValeurB"

Effectue un Split() de la chaîne contenant des deux valeurs afin de les affecter dans tes contrôles respectifs...
Effectue un Requery une fois les valeurs passées.

Code :

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

1
2
3
4
5
6
7
8
Dim vntArgs
 
If Not IsNull(Me.OpenArgs) Then
    vntArgs = Split(Me.OpenArgs, ";")
    Champ1 = vntArgs(0)
    Champ2 = vntArgs(1)
    Me.Requery
End If

Tu peux biensûr affecter les valeurs de tes contrôles à la chaîne "ValeurA;ValeurB" :

Code :

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

Me.ControlA & ";" & Me!ControlB

Argy

[edonis]

Oui, je ne suis pas rapide.

Ta solution m'avais ouvert une porte mais le problème n'était pas de première importance. Plutôt dans le confort.
J'avais donc laissé un peu de coté.

Je viens de reprendre et avec ton concours j'ai trouver la soultion.

Merci encore pour ton aide.

@+