'Dans le formulaire comportant le bouton
Private Sub NomBouton_Click()
'Ouverture du formulaire en fonction de l'enregistrement affiché dans une liste
DefProjet = Me.NomListe.Column(0) 'Suivi du numéro de colonne éventuellement, les numéros de colonne commencent par 0
DoCmd.OpenForm "NomForulaireAOuvrir", acNormal, , , , , DefProjet
End Sub
'Dans le formulaire à ouvrir
Private Sub Form_Open(Cancel As Integer)
Dim recup As String
' Récupère la valeur de la variable provenant du formulaire Contact afin de visualiser uniquement l'enregistrement sélectionné
'OpenArgs récupère la valeur de la variable du formulaire initial
If Me.OpenArgs <> "" Then
recup = Me.OpenArgs
Me.NomListeDéroulante = recup
Me.Détail.Visible = True
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NomChamp] = '" & Me![NomListeDéroulante] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else:
'Sinon rendre invisiblel champs du formulaire
Me.Détail.Visible = False
NomListeDéroulante.Value = ""
End If
End Sub