Discussion :

[claude21]

Bonjour,

Je me retrouve avec un problème qui me bloque depuis un petit moment. J'ai un formulaire avec une zone de liste je souhaiterai lorsque je cliques dans ce formulaire père afficher dans le sous formulaire les données relatives à cette ligne de données sauf qu'actuellement lorsque je cliques sur la première ligne de la zone de liste les données s'affichent correctement mais lorsque je clique sur les suivantes je me retrouve avec des zones de textes vides mais si je cliques sur la première ligne les données s'affichent à nouveau.

Code :

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

1
2
 
Forms![frm_task]![sousfrm_task].Form.RecordSource = "SELECT * FROM task WHERE tasknumid= Forms!frm_task!brwtask"

Ceci est le code que j'utilises dans la procédure évènementielle clic
Merci d'avance si quelqu'un à une solution

Cordialement

[RobiPMS]

Bonjour.
Tu ne dis pas sur quel événement tu lances la procédure d'affectation de source au sous-formulaire. Le plus efficace pour l'usage que tu décris est "Sur changement" de la zone de liste. "Après mise à jour" marche aussi, avec une actualisation du formulaire en fin de procédure.
Personnellement, je ne pourrais pas donner d'autre réponse sans en savoir plus!
Cordialement.

[claude21]

Bonjour,

Tout d'abord merci d'avoir porter intérêt à mon sujet
Ma procédure est lancé sur cet évènement

Code :

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

1
2
 
Private Sub brwtask_Click()

Sachant que brwtask correspond à ma zone de liste (non déroulante) se situant dans mon formulaire père.

Code :

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

1
2
3
4
5
 
Private Sub brwtask_AfterUpdate()
Forms![frm_task]![sousfrm_task].Form.RecordSource = "SELECT * FROM task WHERE tasknumid= Forms!frm_task!brwtask"
Forms("frm_task").Controls("sousfrm_task").Form.Requery
End Sub

J'ai testé ce code ça n'a pas fonctionné j'ai essayé aussi un refresh à la place du requery.

[RobiPMS]

Le requery est à faire sur le formulaire principal :

Code :

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

Me.Requery

de façon à ce que les données du form principal soient actualisées, en ce compris la liste. Voir si le placer avant d'attribuer la source au sous-form ne serait pas plus efficace.
Personnellement je préfère "Sur changement" :

Code :

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

Private Sub brwtask_Change()

qui fonctionne, dans mes formulaires, parfaitement sans actualisation.
As-tu essayé?

[Invité]

Bonjour

Essayes cela :

Code :

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

1
2
3
4
Private Sub brwtask_AfterUpdate()
Forms![frm_task]![sousfrm_task].Form.RecordSource = "SELECT * FROM task WHERE tasknumid=" & Forms!frm_task!brwtask
Forms("frm_task").Controls("sousfrm_task").Form.Requery
End Sub

Philippe

[claude21]

Bonjour,

Pardon de répondre aussi tard j'ai essayé les deux méthodes j'ai toujours la même réaction lorsque je clique sur les autres tâches j'ai vide sauf la première ligne.

Je ne sais pas si ça peut aider mais j'ai plusieurs onglets dans mon formulaire avec d'autres tables est ce que ca ne pourrait pas avoir un lien avec mon erreur.

Cordialement

[claude21]

Bon au final j'ai refait mon sous formulaire et en utilisant le code donné cela fonctionne. Je crois que cela venait des données des différentes tables cela me créer des conflits.

Merci beaucoup pour votre aide je marques le post en résolu