Discussion :

[willou-78]

Bonjour,
J'ai un formulaire qui permet d'afficher 3 affiches de films en même temps, chacune dans un sous formulaire
au démarrage du formulaire :
le sous_formulaire_2 du milieu affiche l'affiche de l'enregistrement en cour de la requête
le sous_formulaire_1 de gauche affiche l'affiche de l'enregistrement précédent (le dernier enregistrement de la requête)
le sous_formulaire_3 de droite affiche l'affiche de l'enregistrement suivant de la requête

chacun comporte le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub CommandeSuivant_Click()
On Error GoTo Err_CommandeSuivant_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_CommandeSuivant_Click:
    Exit Sub
 
Err_CommandeSuivant_Click:
    MsgBox Err.Description
    Resume Exit_CommandeSuivant_Click
 
End Sub

sauf le sous_formulaire_1, qui en cas d'erreur, affiche le premier enregistrement (puisqu'on ne peut pas faire un "next" sur le dernier enregistrement)

sur clique de l'affiche du sous-formulaire 3, j'ai ce code

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
Public Sub CommandeSuivant_Click()
On Error GoTo Err_CommandeSuivant_Click
 
 
    DoCmd.GoToRecord , , acNext
    Form_sous_formulaire_2.CommandeSuivant_Click
    Form_sous_formulaire_1.CommandeSuivant_Click
 
Exit_CommandeSuivant_Click:
    Exit Sub
 
Err_CommandeSuivant_Click:
    MsgBox Err.Description
    Resume Exit_CommandeSuivant_Click
 
End Sub

le problème est que l'affiche 3 se prend les 3 acNext issus des sous_formulaire 1 et 2


Comment puis faire fonctionner un acNext sur chacun des sous-formulaire ? depuis le clique sur l'affiche du sous_formulaire_3 ?

Merci

[willou-78]

J'ai trouvé la solution

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
17
18
19
20
21
22
23
24
25
    Dim rs As DAO.Recordset
 
    Set rs = Me.ListeFilmsSous3.Form.Recordset
    If Not rs.BOF Then
        Me.ListeFilmsSous3.Form.Recordset.MovePrevious
    End If
    If rs.BOF Then
        Me.ListeFilmsSous3.Form.Recordset.MoveLast
    End If
 
    Set rs = Me.ListeFilmsSous2.Form.Recordset
    If Not rs.BOF Then
        Me.ListeFilmsSous2.Form.Recordset.MovePrevious
    End If
    If rs.BOF Then
        Me.ListeFilmsSous2.Form.Recordset.MoveLast
    End If
 
    Set rs = Me.ListeFilmsSous1.Form.Recordset
    If Not rs.BOF Then
        Me.ListeFilmsSous1.Form.Recordset.MovePrevious
    End If
    If rs.BOF Then
        Me.ListeFilmsSous1.Form.Recordset.MoveLast
    End If