Discussion :

[Alain92110]

Oui, en ajoutant ce code, j'ai un message d'erreur
"L'action OpenForm a été annulée"

[syrald]

Excuse moi je suis allé trop vite et j'ai oublié les paramètres obligatoires de la fonction...

Code :

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

1
2
3
4
5
6
 
Public Sub Form_Open(Cancel As Integer)
   If Not IsNull(Me.OpenArgs) Then
      Me![Id_contact] = Me.OpenArgs
   End If
End Sub

[Alain92110]

Malheureusement cela ne fonctionne toujours pas
j'ai ce message d'erreur

[syrald]

J'ai encore oublié un détail important:

Dans ton 1er formulaire à l'appel du formulaire action:

Code :

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

1
2
3
4
5
 
Dim vr As Variant
vr = Me![Id_contact]
 
DoCmd.OpenForm stDocName, , , , , , vr

Ensuite ta fonction Form_Open dans le formulaire action:

Code :

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

1
2
3
4
5
6
 
Public Sub Form_Open(Cancel As Integer)
   If Not IsNull(Me.OpenArgs) Then
      Me![Id_contact] = Me.OpenArgs
   End If
End Sub

Si tu as encore un message d'erreur, peux-tu me dire sur quelle ligne le programme plante?

[Alain92110]

J'ai le même message d'erreur et le formulaire Action ne s'ouvre pas.
Le message s'affiche sur le formulaire contact

[Alain92110]

Bonjour,

J’ai trouvé la panne.
Il s’agit d’une erreur de syntaxe (priez pour nous)
Un simple point au lieu d'un point d'exclamation


Le code que j’avais recopié :

Code :

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

1
2
3
 
DoCmd.OpenForm stDocName
Forms(stDocName).Id_Contact.value = Me.Id_Contact.value

Au lieu

Code :

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

1
2
3
 
DoCmd.OpenForm stDocName
Forms(stDocName)![Id_Contact].Value = Me![Id_Contact].Value

En tous cas, cela fonctionne comme cela

Merci pour votre aide