Discussion :

[argyronet]

Bonjour,

Un membre a demandé comment se positionner sur un enregistrement en particulier avec comme paramètre l'ID de ce dernier.
Voici une méthode dont la fonction sera locale et Private si elle est copiée dans le module de classe du formulaire... et Public dans un autre module.

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 Function GotoThisRecord(ByRef TargetForm As Form, ByVal WhatRecordID As Long, ByVal FieldName As String, ByVal ItemMessage As String)
    Dim oRS As dao.Recordset
 
    On Error GoTo ErrGotoRecord
 
    Set oRS = Me.Recordset.Clone
    With oRS
        .FindFirst "[" & FieldName & "] = " & WhatRecordID
        If .NoMatch = False Then
            TargetForm.Bookmark = .Bookmark
        Else
            Err.Raise 3021
        End If
        .Close
    End With
ExGotoRecord:
    Set oRS = Nothing
    Exit Function
ErrGotoRecord:
    MsgBox "Il n'existe pas d'enregistrement pour " & ItemMessage & " ayant " & WhatRecordID & " comme valeur de champ " & FieldName & " !", vbExclamation
    Resume ExGotoRecord
End Function

On peut alors l'utiliser comme ceci (§ BDD les comptoirs)

Code :

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

1
2
3
4
5
 
Private Sub cmdGotoSup_Click()
''' BDD Les comptoirs
    GotoThisRecord Me, 18, "N° fournisseur", "le fournisseur"
End Sub

Argy

[marot_r]

Bonjour argyronet, en complément de ta routine.

J'ai découvert que si on fait un FindFisrt sur l'objet Recordset d'un formulaire on obtient que le curseur se place sur l'enregistrement recherché.

Évidement on a un problème si l'enregistrement recherché n'existe pas mais ça évite la gymnastique du .clone et du bookmark dans le cas on est certain que l'enregistrement existe.

A+