Discussion :

[El Bosc]

Bonsoir,

Je suis en train de créer une base de données pour réaliser des devis. Dans le formulaire "F_Dvs" comportant un sous formulaire "SFDvsDtl", il y a une première liste qui permet de sélectionner la matière à utiliser. Elle est suivie d' une deuxième liste qui elle permet de sélectionner le tarif valide de cette même matière.
J' ai bien trouvé un exemple qui correspond à ce que je veux faire mais visiblement, j' ai très mal modifié cette macro. En effet, a l' ouverture du formulaire, j' obtiens le message d' erreur intitulé "Message_1".
De plus, j' ai une erreur dans une requête SQL, voir "Message_2"
J' aurai bien voulu joindre ma base mais visiblement ce n' est pas possible. Les fichiers ".odb" ne sont pas acceptés.

Cordialement

[Michel]

Bonjour El Bosc
Comme indiqué, il manque une méthode
method: 'Actualisation'

[El Bosc]

Bonsoir,

Merci Michel de votre réponse. Pourriez-vous m' indiquer comment mettre en place cette méthode.

Coedialement

[Michel]

Une piste :
Cette méthode se trouve dans standard->Bdd mais pas dans standard->FDvs il suffit donc de remplacer et cette erreur disparaît

La requête

Code :

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

SELECT Cf_RtcTrf FROM T_RtcTrf WHERE Cf_Rtc =''

ne fonctionne pas car Cf_Rtc est un integer
On peut essayer (si la valeur par défaut est 0, ce qui semble le cas ici)

Code :

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

SELECT Cf_RtcTrf FROM T_RtcTrf WHERE Cf_Rtc =0

[El Bosc]

Bonsoir,

Depuis ma dernière intervention, je me suis penché sur les deux erreurs relevés.
Pour la première, j' ai déplacé le lancement de la macro "Actualisation". Cela semble fonctionner mais à confirmer. Pour l' instant mon soucis est la requète SQL.
Il n' est pas possible que cela fonctionne car la valeur récupérée dans le contrôle n' est pas la clé de l' article mais sa désignation. Ma condition where est basé sur la seule comparaison possible suivant mes structures de tables entre les clés de l' article sélectionné.

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
Dim CtrRtc as Object, CtrTrf as Object
Dim CfRtcEnCours as String, CfTrfEnCours as String
 
	Sub ApresMajCP
	'sur évènement Statut modifié de la liste matière du formulaire F_Dvs
		on error goto Err_ApresMajCP
		CtrRtc = ThisComponent.drawpage.Forms.getByName("FDvs").getByName("SFDvsDtl").getByName("SFDvsDtl_Grid").getByName("LstRtc")
		CtrTrf = ThisComponent.drawpage.Forms.getByName("FDvs").getByName("SFDvsDtl").getByName("SFDvsDtl_Grid").getByName("LstRtcTrf")
	'défini la valeur de l' article en cours dans la liste	
		CfRtcEnCours = CtrRtc.CurrentValue
	'défini les entrées possible de la liste tarif en fonction de l' article en cours	
		CtrTrf.ListSource() = array("SELECT RtcTrf FROM T_RtcTrf WHERE Cf_Rtc ='" &  CfRtcEnCours & "'")
	'réactualise le contrôle Tarif
		CtrTrf.refresh
	Exit_ApresMajCP:
		exit sub
	Err_ApresMajCP:
		msgbox error
		resume Exit_ApresMajCP		
	End Sub

Lorsque je sélectionne un article dans la colonne matière, j' affiche le nom de la matière mais je sauvegarde la clé de cet article.
Aussi, en ligne 10, la variable CfRtcEnCours contient, non pas la valeur de la clé mais la désignation de l' article.
Réultat, la requête en ligne 12 plante.
Je compare Cf_Rtc qui est la clé de l' article àCfRtcEnCours qui est du texte.

Comment puis-je régler ce problème?

Cordialement

PS:
J' ai testé votre solution Michel mais cela ne fonctionne pas. Toujours ce problème de sauvegarder une clé et d' afficher une désignation?

[Michel]

En mode edition de formulaire , dans le contrôle de matiere , onglet données, champ lié essayez 2 sinon il faudra faire un
where CONCAT( CONCAT( "RfRtc", ' ' ), "DsgRtc" ) =...

[El Bosc]

Bonsoir Michel,

Bon j' ai résolu une partie du problème. Dans le SQL de la liste déroulante Matière,j' ai déplacé le champ Cf_Rtc en deuxième position. Du coup, la variable CfRtcEnCours récupère bien la valeur de la clé du produit sélectionné et non la désignation de l' article. Au final le SQL contenu dans la macro fonctionne.
Malgré tout,le filtre sur la liste déroulante Matière n' a aucune incidence sur la liste déroulante Tarif. J' ai le message d' erreur suivant:
Impossible de déterminer le contenu de la zone combinée/zone de liste.
Column not found: 2
Manque-t-il une macro sur cette deuxième liste? Macro contenant un critère de type Like.

Cordialement

[Michel]

Bonjour,
Quand je regarde les données du contrôle Tarif, je tombe sur une requête incomplète

Code :

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

SELECT Cf_RtcTrf FROM T_RtcTrf WHERE Cf_Rtc =

je ne vois pas d'où cela sort ...
Comme la base a subit des modifications, pourriez-vous remettre la nouvelle version en fichier joint compressé pour faciliter l'analyse?

[El Bosc]

Bonsoir,
Comme demandée, voici la dernière version.
Bonne soirée

[Michel]

Merci,
je vais voir si je peux y faire quelque chose mais sans garantie !

[Michel]

Bonjour,
On progresse:
Si je regarde la colonne matière je vois que dans les événements, statut de l'élément modifié appelle une procédure qui se trouve dans le module Standart.bbd;

par contre, il n'y a rien dans la liste tarif. Il faut donc créer une procédure du même genre et l'appliquer au même type d'événement

[El Bosc]

Bonjour,

C' est bien ce qu' il me semblait. Je m' attelle à cette procédure et vous tiens au courant du résultat. Dommage que dans la requête SQL on ne puisse introduire un critère se référant au champ du sous-formulaire matière. Sa simplifierait grandement la démarche.

Cordialement

[El Bosc]

Bonjour,

Comme promis, je reviens vers vous pour ce problème de listes liées. Le message provenant de basic concernant la mise à jour de la deuxième liste était du à un champ manquant dans la requête. En effet, si la sauvegarde s' effectue bien sur la clé du tarif, l' affichage lui est la valeur de la fourniture.Le champ manquant était RtcTrf. Ci-dessous le code de la requête:

Code :

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

	Rqt ="SELECT ""RtcTrf"",""Cf_RtcTrf"" FROM ""T_RtcTrf"" WHERE ""Cf_Rtc"" =" &  CfRtc

et pour ceux que cela intéresse, le code des 3 macros nécessaire au bon déroulement de la mise à jour:

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
43
44
45
46
	Dim CtrRtc as Object , CtrTrf AS Object
	Sub MajListe
 
		Dim CfRtc as integer
		Dim Rqt as String
                'Recupere les données dans les champs concernés
		CtrRtc = ThisComponent.DrawPage.Forms.getByName("SfDvsDtlFrt").getByName("LstRtc")
		CtrTrf = ThisComponent.DrawPage.Forms.getByName("SfDvsDtlFrt").getByName("LstRtcTrf")
		CfRtc = CtrRtc.valueItemList(CtrRtc.SelectedItems(0))
 
		Rqt ="SELECT ""RtcTrf"",""Cf_RtcTrf"" FROM ""T_RtcTrf"" WHERE ""Cf_Rtc"" =" &  CfRtc 
		CtrTrf.ListSource = Array(Rqt)
		CtrTrf.refresh
 
	End Sub
'=========================================================================================
	Sub Actualisation
 
		Dim ExoTrav
 
		MajListe 
 
		ExoTrav= ExoRechercheDansTableau(CtrTrf.ValueItemList, CtrTrf.boundField.Value)
 
		If ExoTrav <> "#N/A" then
   			CtrTrf.SelectedItems = array(ExoTrav)
			else
   				CtrTrf.SelectedItems = array(0)
		End If
 
	End Sub
'=========================================================================================
	Function ExoRechercheDansTableau(ExoTablo, ExoRech)
 
		dim i as integer
 
		ExoRechercheDansTableau = "#N/A"
 
		for i = lbound(ExoTablo) to ubound(ExoTablo)
		   if ExoTablo(i)= ExoRech then
		      ExoRechercheDansTableau = i
		      exit for
		   end if
		next i
 
	end function

Je joins également la version trois de cette base. Il manque énormément de choses mais c' est un début.

Cordialement

[Michel]

Merci d'avoir communiqué la correction !