Discussion :

[bartimeus35]

Bonjour,
Dans le formulaire PERE ci dessous

quand je clique sur le petit panier, j'ouvre le formulaire "fils" avec la commande suivante :

Code :

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

 DoCmd.OpenForm "F_Objet", , , "id_item_commande = " & id_item_commande

FILS


Je récupère bien mes données, sauf que si j'ajoute un nouvel enregistrement, il laisse la valeur de id_item_commande à vide et du coup le lien entre les tables ne se fait pas .

J'ai essayé de mettre une valeur par défaut , cf ci-dessous mais du coup il me met # Nom?



Je voudrais que ce formulaire soit comme un sous formulaire , mais je le veux dans une fenêtre indépendante.

Note: si j'utilise l’assistant formulaire et que je sélectionne les champs de la table père et fils, il me poe la question suivante


Si je prend l’option sous formulaire, c'est OK, le l'ajout d'un nouvel enregistrement das la table FILS se passe bien, id_item_commande se met bien automatiquement !
Mais je veux une fenêtre intendante , donc je prend l'autre option , et j'ai le même problème que ce que j'ai décrit .
Je désespère !!!!

[marot_r]

Bonjour.

Autant que je sache il n'y a pas de liaison Pére/Fils entre des formulaires "indépendants".
Il faut te le programmer toi-même.

Ici un exemple :

Dans le père

Code :

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

call docmd.OpenForm("NomTonFormFils", , ,"UneCondition", , , me.TonChampPere.value)

Dans le fils, événement sur chargement

Code :

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

1
2
3
if not isnull(me.openargs) then
    me.TonChampFils.DefaultValue=me.openargs
end if

OpenArgs permet facilement de passer une valeur au formulaire appellé.

Éventuellement tu pourrais utiliser la condition au même usage, là il faut récupérer me.Filter (et travaillé le résultat) pour faire l'assignation à .DefaultValue. Et il me semble qu'il faut obligatoirement que DefaulValue soit du texte, donc il est possible qu'il faille mettre des guillemets autours de la valeur, donc peut-être : me.TonChampFils.DefaultValue="""" & me.openargs & """".

A+

[bartimeus35]

GENIAL
Ça marche nickel.
Je pétais un boulon depuis hier là dessus.

DU coup j'ai une question supplémentaire, si on veut passer 2 valeurs au formulaire appelé, comment ça se passé ?

[marot_r]

Bonjour.

Du coup j'ai une question supplémentaire, si on veut passer 2 valeurs au formulaire appelé, comment ça se passé ?

Là c'est plus cher :-).

La façon simple mais pas très sécuritaire et de concaténer tes valeurs et de les déconcaténer aprèss.

donc par exemple
dans le père : DoCmd.OpenForm …., Valeur1 & "|" & Valeur2.
dans le fils :

Code :

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

1
2
3
4
dim p() as variant
p()=split(me.OpenArgs, "|")
me.Valeur1=p(0)
me.Valeur2=p(2)

Le manque sécurité vient du fait qu'il faut que te souviennes dans quel ordre passer les valeurs et du nombre de valeurs à passer.

Une manière plus sûre mais plus lourde est de passer par un objet qu'on passe en paramètre au formulaire.
Il faut :
créer un module de classe :

clsParam

Code :

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

1
2
public Valeur1 as Texte 
public Valeur2 as Date

Puis dans le père.

Code :

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

1
2
3
4
dim param as new clsParam
param.Valeur1=me.Valeur1
param.Valeur2=me.Valeur2
DoCmd.OpenForm …., ConvertObjectToPointer(param)

Dans le fils :

Code :

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

1
2
3
4
dim param as clsParam
set param=ConvertPointerToObject(me.openargs)
me.Valeur1=param.Valeur1
me.Valeur2=param.Valeur2

Avec :

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
Private Const POINTERSIZE As Long = 4
Private Const ZEROPOINTER As Long = 0
Private Declare Sub RtlMoveMemory Lib "kernel32" _
    (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
 
Public Function ConvertObjectToPointer(ByRef objThisObject As Object) As Long
    Dim lngThisPointer As Long
 
    RtlMoveMemory lngThisPointer, objThisObject, POINTERSIZE
    ConvertObjectToPointer = lngThisPointer
End Function
 
Public Function ConvertPointerToObject(ByVal lngThisPointer As Long) As Object
    Dim objThisObject As Object
    RtlMoveMemory objThisObject, lngThisPointer, POINTERSIZE
    Set ConvertPointerToObject = objThisObject
    RtlMoveMemory objThisObject, ZEROPOINTER, POINTERSIZE
End Function

Une autre façon, si le fils connait le père est d'aller pécher la valeur directement dans le père, plus besoin de OpenArgs.

Code :

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

1
2
Me.Valeur1=Forms![NomFrmPere].Valeur1
Me.Valeur2=Forms![NomFrmPere].Valeur2

A+

[bartimeus35]

mille mercis