informer

Appel d’un formulaire en mode ajout depuis un autre formulaire, voici comment le pré-remplir

Le formulaire appelant est frmSource dans lequel est ajouté un sous-formulaire frmSsForm et appelé frmCible

Considérant que l'appel de frmCible se fait en cliquant sur un bouton cmdOuvreCible et récupère l'id de la ligne active de frmSsForm on a le code suivant:

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub cmdOuvreCible_Click()
 
    DoCmd.OpenForm "frmCible", acNormal, , , acFormAdd, OpenArgs:=Me.frmSsForm !id
 
End Sub

Pour frmCible

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_Load()
 
If Not IsNull(Me.OpenArgs) Then
   DoCmd.GoToRecord , , acNewRec
   Me.id = Me.OpenArgs
  End If
 
End Sub