Discussion :

[patbeautifulday1]

Bonjour

Je cherche à faire un sous-formulaire (en mode feuille de données) dépendant d'une table, mais je voudrais aussi afficher des informations provenant de deux autres tables. Voici un peu la gueule de la requête dont j'ai besoin :

Code :

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

1
2
 
"select nom, equipement, marque, entreprise, commentaire from entreprise, reference where entreprise.id=reference.entreprise and reference.id=" & me!reference & ";"

Sachant que mon champ fils est dans le me!reference (liste déroulante et champ dépendant)
J'aimerais, pour chaque enregistrement, afficher les infos du "select" à tout moment (càd au chargement du formulaire et lors de la màj de la liste)
J'ai cherché dans la FAQ mais je n'ai pas trouvé ce genre de problème.
Faut-il le faire en VBA ou y a-t-il un truc pour le faire avec l'interface
?
Merci d'avance

[Celia1303]

tu dois pouvoir le faire avec l'interface ( en tout cas pour la requete )
puis rafraichir ton controle après maj (vba)

[vciofolo]

Je pense que tu dois pouvoir faire ta requete comme ça :

Code :

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

1
2
 
"select nom, equipement, marque, entreprise, commentaire from entreprise, reference where entreprise.id=reference.entreprise and reference.id= [formulaires]![nomduformulaire]![reference];"

comme ça le critère est mis à jour en même temps que le controle référence. Mais il doit effectivement falloir faire un rafraichissement sur le sous formulaire.
Par exemple sur afterupdate du combo référence

[patbeautifulday1]

Salut

Je vais réfléchir à ta solution et je te donne des nouvelles

[Tofalu]

Utilises des jointures normalisées en INNER JOIN plutôt que des jointures dans les WHERE. INNER JOIN est optimisé

[patbeautifulday1]

Salut

je me suis replongé dans le problème. C'est la galère, en fait.
J'essaie les fonctions de domaine, mais çà ne marche pas non plus.
Je ne pensait pas que c'était aussi galère d'afficher des valeurs dans des zones de texte, car on ne peut pas faire de requêtes avec.
le pb du VBA, c'est sur quel évènement je le mets ? Je ne bouge pas forcément les valeurs de la zone de liste, et il faut bien que les valeurs s'affichent quand même. J'essaie les recordset, mais çà merde dans l'interprétation de la requête:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Dim Rst As DAO.Recordset, req As String, db As Database
'Me!document.Visible = False
'Set db = CurrentDb
'req = "SELECT nom, equipement, marque, reference.commentaire FROM entreprise, reference WHERE entreprise.id=reference.entreprise and reference.id=" & Forms!document!Reference & ";"
'Set Rst = db.OpenRecordset(req, dbOpenDynaset)
'Me!entr = str(Rst.Fields(1))
'Me!marque = Rst.(2)
'Me!equipement = Rst(1)
'Me!commentaire = Rst(3)

Si qq1 voit d'où vient le pb...

[Muhad'hib]

Si j'a bien compris ton pb, tu dois mettre ce code sur afterupdate du controle reference.
Ainsi dés que tu modifie ton choix les champs du sous-formulaire sont mis à jour.

[patbeautifulday1]

En fait, non.
Car si je le mets sur le champ reference/afterupdate, les valeurs ne s'afficheront dans les autres zones de texte que si j'actionne la zone de liste "référence".Or moi je veux qu'elles s'affichent tout le temps, quand on regarde le sous-formulaire.
Je répète ma question initiale : je veux, dans un sous-formulaire dépendant, afficher les valeurs de champs de plusieurs tables.
Je ne sais pas si le recordset est la meilleure manière de le faire, qu'en penses-tu ?

[Muhad'hib]

Car si je le mets sur le champ reference/afterupdate, les valeurs ne s'afficheront dans les autres zones de texte que si j'actionne la zone de liste "référence".

Ben non. Si tu mets le code sur reference/afterupdate les donées seront mises à jours que suite à une modif de la zone de liste, mais elle seront visibles tout le temps.

[patbeautifulday1]

Bon, je veux bien te croire, mais de toutes façons, mon code ne fonctionne pas car rien ne s'affiche dans mes zones de texte. J'ai beau le relire, je ne vois pas ce qui cloche.
Est-ce que problème viendrait du fait que je sois en mode feuille de données ?
Eh si !!! excuse-moi j'ai eu la réponse en posant moi-même la question.
Y'a des merdes dans le mode feuille de données, non ? le mode formulaire est plus souple, la preuve....
Mercide ton aide en tous cas...

[hocine]

salut,
pour votre code je crois qu'une petite modif s'impose, dans la déclaration

Code :

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

1
2
3
4
 
'Dim Rst As DAO.Recordset
Dim req As String
Dim db As Database

est-ce que vous avez essayer de créer votre formulaire à l'aide de l'assistant en incluant la table et la requête.
Bonne chance.
Merci

[patbeautifulday1]

Ben non. Si tu mets le code sur reference/afterupdate les donées seront mises à jours que suite à une modif de la zone de liste, mais elle seront visibles tout le temps.

Négatif, les valeurs ne sont pas stockées dans les zones de textes, mais seulement affichées. Donc quand tu fermes ton formulaire, pfuit !! plus de valeurs. Il faut soit une requête qui soit exécutée au chargement du formulaire, soit que la zone de texte se réfère à un champ d'une table dépendante.
Je le sais, maintenant, j'ai essayé.

[Muhad'hib]

Bien sûr que quand tu ferme le formulaire, les données ne sont pas stoquées puisque les contrôles sont indépendant. Pour que ta requete fonctionne il faut que ton formulaire soit ouvert. Si ta requete sert pour le sous formulaire, le formulaire est forcément ouvert non ?

[patbeautifulday1]

Salut

Je comprends bien ce que veux dire, mais çà me paraît un tantinet compliqué de l'implémenter avec toutes les fonctionnalités attendues. C'est des histoires de requêtes sur plusieurs tables, un mix de dépendance et d'indépendance vis-à-vis des tables.
Donc pour ne pas rester bloqué, j'ai opté pour la solution "con" de stocker les champs que je voulais afficher dans ma table, ce qui produit de la redondance au niveau de ma base, mais tant pis. Je résoudrai ce problème plus tard.
Merci de ton aide et de ta patience en tous cas.