Discussion :

[sardaucar]

Bonjour à tous,

j'ai mis sur pied ce code pour se positionner sur un enregistrement dans un formulaire continue :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim rst As Recordset
    Set rst = frm.RecordsetClone
    rst.FindFirst "[Ho_jourscontrat]=Date()"
 
        If rst.NoMatch Then
            DoCmd.GoToRecord , , acFirst    ' Si pas d'occurrence trouvée
        Else
            frm.Bookmark = rst.Bookmark     ' Se positionne sur l'enregistrement correspondant
        End If

Il marche très bien, mais mon formulaire est contenu dans un formulaire, lui même dans un autre formulaire. Je voudrais pouvoir appeler ce code dès que je change d'enregistrement lié dans le 1er sous formulaire dans l'ordre des évènements suivants :

J'ouvre mon formulaire Form.

A l'ouverture il filtre les enregistrements de son sous formulaire SF1, et affiche le premier, en formulaire unique.
Le premier enregistrement affiché filtre donc les enregistrements de mon Sous-sous-Formulaire, donc SF2, en formulaire continue.
Mon code se déclenche et le curseur se positionne sur l'enregistrement voulu de SF2.

Si je change d'enregistrement dans SF1 ou Form, mon SF2 se mets aussi à jour, et le code se déclenche aussi.

J'ai bien tenté sur tout les évènements de SF2, de passer par SF1 en faisant référence avec

Code :

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

Me.SF2.Form

Et j'ai tenté de regarder dans la faq mais je n'ai pas réussi :/.

Une idée de comment faire ?

Merci d'avance,

Sardaucar

[Jeannot45]

Peut-être une réponse dans le tuto : Les syntaxes d'appel - Interaction des formulaires et des états.

Bonne continuation

[sardaucar]

J'ai bien essayé avec ce code, comme dans le lien fourni :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rst As Recordset
 
Set rst = Forms.F_Saisie_Horaire.SF_Saisie_Horaire.Form.SF_Horaire.Form.RecordsetClone
 
    rst.FindFirst "Forms.F_Saisie_Horaire.SF_Saisie_Horaire.Form.SF_Horaire.[Ho_jourscontrat]=Date()"
 
        If rst.NoMatch Then
            DoCmd.GoToRecord , , acFirst    ' Si pas d'occurrence trouvée
        Else
            frm.Bookmark = rst.Bookmark     ' Se positionne sur l'enregistrement correspondant
        End If

Mais ça me mets une erreur sur le rst : propriété ou méthode non définie par cet objet. :/

[madefemere]

Bonjour,
Vu que ton instanciation est correct, le code devrait être plus simple je pense :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rst As Recordset
 
Set rst = Forms.F_Saisie_Horaire.SF_Saisie_Horaire.Form.SF_Horaire.Form.RecordsetClone
 
    rst.FindFirst "[Ho_jourscontrat]=Date()"
 
        If rst.NoMatch Then
            DoCmd.GoToRecord , , acFirst    ' Si pas d'occurrence trouvée
        Else
            frm.Bookmark = rst.Bookmark     ' Se positionne sur l'enregistrement correspondant
        End If

Cordialement,

[sardaucar]

Effectivement ça marche mieux, mais maintenant il me mets une erreur sur

Code :

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

frm.Bookmark = rst.Bookmark

Pensant qu'il ne connaissait pas frm, j'ai remplacé par

Code :

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

Forms.F_Saisie_Horaire.SF_Saisie_Horaire.Form.SF_Horaire.From.Bookmark = rst.Bookmark

Mais ça me met propriété ou méthode non gérée par cet objet :/.

Je suis dans le flou.

[madefemere]

Form ou From ?

Code :

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

 Forms.F_Saisie_Horaire.SF_Saisie_Horaire.Form.SF_Horaire.From.Bookmark = rst.Bookmark

[sardaucar]

Merci c'était simplement ça !