Discussion :

[Elrathe]

Bonjour,

Je dispose d'un formulaire principal "A" contenant deux sous-formulaires avec leur données propres : "SF-A" et "SF-B"
Ces deux S-Formulaires sont liés au principal via un champ Père et fils.
Je cherche à calculer dans le "SF-A" une zone de texte avec des données provenant aussi du "SF-B".

Pour ce faire je sors une fonction VBA de ce style :

Code :

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

1
2
3
Private Function DisplayCost() As String
DisplayCost = Me!"Donnée SF-A" * Form!"Données SF-B"."zone de texte SF-B"
End Function

Je ne pense pas que cela soit la bonne formule (car forcément elle ne fonctionne pas). Comment faire pour appeler cette donnée dans le formulaire SF-B ??
je n'ai pas touché au VBA depuis 8 ans environ

Merci d'avance pour votre aide !

[ClaudeLELOUP]

Bonjour,

Plutôt

Code :

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

1
2
3
Private Function DisplayCost() As String
DisplayCost = Me!ConteneurDuSF-A.Form!ChampSF-A* Me!ConteneurDuSF-B.Form!ChampSF-B
End Function

Pour autant que cette fonction soit incluse dans le module du formulaire principal.

Si ce n'est pas le cas, remplace Me par Forms!NomDuPrincipal et Private par Public.


N.B. Si c'est pour attribuer cette valeur à une zone de texte de SF-A, tu n'as pas besoin de passer par une fonction, écris ceci, comme source de ta zone de texte

=Me.LeNomDuChampSF-A*Me.Parent.Form.ChampSF-B

[Elrathe]

Super !
Je viens de faire les modifications, cela fonctionne.

Merci beaucoup pour le coup de main