Discussion :

[El Bosc]

Bonjour,

Dans le formulaire F_Rv, j’ ai un sous formulaire contenant deux listes liées.
La première liste(Famille de matériel) me permet de sélectionner une famille de matériel. Je veux que la deuxième liste(Matériel) ne présente que des données correspondants à la famille sélectionnée. Pour se faire, j’ utilise une macro qui fonctionne parfaitement dans un formulaire simple. Lorsque j’ ai voulu l’ adapter à un sous formulaire, j’ ai du commettre une erreur mais je n’ arrive pas à trouver ou.
Je joins donc une base simplifiée ainsi que la macro utilisée.
Macro:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
'===============================================================================================================
	Sub CreationTableProvisoire()
 
    	Dim Connection as Object, RequeteCreation as Object
    	Dim RequeteSQL as string
 
       Connection = ThisDatabasedocument.CurrentController.ActiveConnection
       RequeteSQL = "drop table ""TP_MtrlFml"";create table ""TP_MtrlFml""(""Cf_TP"" integer primary key,""Cf_MtrlFml"" varchar(10))"
       RequeteCreation = Connection.createStatement()
       RequeteCreation.executeUpdate(RequeteSQL)
 
	   EnregistrerValeur
 
    End Sub
'===============================================================================================================
 	Function EnregistrerValeur
 
    	Dim Connection as Object,Frml as object,Requete as object
    	Dim RequeteSQL as string
    	Dim VlrFml as integer, VlrCfp as integer 
 
       Frml  = ThisComponent.DrawPage.Forms.getByName("MainForm").getByName("SubForm").getByName("SubForm_Grid")
       VlrFml = Frml.getByName("LstMtrlFml").CurrentValue
 
       If VlrFml = " " Then
          MsgBox("Vous devez renseigner le champ famille de projet")
          Exit Function
       End If   
       VlrCfp = 0
      Connection = ThisDatabasedocument.CurrentController.ActiveConnection
       Requete = Connection.createStatement()
       RequeteSQL = "INSERT INTO ""TP_MtrlFml"" (""Cf_TP"", ""Cf_MtrlFml"") VALUES ("+ VlrCfp + ", "+ VlrFml + ")"   
       Requete.executeUpdate(RequeteSQL)
 
    End Function
'===============================================================================================================
	Sub Actu(oEv as Object)
 
   		oEv.Source.Model.Refresh
 
	End Sub

Merci de votre aide.

Bonne journée

Test.odb.tar.gz

[zoom61]

Bonjour,

Dans le fichier donné, si l'on sélectionne une revue le sous-formulaire s'actualise bien... je ne comprends pas le problème ?

Cdlt.

[El Bosc]

Bonjour,

Le sous formulaire est effectivement correctement mis à jour lors de la sélection d' une nouvelle revue. Ce qui ne fonctionne pas c' est le lien entre la colonne famille de matériel et la colonne matériel.
La colonne matériel doit être filtrée par la sélection de la colonne famille de matériel.

A+

[zoom61]

Donc si je comprends bien tu voudrais que lorsque tu changes la famille de matériel, tu voudrais que la colonne matériel se mette à jour avec le filtre.
Mais cela ne peut pas se faire en mode feuille de données, car c'est un tableau de données. donc les cellules ne se mettent pas jour en dynamique.

[El Bosc]

Bonsoir Zoom61,

En fait, par exemple, si je sélectionne la famille des Z2, je voudrais pouvoir avoir une sélection dans la liste matériel limité à cette famille. Soit les matériels si dessous:

Z 7300
Z 7500
Z 9500
Z 9600
Z 11500

Il me suffit donc de cliquer sur l' un des matériels pour qu' ils s' affiche dans la colonne Matériel.

Bien cordialement

[zoom61]

Le tableau étant en feuille de données, le filtre ne pourra pas se mettre à jour dans la liste.

Pour faire ce que tu souhaites réaliser, tu as deux solutions :

• soit il faudrait que cela ouvre un autre formulaire qui ne contiendrait que le matériel filtré et qu'à la fermeture cela mette à jour la cellule correspondante
• soit revoir ton sous-formulaire pour qu'il ne soit pas en feuille de données, mais cela peut être lourd si le sous-formulaire contient beaucoup de lignes.

Cdlt.

[El Bosc]

Bonjour Zoom61,

Bon, compte tenu des informations que vous me donnez, je vais tenter de mettre en place la première solution. En effet, la deuxième serait inadapté par le nombre conséquent d' articles à chaque parution.
Dés réalisation, je mettrai la solution sur le site afin de servir à d' autres utilisateurs.
Merci de votre aide.

Bonne journée à tous