Discussion :

[Didier L]

Bonjour,

Une petite procédure permettant de travailler avec la propriété Bookmark et le recordsetclone d'un formulaire afin de se positionner sur la bonne ligne en fonction de la valeur d'un champ (clé de préférence):

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
Sub Positionne(MonForm As Form, ControlName As String, ValeurRech, TypeValeur As Integer)
On Error Resume Next
Dim MonClone As Recordset
Dim Crits As String
    Set MonClone = MonForm.RecordsetClone
    Crits = "[" & ControlName & "]="
    Select Case TypeValeur
        Case vbString
            Crits = Crits & "'" & ValeurRech & "'"
        Case vbDate
            Crits = Crits & "#" & Format(ValeurRech, "mm/dd/yyyy") & "#"
        Case vbLong
            Crits = Crits & ValeurRech
    End Select
    MonClone.FindFirst Crits
    MonForm.BookMark = MonClone.BookMark
    MonClone.Close
End Sub

A utiliser de la manière suivante :

Code :

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

Positionne me,"MaClé", ValeurRecherche, vbLong

Pour un sous formulaire avant un Requery, o peux donc sauvegardé la clé de la ligne sur laquelle nous nous trouvons, faire le Requery et ensuite se repositionner au bon endroit au lieu de se retrouver sur le 1er enregistrement.

Code :

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

Positionne [SousForm].Form,"MaClé", ValeurSauvee, vbLong

[Didier L]

Au cas ou certain voudrais se positionner directement à la fin ou carrément sur un N° de ligne précis

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
Sub PositionneFin(MonForm As Form)
On Error Resume Next
Dim MonClone As Recordset
    Set MonClone = MonForm.RecordsetClone
    MonClone.MoveLast
    MonForm.BookMark = MonClone.BookMark
    MonClone.Close
End Sub
 
Sub PositionneNumLigne(MonForm As Form, pnNumLigne As Long)
On Error Resume Next
Dim MonClone As Recordset
Dim I As Long
    Set MonClone = MonForm.RecordsetClone
    For I = 1 To pnNumLigne
        MonClone.MoveNext
    Next
    MonForm.BookMark = MonClone.BookMark
    MonClone.Close
End Sub

Comme ces procédures marchent avec l'objet Form, vous pouvez également les utiliser avec un sous formulaire du style:

Code :

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

1
2
3
PositionneNumLigne [MonSousForm].Form,2
ou
PositionneFin [MonSousForm].Form

[killowatt]

Bonjour j'ai essayé votre méthode mais je n'arrive pas a récupérer l'index de l'enregistrement...
Pourriez - vous me dire comment faire svp ?

[Didier L]

Bonjour,

En fait on ne recherche pas un index, mais une valeur dans un champ unique bien entendu.
Par exemple si vous avez un champ de type "Numero" et que vous voulez vous positionner automatiquement sur la ligne du numéro 47, vous devez utiliser la procédure comme suit :

Code :

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

Positionne me,"Numéro", 50, vbLong

En espérant avoir compris votre question ;-)

Bonne journée ;-)