Listes liées dans un sous formulaire

Version imprimable

05/05/2018, 18h48
El Bosc

3 pièce(s) jointe(s)

Listes liées dans un sous formulaire

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
07/05/2018, 17h49
Michel

Bonjour El Bosc
Comme indiqué, il manque une méthode
method: 'Actualisation'
08/05/2018, 20h31
El Bosc

Méthode Basic

Bonsoir,

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

Coedialement
10/05/2018, 12h28
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:

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:

SELECT Cf_RtcTrf FROM T_RtcTrf WHERE Cf_Rtc =0

Erreur sur requete SQL

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:

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?

11/05/2018, 09h05
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" ) =...
12/05/2018, 17h33
El Bosc

Column not found:2

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
12/05/2018, 18h13
Michel

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

Code:

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?
12/05/2018, 20h41
El Bosc

1 pièce(s) jointe(s)

Copie Base

Bonsoir,
Comme demandée, voici la dernière version.
Bonne soirée
13/05/2018, 13h06
Michel

Merci,
je vais voir si je peux y faire quelque chose mais sans garantie !
13/05/2018, 15h12
Michel

1 pièce(s) jointe(s)

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;
Pièce jointe 380021
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
13/05/2018, 16h42
El Bosc

Procédure sur tarif

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

1 pièce(s) jointe(s)

Listes liées dans un sous formulaire.

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:

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:

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

16/05/2018, 17h43
Michel

Merci d'avoir communiqué la correction !