Discussion :

[meriem.alaooui]

Bonjour,
J’ai comme indiqué au schéma :



un formulaire principale (Formulaire A) qu’à comme données source une requête( R_A)
un sous formulaire (Formulaire B) à comme données source une Table(T_B) lié au (Formulaire A)(IDEleve)
un sous sous formulaire (Formulaire C) à comme données source une Table(T_C) lié au (Formulaire B)(IDInscription)
J’ai crée des boutons de déplacements (Macro) (cmdPrevious1 , cmdNext1, cmdFirst1, cmdLast1)dans le (Formulaire A) qui navigue entre enregistrement des (IDEleve) avec les code VB suivants :

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
 
Private Sub Form_Current()
Me.NumEleve.SetFocus
If Me.CurrentRecord > 1 Then    'Désactivation du bouton précédent si l'enregistrement est le premier
   Me!cmdPrevious1.Enabled = True
  Me!cmdNext1.Enabled = True
Else
  Me!cmdPrevious1.Enabled = False
 
End If
Dim lng As Long                 'obtient le nombre d'enregistrements
   lng = Me.RecordsetClone.RecordCount
If Me.CurrentRecord = lng Then  'Désactivation de Suivant si l'enregistrement est le dernier
    Me!cmdNext1.Enabled = False
     Me!cmdPrevious1.Enabled = True
    Exit Sub
Else
    Me!cmdNext1.Enabled = True
 
End If
End Sub

Et

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Open(Cancel As Integer)
With Me.RecordsetClone
If .RecordCount > 0 Then .MoveLast
End With
End Sub

Ensuite j’ai créé de des boutons de déplacements (Macro) (cmdPrevious2 , cmdNext2, cmdFirst2, cmdLast2) dans le (Formulaire C) pour naviguer entre les enregistrements des (Mois_echeancier) avec le code VB suivants :

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
 
Private Sub Form_Current()
Me.ID_Echeancier.SetFocus
If Me.CurrentRecord > 1 Then    'Désactivation du bouton précédent si l'enregistrement est le premier
   Me!cmdPrevious2.Enabled = True
  Me!cmdNext2.Enabled = True
Else
  Me!cmdPrevious2.Enabled = False
 
End If
Dim lng As Long                 'obtient le nombre d'enregistrements
   lng = Me.RecordsetClone.RecordCount
If Me.CurrentRecord = lng Then  'Désactivation de Suivant si l'enregistrement est le dernier
    Me!cmdNext2.Enabled = False
     Me!cmdPrevious2.Enabled = True
    Exit Sub
Else
    Me!cmdNext2.Enabled = True
 
End If
End Sub

Et

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Open(Cancel As Integer)
With Me.RecordsetClone
If .RecordCount > 0 Then .MoveLast
End With
End Sub

Mon problème est que :
Lorsque à l’ouverture de (Formulaire A) :

1. Si je commence à naviguer directement dans le (Formulaire C) tout va bien
2. Si je commence à naviguer entre les enregistrements (IDEleve) (Formulaire A) ) et je veux passer au (Formulaire C) alors les boutons (cmdPrevious2 , , cmdFirst2, cmdLast2)sont actifs et le bouton ( cmdNext2) inactif et sur clic je reçois un message : impossible d'atteindre l'enregistrement ...) et que les boutons ne fonctionnent d’une façon normale que lorsque je clic sur le bouton (cmdLast2 ) dans le (Formulaire C) .

Cordialement.

[marot_r]

Bonjour.

Quel code ou instruction de macro utilises-tu pour les déplacements ?

Le code que tu as posté ne s'occupe pas de cela.

Et en passant, le langage de programmation de Access (et plus généralement de Office) est VBA pas VB qui est un langage cousin mais suffisamment différent pour qu'il ne faille pas les confondre.

A+

[hyperion13]

Dans le premier code après End If peut-être placer :

Code :

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

Forms!FormA!sFormB.Form!sFormC.Form.Requery

[meriem.alaooui]

Bonjour,
Désole pour le retard, j'ai du convertir les Macro insérées ( sur clic) des bouton des déplacements )en code vba comme suit:

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
26
27
28
29
30
31
32
33
34
35
36
Private Sub cmdFirst2_Click()
 On Error GoTo ErrMan
    DoCmd.GoToRecord , , acFirst
Fin:
    Exit Sub
ErrMan:
    Resume Fin
End Sub
 
Private Sub cmdLast2_Click()
  On Error GoTo ErrMan
    DoCmd.GoToRecord , , acLast
Fin:
    Exit Sub
ErrMan:
    Resume Fin
End Sub
 
Private Sub cmdPrevious2_Click()
On Error GoTo ErrMan
    DoCmd.GoToRecord , , acPrevious
Fin:
    Exit Sub
ErrMan:
    Resume Fin
 
End Sub
 
Private Sub cmdNext2_Click()
 On Error GoTo ErrMan
    DoCmd.GoToRecord , , acNext
Fin:
    Exit Sub
ErrMan:
    Resume Fin
End Sub

et çà fonctionne.
Merci je poste :Résolu

[Donmeah12]

Madame puis je savoir ou vous etes au niveau de votre aoplication je realise la meme chose mais la je suis planter.