Discussion :

[Eddie827]

Bonjour,

Dans sous formulaire feuille de données, j'essaie de me repositionner sur le même enregistrement que celui en cours avant une action "me.refresh"
Voici le code de ma tentative

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
Private Sub CmdPrint_Click()
    Dim MySQL As String
    Dim RsOF As Recordset
    Dim ID_OF As Long
    Dim pos As Long ' sauvegarde de l'enregistrement en cours
 
    ID_OF = Me.ID_OF
    pos = Me.OF_sous_formulaire1.Form.CurrentRecord ' sauvegarde de l'enregistrement en cours
 
    MySQL = "SELECT OF.ID_OF, OF.Statut " & _
            "From [OF] " & _
            "WHERE (((OF.ID_OF)=" & Me.ID_OF & "));"
    Set RsOF = CurrentDb.OpenRecordset(MySQL)
    If Not RsOF.EOF Then
        RsOF.Edit
        RsOF![Statut] = 2
        RsOF.Update
        RsOF.Close
        Me.Refresh
        DoCmd.GoToRecord acDataForm, Me.OF_sous_formulaire1.Name, acGoTo, pos 'repositionne le focus sur l'enregistrement en cours avant refresh
        PrintOF ID_OF, True
    End If
End Sub

Un message d'erreur s'affiche à la commande [DoCmd.GoToRecord]. "L'objet OF_sous_formuliare1 n'est pas ouvert" hors, il est ouvert !!
Quelqu'un a une idée ?? Merci d'avance
Eddie

[nico84]

Bonjour,

Plus simplement on peut utiliser

Code :

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

1
2
3
4
dim pointeur
Pointeur = Me.CurrentRecord
Me.Requery
SelTop = Pointeur

D'autre part il me semble que requery perd la ligne en cours mais pas refresh...

[Eddie827]

Cette solution fonctionne super bien. Merci.
Je confirme que refresh la ligne en cours !!