Discussion :

[Ludo11]

bonjour,

j'ai des problemes pour remplir un formulaire en recopiant des données d'un autre formulaire. J'utilise le contrôle openargs mais je sais pas si c la meilleure solution.
en fait, je m'explique, j'ai des références client (numérique). le premier formlaire contient des infos sur le client et lorsque je passe sur un autre formulaire, j'ai envie de récupérer ce numéro automatiquement.

voici mon code :

dans le premier formlaire:

Code :

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

   DoCmd.OpenForm "FormulaireIM_Rapport d'intervention", , , , acFormAdd, , Me.RéfClient

dans le second : à l'ouverture :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.OpenArgs) Then
    'rien à faire
Else
    Me.RéfClient = CLng(Me.OpenArgs)
End If
 
End Sub

Si vous avez des idées? peut etre que je choisi la mauvaise méthode!

merci pour votre aide

[mcdotta]

Hello,


C'est ce que j'utilise régulièrement, mais plutôt pour passer le nom du formulaire qui ouvre l'autre....

Ce que je fait pour passer une valeur d'un formulaire à l'autre, j'utilise des contrôles cachés... C'est pas très catho diraient Messieurs les modérateurs et autres Experts mais....

Code :

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

1
2
3
4
5
 
DoCmd.OpenForm "FormulaireIM_Rapport d'intervention", , , , acFormAdd
With forms![FormulaireIM_Rapport d'intervention]
.expCtrol = Me.NoClient
End with

Comme ca je n'ai rien besoin de déclencher à l'ouverture de l'autre formulaire....

[mout1234]

j'ai des problemes pour remplir un formulaire en recopiant des données d'un autre formulaire.

Ton approche et ton code semblent corrects...
Quel est le problème?

[Ludo11]

ben en fait mon problème est que le numéro que je veux récupérer ne s'affiche pas sur le nouveau formulaire mais pourtant il est bien récupéré par le openargs!

donc je sais pas trop comment faire pour l'afficher?

merci

[mout1234]

Je viens de réaliser que tu as utilisé l'évènement Form_Open. Il intervient trop tot car le formulaire n'est pas encore prêt pour effectuer les opérations demandées.

Utilises l'évènement Form_Load.

Par ailleurs, si tu n'as pas mis ton form en mode "Entrée Données", il va modifier le premier enregistrement de ton nouveau formulaire (à moins qu'il ne s'agisse d'un formulaire indépendant).
Tu peux aussi résoudre ce point en complétant ton code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load() 
If IsNull(Me.OpenArgs) Then  
    'rien à faire 
Else  
    DoCmd.GoToRecord , , acNewRec
    Me.RéfClient = CLng(Me.OpenArgs) 
End If   
End Sub