Bonjour,
Voici un exemple :
Un double clic sur la ligne du sous-formulaire sélectionne
l'enregistrement et va la pointer dans le formulaire actuel !
Private Sub Form_DblClick(Cancel As Integer)
Dim Client As Integer
On Error GoTo Err_Form_DblClick
' Main mise sur le numéro du client visé
Client = Forms![formClientsSpecifique]![NumeroClient]
' Ici vous pouvez récupérer les valeurs dont vous souhaitez
Champ1 = Forms![formClientsSpecifique]![NomClient]
Champ2 = Forms![formClientsSpecifique]![AdresseClient]
Champ3 = Forms![formClientsSpecifique]![VilleClient]
Champ4 = Forms![formClientsSpecifique]![PaysClient]
' ou ...
With CodeContextObject
' Fermeture du sous formulaire
DoCmd.Close acForm, "formClientsSpecifique"
' Réouverture du formulaire principal
DoCmd.OpenForm "formClients", acNormal, "", , acNormal
' Positionnement sur le champ clé
DoCmd.GoToControl "ztNumeroClient"
' Recherche du record visé
DoCmd.FindRecord Client, acEntire, False, , False, , True
DoCmd.GoToControl "ztNumeroClient"
End With
' Ou ici vous pouvez récupérer les valeurs dont vous souhaitez
Exit_Form_DblClick:
Exit Sub
Err_Form_DblClick:
MsgBox Error$
Resume Exit_Form_DblClick
End Sub
'
Lupin