Bonjour,
Voici ce qui me prend la tête:
j'ai trois forms:
Fcontrat (affiche un fiche)
FormContratList un form avec un subform FContratListSub.
Le code suivant:
Private Function FromFicheToListContrat()
Dim rst As DAO.Recordset
Dim IDEnreg As Long
DoCmd.Echo False
'Récupération de l'ID de l'enregistrement (en l'occurence la valeur d'un
champ
IDEnreg = Me!ID
'Ouvre le formulaire
DoCmd.OpenForm "FContratList", acFormDS
DoCmd.ShowAllRecords
With Forms!FContratList.RecordsetClone
.FindFirst "ID=" & IDEnreg
DoCmd.RunCommand acCmdSelectRecord
If .NoMatch = False Then Forms!FContratList.Bookmark = .Bookmark
.Close
End With
Set rst = Nothing
DoCmd.Echo True
End Function
Si je remplace FcontratList par FcontratListSub, pas de soucis, tout se
déroule bien.
MAIS
Si j'integre FcontratListSub dans un form (FcontratList), ça se plante
lamentablement.
je n'arrive pas à remplacer dans mon code FcontratListSub par FcontratList
de façon à obtenir un form dans laquelle je puisse ajouter des boutons etc..
suis-je clair?
auriez-vous une solution au grand malheur qui me frappe ;-) ??
D'avance merci et belle journée ensoleillée ( à La Hulpe en tout cas!)
