Discussion :

[ThieBEN]

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 :

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

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 :

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

[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

[Lou Pitchoun]

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 :

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

[Formulaires]![FrmAgent]![AgentId]

dans le champ du 2nd formulaire.

Le code ci-dessous suffit.

Code :

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

1
2
3
4
5
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frm2"
    stLinkCriteria = "[AgentID]=" & Me![AgentId]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

[ThieBEN]

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 :

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

[Formulaires]![FrmAgent]![AgentId]

ça marche de nouveau.

[Lou Pitchoun]

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

Je ne vois pas le rapport

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

Code :

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

[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 ?

[ThieBEN]

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.

[ThieBEN]

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