Ouvrir formulaires code vba

Bonjour à tous,
En VBA, Ya t-il moyen d'ouvrir à partir d'un formulaire muni d'un bouton de commande un autre formulaire sur l'enregistrement qui correspond à l'enregistrement du premier formulaire sans utilisé le champs relation du deuxième formulaire je m'explique : j'ai une relation entre 2 tables . J'ai un formulaire 1 (1ère table)Agent et 1 formulaire 2 (2ème table)Poste. Le code de mon bouton est :

Code:

---

1 2 3 4 5 6

Private Sub Commande29_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm2" stLinkCriteria = "[PosteAgent]=" & Me![AgentId] DoCmd.OpenForm stDocName, , , stLinkCriteria

---

Et dans le champs Posteagent du formulaire 2 J'ai

Code:

---

[Formulaires]![FrmAgent]![AgentId]

---

ce champs est caché. Mais y at-il un code VBA qui remplace tout ça et permet de retiré le champ caché du formulaire.
Merci de me répondre

Salut,

Dans le 2nd formulaire, il devrait y avoir le champ AgentID qui permet de faire le lien entre les 2 formulaires.
Inutile de mettre

Code:

---

[Formulaires]![FrmAgent]![AgentId]

---

dans le champ du 2nd formulaire.

Le code ci-dessous suffit.

Code:

---

1 2 3 4 5

Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm2" stLinkCriteria = "[AgentID]=" & Me![AgentId] DoCmd.OpenForm stDocName, , , stLinkCriteria

---

Ca marche mais je ne peux plus ajouter d'enregistrements dans le formulaire2.
Car il manque le champs PosteAgent sur le formulaire2. Si je le remets avec dans les propiétés valeur par défaut :

Code:

---

[Formulaires]![FrmAgent]![AgentId]

---

ça marche de nouveau.

Citation:

---

Envoyé par ThieBEN

Ca marche mais je ne peux plus ajouter d'enregistrements dans le formulaire2.

---

Je ne vois pas le rapport :koi:

Citation:

---

Car il manque le champs PosteAgent sur le formulaire2. Si je le remets avec dans les propiétés valeur par défaut :

Code:

---

[Formulaires]![FrmAgent]![AgentId]

---

ça marche de nouveau.

---

Je ne vois pas à quoi ça te sers à ce niveau là.

Quelle est la relation entre tes tables ?
Quels sont leurs champs ?

Je suis débutant en VBA donc j'essai de trouver des solutions sur le forum.
Je pensais que l'on pouvait ouvrir un formulaire à partir d'un bouton cmd en utilisant du code sans utiliser des méthodes bidouilles.Contrôles cachés etc.
Merci de ton coup de main.

Je t'envoie mon modèle regarde si tu comprends ce que je veux dire.

Bonjour,

1) Supprime le champ caché sur ton formulaire FrmPoste.

2) Le code du bouton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Commande7_Click() On Error GoTo Err_Commande7_Click   DoCmd.OpenForm "FrmPoste", , , "PosteAgent =" & Me.AgentId   Exit_Commande7_Click: Exit Sub   Err_Commande7_Click: MsgBox Err.Description Resume Exit_Commande7_Click   End Sub

---

Ca devrait le faire...

Domi2