Discussion :

[kiki.gaby]

Bonsoir à tous,

Access 2003

J'ai une table (A) avec les champs suivants :
"Id_cde" ( NuméroAuto + clé primaire ), "Date", "Nom_client" ( Texte )
Une autre table (B) avec les champs suivants :
"Num_ligne" ( NuméroAuto + clé primaire ),"Id_cde" (Numérique),"Commentaires" (Texte)
Une relation simple entre les 2 champs "Id_cde"

J'ai fait un formulaire (A1) indépendant qui reprend les champs de la 1ère table, un autre formulaire (B1)dépendant de la table 2 mais qui ne reprend que le champ "Commentaires". Sur le formulaire (B1) j'ai utilisé le code suivant ( trouver dans la FAQ ) pour empêcher l'ajout automatique des infos saisies dan formulaire:

Pour qu'Access n'enregistre pas les modifications faites dans un formulaire, il faut utiliser l'événement BeforeUpdate et y placer la ligne suivante :

Code :

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

Cancel = True

J'ai mis le formulaire (B1) comme sous formulaire dans le formulaire (A1).
Maintenant je voudrais récupérer les infos saisies dans le sous formulaire afin de les utiliser dans une requête ajout.

Jusque maintenant je ne suis arrivé à rien.

Est ce possible ?

Si oui, comment ?
Merci d'avance de vos conseils

[Invité]

Bonjour

Avant d'aller plus loin, je vais te conseiller la lecture de cet article de Loufab : Les syntaxes d'appel : Interaction des formulaires et états.

Philippe

[kiki.gaby]

Bonjour,

J'ai lu l'article de Loufab qui est très instructif.

"Formulaire1" formulaire principal
"Table2" sous formulaire dans formulaire principal

J'ai fait des tests, je récupère bien la valeur du formulaire mais pas celle du sous formulaire.

En m'inspirant des exemples de Loufab, j'ai établi le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function lire()
 
Dim db As Database
 
Dim prod1 As String
Dim prod2 As String
 
Dim frm As Form    ' ou Object
Set frm = Forms.Formulaire1
prod2 = frm.client.Value
prod1 = Forms.Formulaire1.Table2.Produit.Value
 
End Function

Je récupère la valeur "prod2" mais ensuite j'ai le message d'erreur suivant sur la valeur "prod1" :

Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet

Je crains le pire, cela signifie t'il qu'il n'est pas possible de récupérer la valeur contenu dans le champ de mon sous formulaire ?

J'ai retiré ma relation ainsi que la source de données de mon formulaire "Table2" mais toujours pareil

[Invité]

Bonjour

Tu as mal lu l'article, car ici :

Code :

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

Forms.Formulaire1.Table2.Produit.Value

Ta syntaxe n'est pas bonne, regardes bien la syntaxe ici : http://loufab.developpez.com/appelformulaire/#LIV-A

Philippe

[kiki.gaby]

Autant pour moi je n'ai pas bien lu l'article de Loufab,

Le code devient donc le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function lire()
 
Dim db As Database
 
Dim prod1 As String
Dim prod2 As String
 
Dim frm As Form    ' ou Object
Set frm = Forms.Formulaire1
prod2 = frm.client.Value
prod1 = Forms.Formulaire1.Table2.Form.Produit.Value
 
End Function

Merci beaucoup Philippe de m'avoir permis de solutionner ce pbe.