Sous formulaire avec un menu déroulant integr

Fermé
djdj - 9 juil. 2012 à 10:42
Bonjour,


Voila j'ai un probleme, j'ai réalisé un formulaire dans lequel j'ai ajouter un sous formulaire qui vas me permettre de gérer les modifications du formulaire qui lui est en affichage. dans ce sous formulaire j'ai intégré un menu déroulant pour choisir les zones a modifier.

Mon probleme est que il ne reconnait pas le SubForm

Merci d'avance pour vos réponses
Voila mon programme :

Private Sub NameID_Change()
' Retrieve form values
Dim inputNameID As String
inputNameID = Me.NameID.Value

' Make a query to Meta_DQNAction by matching NameID
Dim recSet As DAO.Recordset
Dim strSubFormName As String

Dim sqlQuery As String
sqlQuery = "SELECT * FROM Meta_DQNAction WHERE Meta_DQNAction.[NameID] = '" & inputNameID & "';"
Set recSet = CurrentDb.OpenRecordset(sqlQuery)

' No line was found case
If recSet.EOF Then
MsgBox "Invalid Action NameID !"
Return
End If

' Get query results
strSubFormName = recSet("SubFormID")

' Success, Close the query
recSet.Close
Set recSet = Nothing

MsgBox strSubFormName

' Setup SubForm dynamically
Me.SubForm.SourceObject = strSubFormName

' Me.SubForm.Form.LinkMasterFields = "NameID"
' Me.SubForm.Form.LinkChildFields = "NameID"

End Sub