Discussion :

[HASSAN.NAQY]

Bonjour tous le monde,

Comment ouvrir un formulaire1 en se positionnant sur un nouveau enregistrement mais avec la condition suivante :
La valeur de la clé étrangère doit être égale à la valeur d'un champ d'un autre formulaire2.

Merci pour votre aide.

[hyperion13]

Salut
A tester
Copier dans le form2

Code :

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

1
2
3
4
5
6
Private Sub btnClickForm2_Click()
If Not IsNull(Me.champ_form2) Then
    'DoCmd.OpenForm FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs
    DoCmd.OpenForm "nomForm1", , , , , , Me.champ_form2
End If
End Sub

Copier dans le form1

Code :

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

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

[tee_grandbois]

bonjour,
s'agissant d'un enregistrement à créer, il faut mettre la clé de formulaire2 en valeur par défaut de la clé étrangère de Formulaire1 après l'appel d'ouverture en mode ajout:

Code VBA :

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

1
2
Docmd.openform "Formulaire1", , , ,acFormAdd
Forms!Formulaire1!ChampCleEtrg = Forms!Formulaire2!ChampCle

[HASSAN.NAQY]

Merci Hyprion13 et T_grandbois

En faite c'est l'idée de mettre la clé étrangère du formulaire2 sur valeur par défaut qu'il me fallait.
J'ai juste fait ce petit réglage et ça fonctionne parfaitement vu que j'ai déjà un événement qui ouvre le formulaire pour ajouter un nouveau enregistrement.
GRAND MERCI.