Discussion :

[ac264]

J'ai un sous-formulaire SF1 qui est en Datasheet View
Quand l'utilisateur introduit une donnée, un refresh de certains champs du formulaire mère F1 est réalisé ainsi qu'un refresh d'un autre formulaire F2 affiché.
J'aimerais qu'après, on revienne sur le record qui vient d'être encodé dans le formulaire ou dans le record suivant
Pour l'instant, le curseur revient systématiquement sur le premier record de la table.
J'ai essayé plusieurs codes, notamment celui-ci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub LastOfScore_afterupdate()
[Forms]![F1].Refresh
[Forms]![F1]!List48.Requery
 
stDocName = "F2"
DoCmd.SelectObject acForm, stDocName
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acRefresh, , acMenuVer70
 
DoCmd.SelectObject acForm, "F1"
'[Forms]![F1]![SF1].Form.SetFocus
[Forms]![F1]![SF1].Form.Recordset.MoveNext

Bof bof
Comment lui dire de revenir sur le record suivant celui qu'on vient d'encoder?
Je suis sûr que c'est possible de le faire, mais je ne trouve pas la syntaxe

[loufab]

Bonjour (ça en fait des bonjour à la même personne )

Faire une recherche de l'enregistrement dans le record du sous-form.

Code :

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

1
2
3
4
5
6
dim rst as dao.recordset
set rst = me.recordset
rst.findfirst "monchamp=" & mavaleur
if rst.nomatch then
   ' l'enregistrement n'existe pas
endif

Si tu appelles ce bout de code d'un autre form que celui concerné il te faut non pas utiliser me.recordset mais forms.monform.sousform.form.recordset
mavaleur doit correspondre au contenu du champ que tu recherches et doit être unique dans la table sinon il se positionne sur le premier mais pas forcément sur le bon.

Pour comprendre le code voir le tuto sur DAO.
cordialement,

[ac264]

J'ai essayé ceci et ça a l'air OK.
Merci pour ton aide

Code :

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

1
2
3
4
5
Private Sub LastOfScore_afterupdate()
 
zz = CurrentFormRecord(Forms![F1]![SF1].Form)
         ...
[Forms]![F1]![SF1].Form.SelTop = zz + 1

avec la fonction suivante :

Code :

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

1
2
3
Function CurrentFormRecord(frm As Form)
    CurrentFormRecord = frm.CurrentRecord
End Function