Discussion :

[Halzard]

Bonjour à tous !


Voilà mon souci :


Je dispose d'un premier formulaire (formulaire1) sur lequel se trouve une liste basée sur une table "Personnes". Cette liste (liste1) affiche le contenu des champs "nom" et "prénom" pour chaque enregistrement de la table "Personnes".


Lorsque je double clique sur un élément de la liste, un deuxième formulaire s'ouvre (formulaire 2). Ce formulaire est également basé sur la table "Personnes". Il est prévu pour afficher des informations supplémentaires sur la personne double cliquée précédemment.


Mon problème arrive ici :

Je souhaite que le formulaire 2 me permette de naviguer entre tous les enregistrements de la table "Personnes". Mais je veux qu'il s'ouvre sur l'enregistrement correspondant à la personnes sélectionnée dans la liste 1.


J'ai essayé avec quelque chose du genre, qui me permet de me déplacer automatiquement à l'enregistrement recherché lors de l'ouverture du formulaire :

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Open (Cancel As Integer)
    While ID_Personne <> Formulaires![Formulaire1]![Liste1]
        DoCmd.GoToRecord
    Wend
End Sub

Ca fonctionne, sauf que j'ai environ 37000 enregistrements dans la table "Personnes", donc si l'enregistrement sélectionné se trouve vers la fin c'est assez long.

Y aurait-il une autre solution, qui me permettrait de conserver la possibilité de navigation entre les enregistrements ?

[LedZeppII]

Bonsoir,

tu peux faire ça dans le code qui ouvre le formulaire.

Code vba :

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

1
2
3
4
5
6
7
8
9
Dim strForm As String
strForm = "Formulaire2"
' Ouvre le formulaire
DoCmd.OpenForm strForm
' Donne le focus au contrôle où faire la recherche
Forms(strForm).ID_Personne.SetFocus
' Rechercher valeur dans le contrôle en cours
DoCmd.FindRecord Me.Liste1, acEntire, , acDown
End Sub

Autre méthode par Bookmark:

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
Dim strForm As String, rs As DAO.Recordset
strForm = "Formulaire2"
DoCmd.OpenForm strForm
Set rs = Forms(strForm).RecordsetClone
rs.MoveFirst
 
' ID_Personne étant un champ de la source de données de Formulaire2
' Deux syntaxes possibles selon type du champ, Texte ou Nombre
' Ne conserver qu'une des deux
' * Si Texte
rs.FindFirst "[ID_Personne]='" & Me.Liste1 & "'"
' * Si Nombre
rs.FindFirst "[ID_Personne]=" & Me.Liste1
 
If Not rs.EOF Then
   Forms(strForm).Bookmark = rs.Bookmark
End If
Set rs = Nothing

A+

[Halzard]

Ca marche merci