Ouvrir un formulaire après avoir récupéré le nom cherché par une variable

'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