Bonjour,
j'ai crée un formulaire continu "A", ce dernier est alimenté a partir d'une table contenant le nom de différents formulaires, ainsi que la description de ces derniers.
Le but serait de pouvoir cliquer sur la valeur d'un champ du formulaire "A" et ou un bouton, pour ouvrir un des formulaire souhaité.
J'ai essayé ce code, que j'utilise pour aussi ouvrir un formulaire, un seul, la difficulté c'est de pouvoir ouvrir plusieurs et différents formulaires.
Merici.
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
16 Private Sub Consultdetail_Click() vr = Me.Numero_de_contrat DoCmd.OpenForm FormName:="frm_contrat_visualisation", OpenArgs:=vr Dim rs As DAO.Recordset Set rs = Forms("frm_contrat_visualisation").RecordsetClone rs.FindFirst "[Numero de contrat] = '" & Me.[Numero de contrat] & "'" If rs.NoMatch Then MsgBox "Code inexistant ! Voulez-vous le saisir ?" DoCmd.GoToRecord , , acNewRec Else Forms("frm_contrat_visualisation").Recordset.Bookmark = rs.Bookmark End If End Sub
Salutations.
Partager