Bonjour,
Je voudrais exécuter un "Goto Record" avec un sous formulaire et je n'y arrive pas malgré de nombreux essais voilà les noms du formulaire et sous formulaire :
Formulaire : F_Insert_Clot
Sous formulaire : F_Insert_Historique
Sur l'évènement d'une zone de texte du formulaire j'ai écris le code suivant :
et à l'exécution j'ai l'erreur formulaire "Forms!f_Insert_Clot![F_Insert_Hist]" pas ouvert.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub Texte67_AfterUpdate() Dim bd As DAO.Database Dim RecSet, rs As DAO.Recordset Dim var_DM As String Dim pos As Long Set bd = CurrentDb Set RecSet = bd.OpenRecordset("TAB_Insertions_Hist", dbOpenDynaset) Forms!f_Insert_Clot![F_Insert_Hist].SetFocus RecSet.FindFirst "N°Insertion = " & Val(Me.Texte67) & "" pos = RecSet.AbsolutePosition DoCmd.GoToRecord acDataForm, "Forms!f_Insert_Clot![F_Insert_Hist]", acGoTo, pos + 1 End Sub
Si quelqu'un a une idée MERCI
Partager