[AC-2003] Positionnement sur formulaire continu

[maringot]

Bonjour,

Ma recherche sur le net n'ayant pas portée ses fruits je vous me permets de vous interroger.
J'ai un formulaire "Listing client" en mode continu réalisé à partir d'un requête qui émane elle même de la table client (Civilité-Nom-Adresse-CP-Ville-Tel).

J'aurais aimé savoir s'il était possible de se positionner sur une ligne en tapant la première lettre du nom et si oui comment faire?

Avec mes remerciements,
Maringot

[Asyoshi]

Salut !

Oui il est tout à fait possible de se déplacer sur les enregistrements d'un formulaire continu via une saisie clavier (sous-entendu que les enregistrements soient triés par nom pour que ça soit efficace).

Dans un module :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function recherche(KeyCode, Shift)
    Static Tampon
    If KeyCode = 27 Then
        Tampon = ""
    ElseIf KeyCode = 13 Then
        recherche = True
        Tampon = ""
    Else
        Tampon = Tampon & Chr(KeyCode)
        DoCmd.FindRecord Tampon, acStart
 
    End If
    KeyCode = 0
 
End Function

Et en événement sur ton contrôle :

Code :

1
2
3
4
5
6
7
8
Private Sub Nom_Click()
    Call recherche(27, -1)
End Sub
 
Private Sub Nom_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim ouvrir
    ouvrir = recherche(KeyCode, Shift)
End Sub

Voilà