Access-ouverture formulaire et sous-formulair

Bonjour,

Je suis en train de créer une base de données en Access 2003. Je ne connais pas du tout le VBA mais avec des bouts de code grapillés ici et là sur le Net, j'ai résolu quelques uns de mes problèmes.

Maintenant, je ne trouve pas de solution au problème suivant : j'ai créé un formulaire d'encodage de données client appelé FListe Prospects. Sur ce formulaire, j'ai placé un bouton permettant d'ouvrir un formulaire d'encodage d'appel téléphonique ou de rendez-vous chez le client. Ce formulaire appelé FRDV remplit une table appelée TRDV. Lorsqu'on clique sur le bouton placé sur le formulaire FListe Prospect, le nom de la société choisie dans le formulaire FListe Prospect s'affiche automatiquement dans une liste déroulante présente sur le formulaire FRDV. Sur ce même formulaire, une autre liste déroulante propose le nom et le prénom de ou des personne(s) de contact dans cette société pour permettre de spécifier avec qui a eu lieu la conversation téléphonique ou le rendez-vous. Comme il n'est pas possible d'afficher à la fois le nom et le prénom d'une personne dans une liste déroulante, j'ai inséré un sous-formulaire appelé FNomPrénom qui affiche le prénom de la personne dont le nom s'affiche dans la liste déroulante.

Le sous-formulaire FNomPrénom s'affiche parfaitement quand j'ouvre mon formulaire FRDV à partir de la fenêtre de base de données mais est remplacé par un rectangle blanc quand je l'ouvre via le bouton placé sur le formulaire FListe Prospects.

Faut-il ajouter quelque chose dans le code VBA du bouton d'ouverture du formulaire FRDV pour lui dire d'ouvrir également le sous-formulaire FNomPrénom ?
Voici le code VBA du bouton d'ouverture :

Private Sub open_rdv_Click()
On Error GoTo Err_open_rdv_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FRDV"

stLinkCriteria = "[Société]=" & "'" & Me![Société] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_open_rdv_Click:
Exit Sub

Err_open_rdv_Click:
MsgBox Err.Description
Resume Exit_open_rdv_Click

End Sub

Merci beaucoup pour votre aide !

Mistinguette-qui-s'arrache-les-cheveux