Discussion :

[gbzmt]

Bonjour,

Le Sous-formulaire "CoureursEngagésRSF" du formulaire principal "Engagements" est issu d'une requête dont la table "mère" est modifiée à partir d'une Sub déclenchée par un bouton du formulaire principal.
Je voudrais me positionner au dernier enregistrement après chaque modification.

Voici la fin de mon code qui met à jour le sous-formulaire:

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
With CoureursEngagésg
        .AddNew
        .CodeCoureur = EEngagements.[Codes]
        .Compétition = EEngagements.[SelectCC]
        If IsNull(EEngagements.[Dossard]) Or EEngagements.[Dossard] = "" Then
            EEngagements.[Dossard] = ChercheDossardSérie(EEngagements.[SelectCC])
        End If
        .Dossard = EEngagements.[Dossard]
    On Error GoTo Err
        .Update
        MAJFormCE
        Exit Sub
    End With
Err: MsgBox ("Ce Coureur est déjà ENGAGE dans la course " & EEngagements.[SelectCC])
    On Error GoTo 0
End Sub
Sub MAJFormCE()
    Forms!Engagements.CoureursEngagésRSF.Requery
End Sub

Comment faire, merci

[gbzmt]

bonjour,

Pas d'avis sur ce problème?
Est-ce à dire qu'il n'est pas possible, en VBA, de naviguer dans un formulaire?

[cheveche]

J'essaierai d'ajouter dans la sub MAJFormCE après le requery

docmd.gotocontrol "le nom de ton sous-formulaire"
docmd.gotorecord, acdataform, "le nom de ton sous-formulaire", acLast

ok?

[gbzmt]

A l' exécution de la deuxième ligne du code:

Code :

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

1
2
3
4
5
6
7
8
Sub MAJFormCE()
    Forms!Engagements.CoureursEngagésRSF.Requery
    DerEnregistrement
End Sub
Sub DerEnregistrement()
    DoCmd.GoToControl "CoureursEngagésRSF"
    DoCmd.GoToRecord , acDataForm, "CoureursEngagésRSF", acLast
End Sub

"Erreur d'exécution 13"
" Incompatibilité du type"

Peut être faut-il indiquer qu'il s'agit d'un sous formulaire, j'ai essayé

Code :

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

1
2
3
4
5
6
7
8
Sub MAJFormCE()
    Forms!Engagements.CoureursEngagésRSF.Requery
    DerEnregistrement
End Sub
Sub DerEnregistrement()
    DoCmd.GoToControl Forms!Engagements.CoureursEngagésRSF
    DoCmd.GoToRecord , acDataForm, Forms!Engagements.CoureursEngagésRSF, acLast
End Sub

Mais cela ne marche pas

[voyou]

Et tu peux pas le mettre directement dans la requête que tu veux le dernier enregistrement? Sur mes requêtes, si je veux la dernière location de tel client, je mets l'ID_Location avec critère "décroissant". Essayes toujours.

[LedZeppII]

Bonjour,

Tu as une virgule en trop.
De plus acDataForm ne peux pas être utilisé avec un sous-formulaire ouvert par le biais d'un contrôle sous-formulaire.

essaie avec ça pour voir :

Code vb :

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

1
2
3
4
5
6
7
8
9
Sub DerEnregistrement()
Dim rs As DAO.Recordset
 
Set rs = Me.CoureursEngagésRSF.Form.RecordsetClone
If rs.RecordCount > 1 Then
   Me.CoureursEngagésRSF.SetFocus
   DoCmd.GoToRecord acActiveDataObject, , acLast
End If
End Sub

A+

[gbzmt]

Mais où vont-ils trouver tout cela ?

Cela marche parfaitement

Merci