Bonjour,
Dans une zone de liste j'affiche x champs, je souhaite lorsque je "double-clic" sur une ligne ouvrir le formulaire correspondant à l'enregistrement mais je ne vois pas comment y reussir, faut il partir sur la meme base que ceci par exempleSauf que là je navigue dans le meme formulaire, c'est avec un clic sur ma liste456 que je veux ouvrir le formulaire contrat.
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 Private Sub Liste366_AfterUpdate() 'Rechercher l 'enregistrement correspondant au contrôle. Dim rs As Object Dim monsql As String monsql = "SELECT Contrats.num, Contrats.N°declient, Contrats.N°decontrat, Contrats.Typedecontrat, Contrats.[Activité-serviceCDG], Contrats.Montantducontrat FROM Contrats WHERE [N°declient]=Clients.N°declient" Me.Liste456.RowSource = monsql Set rs = Me.Recordset.Clone If Me.opt_recherche = 1 Then rs.FindFirst "[N°declient] = '" & Me![Liste366] & "'" Else rs.FindFirst "[nomduclient] = '" & Me![Liste366] & "'" End If If Not rs.EOF Then Me.Bookmark = rs.Bookmark DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 End Sub
Merci
Cyril
Partager