Discussion :

[El Bosc]

Bonsoir,

Dans un sous formulaire , je cherche à afficher une donnée. La requête qui permet d' alimenter ce sous formulaire fonctionne et ramène bien le nom du produit. Par contre, pas d' affichage.
Dans l' image ci dessous, on trouve le formulaire F_Dvs avec le bouton ouvrant le sous formulaire Sf_PrdNmc. Sur ce dernier un champ blanc destiné à recevoir le non du produit.
Pour une bonne compréhension, je joins également la dernière version de la base.
Qu' y a-t-il de faux dans ma démarche?

Cordialement

[El Bosc]

Bonsoir,

Bon, j' ai trouvé la raison du défaut d' affichage. J' ai tout simplement introduit une temporisation dans le déroulement de la macro. Pour info, le code définitif:

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
	Sub BtnNmc(Evt as Object)
 
		Dim lesFrms as Object, Frml as Object, Btn as Object
		Dim appel As String, SQL as String
 
		'--- Connexion base ---
			Cnx = ThisDatabasedocument.CurrentController.ActiveConnection
			Cnx.queries.getByName("R_Prd").Command = CfPrdEnCrs
			Stmt=Cnx.createStatement()
		'--- Récupération clés devis et produit ---
			CtrDvs = ThisComponent.drawpage.Forms.getByName("FDvs").getByName("LstDvs")
			CtrPrd = ThisComponent.drawpage.Forms.getByName("FDvs").getByName("LstPrd")
			CfDvsEnCrs = CtrDvs.CurrentValue
			CfPrdEnCrs = CtrPrd.CurrentValue 		 		
		'--- Récupération du nom du formulaire appelé ---  
			Btn = Evt.Source
			appel = split(Btn.Model.tag,";",2)(0)
		'--- Sélection du formulaire appelé ---
			lesFrms = ThisDatabaseDocument.FormDocuments
			Frml = lesFrms.getByName(appel)
   		'--- Transmission des paramètres ---  
   			NmFrm = "SfPrdNmc"
			Sql = "SELECT T_PrdNmc.* FROM T_PrdNmc WHERE Cf_Prd ='" & CfPrdEnCrs & "'"
			Frml =ThisDatabaseDocument.FormDocuments.getByName(appel).open
			Wait 50
			With Frml.DrawPage.Forms.getByName("SfPrdNmc")
				.Commandtype = 2
				.Command = Sql		'Redéfinition de la source du formulaire
				.reload				'Recharge le formulaire
			End With
 
	End Sub

Voir la ligne 25.

Cordialement