Discussion :

[Drone]

Bonjour, j'ai un petit problème de lien entre le formulaire principale et le sous formulaire.

J'ai un subform contenant des champs d'une table Client.
Celui-ci se trouve sur un mainform où est placé une textbox qui correspond au numéro d'un client.

Mon but est que la textbox du mainform corresponde au numéro du client dans le subform (que les enregistrements dans le subform se changent suivant le numéro du textbox du mainform).

J'arrive avec le code suivant à aller au numéro d'enregistrement du subform correspondant au numéro de la textbox du mainform :

Code :

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

1
2
3
4
5
6
 
Dim X
Set X = Me.TBNum 'valeur de la textbox du mainform
Me.SubFormClient.Form.Recordset.MoveFirst 
Me.SubFormClient.Form.Recordset.MovePrevious 'déplace le subform à l'enregistrement BOF
Me.SubFormClient.Form.Recordset.Move X 'déplace le subform à l'enregistrement correspondant au textbox du mainform

Hors cette idée est bien simpliste.. le problème étant que le numéro du client ne change pas parallèlement au numéro d'enregistrement du formulaire, il suffit qu'on efface un client pour que tout soit décalé.

Donc je ne sais pas comment faire pour aller à l'enregistrement du subform où le numéro du client correspond au numéro du textbox du mainfrom.

Je pense qu'il faut peut être un code du style :

Code :

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

1
2
3
4
5
6
7
 
Set X = Me.TBNum
Me.SubFormClient.Form.Recordset.MoveFirst
Me.SubFormClient.Form.Recordset.FindFirst "Forms![Form_new_clt]![SubFormClient].Form![NumClient] = X" 
While Not Me.SubFormClient.Form.Recordset.NoMatch
Me.SubFormClient.Form.Recordset.MoveNext
Wend

Mais bon je débute et ce genre de code "fait maison" j'ai essayé ça ne marche pas.


Je suis également allé dans les propriétés du Subform et j'ai mis la textbox du mainform comme champs père et la textbox du subform comme champs fils, mais au démarrage du formulaire un msgbox s'ouvre me demandant d'entrer le numéro du numclient donc c'est pas bon non plus.

Voilà j'attends des critiques sur ce que j'ai essayé de faire et surtout si vous avez une solution à mon problème n'hésitez pas, merci beaucoup.

[helas]

Plutot filtrer le sous formulaire

Code :

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

1
2
3
 
Me.SubFormClient.Form.Filter = "[NumClient]=" & Me!TBNum
Me.SubFormClient.Form.FilterOn = True

[Drone]

Bonjour, merci pour ta réponse.

J'ai essayé d'appliquer le filtre à partir d'un click sur un bouton du formulaire principal, un msgbox apparait me demandant de rentrer le NumClient, mais quant je rentre le numéro voulu, le sous formulaire reste à l'enregistrement numéro 1, c'est la même chose que lorsqu'il s'agissait de mettre un champ père et un champs fils.