Discussion :

[caro2944]

Bonjour,

Pourriez vous m'aider?
J'ai créé un formulaire (Formulaire principal), avec requette, pour ouvrir un dossier bien spécifique.
sur mon formulaire, des boutons de raccourcis ouvrent d'autres formulaires (Formulaires secondaires), avec des informations bien spécifique pour chaque dossier.
Ces formulaires s'ouvrent également via une requête.
Je souhaiterais trouver un système, pour mes formulaires secondaires s'ouvrent sur clic, mais immédiatement sur le dossier que j'ai appelé dans mon formulaire principal, sans devoir toujours via les requettes, saisir à nouveau le N° du dossier en question.
Est-ce possible?

Merci beaucoup

[Gado2600]

Bonjour,
Ce n'est pas très très clair mais je pense avoir compris l'essentiel qui est d'ouvrir un autre formulaire sur le même enregistrement que celui sur lequel vous cliquez ?
Il y a un code en VBA qui permet de faire cela :

Code :

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

1
2
3
Function OuvertureFormulairesEdition(Formulaire As String, Champs As String, ID As String)
    DoCmd.OpenForm Formulaire, , , "[" & Champs & "]='" & ID & "'", acFormEdit
End Function

Ce code est à mettre dans un module, comme cela, vous évitez de chercher 150 fois la fonction et vous n'avez qu'à faire appel à celle-ci directement via votre bouton sur une procédure événementielle.

Concrètement, cette fonction se décompose de la manière suivante :
- Demande d'ouverture d'un formulaire : DoCmd.OpenForm
- Nom du formulaire : Formulaire
- Nom du champs de recherche : Champs
- Valeur du champs recherché : ID
- Mode d'ouverture du formulaire : acFormEdit (mode édition => modification)

Cordialement,

[caro2944]

Merci Gado, je vais essayer et te tiens au courant dès que c'est fait.

[caro2944]

Bonjour Gado, je suis désolée, mais ça ne fonctionne pas.
Doc1.pdfDoc1.pdf
Je te mets une image, si ça te parle, est ce par là je peux faire quelques chose?

Merci

[Gado2600]

Bonjour,
Oui, sa me parle rapidement mais j'ai arrêté de passer par ce système-là car je suis plus à l'aise avec le VBA

Sinon euh... "Mode données", tu mets "édition" ou "modification" (je sais plus lequel) puisque tu cherches à éditer des données.
Après, je dirais que le "nom de filtre", tu mets le champs de la requête/table dont tu veux cibler ta "Condition Where".
Je ne suis pas certain de ça mais des experts me confirmeront ou me contrediront.

Que s'est-il passé pour que le code que je t'ai fourni ne fonctionne pas ? Qu'as-tu essayé pour appeler la fonction ?

Cordialement,

[caro2944]

en fait, je n'ai pas vraiment compris. J'ai créé le module, mais ensuite, je n'ai pas pu l'associer au formulaire.
Mon fichier est assez gros, mais je peux essayer de te l'adresser par mail. Par contre, comme il est lié à une base pro pour laquelle il faut être habilité, tu ne pourras pas lire le résultat. Mais accepterais tu que je te l'envoi en mp?

[Gado2600]

Bonjour,
Tu peux l'envoyer par mail si tu veux : g.dolige@en1clic.fr
Mais l'appel de cette fonction est assez simple :

Code :

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

call OuvertureFormulairesEdition("Nom_Formulaire, "CLE_PRIMAIRE", "A2014")

Attention ! Il faut changer '" & ID & "'" selon le type de clé.
Pour une date les ' seront à remplacer par des #.
Pour une valeur numérique, ce sera par rien

Cordialement,

[caro2944]

Merci je vais essayer
call OuvertureFormulairesEdition("Nom_Formulaire, "CLE_PRIMAIRE", "A2014")