Discussion :

[Superpat9999]

Bonjour,
Je souhaite ouvrir un formulaire sur un enregistrement spécifique en double cliquant sur un nom d'une liste.

J'ai 2 codes :

Code :

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

1
2
3
4
5
Private Sub Nom_DblClick(Cancel As Integer)
     strNomProcedure = "Nom_DblClick"
     DoCmd.OpenForm "f_Objets"
     DoCmd.GoToRecord , , acGoTo, Me.IDObjets
End Sub

Code :

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

1
2
3
4
Private Sub Identifiant_DblClick(Cancel As Integer)
     strNomProcedure = "Identifiant_DblClick"
     DoCmd.OpenForm "f_Objets", , , "[IDObjets] = " & IDObjets
End Sub

Le premier fonctionne aléatoirement (il ne s'ouvre pas toujours sur le bon indice, décalage de 1) en ouvrant le formulaire avec accès à toute la table.
Le second fonctionne toujours, mais n'ouvre que la feuille indiquée.
Quel est le problème sur le premier

[tee_grandbois]

bonjour,
GotoRecord s'utilise avec un numéro d'enregistrement, pas un identifiant de table, pour cela, tu dois utiliser FindRecord :
https://docs.microsoft.com/fr-fr/off...cmd.findrecord

[Superpat9999]

Merci tee_grandbois pour ton aide.
Le code fonctionne parfaitement
Bonne journée

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Nom_DblClick(Cancel As Integer)
     strNomProcedure = "Nom_DblClick"
10   DoCmd.OpenForm "f_Objets"
11   Forms![f_Objets]![txt_IDObjets].Visible = True
12   Forms![f_Objets]![txt_IDObjets].SetFocus
13   DoCmd.FindRecord Me.IDObjets, , True, , True
14   Forms![f_Objets]![txt_Nom].SetFocus
15   Forms![f_Objets]![txt_IDObjets].Visible = False
16   Forms![f_Objets]![txt_Nom].SetFocus
End Sub