Access - Ouvrir un état à partir d'un formula Fermé

Question

Bonjour, 

J'aimerai pouvoir ouvrir un état à partir d'un formulaire actif.
Je m'explique: j'ai crée des requêtes qui me servent à trouver des enregistrements précis, le résultat s'affiche sous forme de formulaire, à partir de là je voudrais qu'en cliquant sur un bouton on accède directement à un état reprenant les informations de l'enregistrement en question uniquement, pour ensuite l'imprimer.
J'ai un peu cherché sur les forums dans les sujets existants, mais je n'ai rien trouvé qui fonctionne.

Si quelqu'un pouvait m'aider ce serait vraiment formidable.

PS: je débute à peine en VBA

Merci d'avance à tous ceux qui se donneront la peine de me répondre.

michel_m · Answer

Bonjour

par ex:
ta table:T_clients
ton formulaire: F_clients
identifiant client: id_client

construit une requete R_ficheclient à partir de T_clients et mets toi en mosde création
sous l'identifiant client (id_client) dans critère tu écris
forms!F_clients!id_client


dans l'onglet "etat" demande "créer un etat à l'aide de l'assistant" et sélectionne la requete ficheclient

et sur ton formulaire tu crées un bouton de recherche

Fredo06 · Answer

Bonjour,
tout d'abord merci d'avoir répondu.

Malheureusement, ça ne marche pas. Lorsque je rentre le critère :

forms!F_clients!id_client

la syntaxe "!" n'est pas acceptée

du coup il n'y a aucune valeur dans l'état.

Cordialement.

michel_m · Answer

Que veux tu que je te dise!

regarde les preuves:
https://www.cjoint.com/?3EmwMzVWxlP

créé avec Aceess2002; vues envoyées avec Access2007

castours · Answer

Bonjour
Je te joins une procedure pour ouvrir en apercu un etat.

'apercu del'état pour imprimer tu remplaces acPreview acNormal

Private Sub ImprimeEtat_Click()
On Error GoTo Err_ImprimeEtat_Click

    Dim stDocName As String
    stDocName = "Nom de L'état"
    DoCmd.OpenReport stDocName, acPreview

Exit_ImprimeEtat_Click:
    Exit Sub

Err_ImprimeEtat_Click:
    MsgBox Err.Description
    Resume Exit_ImprimeEtat_Click
    
End Sub

Fredo06 · Answer

Bonjour, désolé de ne pas avoir répondu plus tôt mais j'ai eu pas mal de boulot ces derniers jours, we compris.
En tout cas merci à tous de m'avoir accordé du temps, je vais tester vos solutions et je vous tiens au courant.

Bonne journée

Fredo06 · Answer

Bonsoir,

merci à tous de m'avoir consacré du temps.
J'ai pu aujourd'hui essayer les différentes solutions.

Concernat la solution de Syzygy, je pense pas avoir tout bien fait, je rentre [forms]![F_clients]![id_client] dans le critère du champ "id_client" de ma requête (celle qui sert à ouvrir le formulaire et l'état), et quand j'execute la requête j'ai une boite de dialogue qui apparait en me demendant de taper une valeur pour [forms]![F_clients]![id_client]
Je pense que je doit pas bien faire un truc...

Concernant la solution de Castours, ça fonctionne, sauf que quand je clique sur le bouton pour ouvrir mon état, j'ai là aussi une boite de dialogue qui apparait en me demandant de taper un id_client. En fait c'est la même boite de dialogue que quand j'éxécute la requête.
Donc au final j'arrive bien à ouvrir l'état qui correspond au formulaire actif, mais je voudrais éviter d'avoir à retaper 2 fois le même id_client.

Par avance merci pour votre attention.

Bonne soirée

castours · Answer

bonjour
bonjour
Voila un exemple de  code pour un bouton d'impression pour imprimé l'enregistrement en cours d'un formulaire

Private Sub Btn_ImpFacturation_Click()
On Error GoTo Err_Btn_ImpFacturation_Click

Dim stDocName As String

stDocName = "E_Facturation"
DoCmd.OpenReport stDocName, acNormal, , "[IdUnion]=" & Me![IdUnion]

Exit_Btn_ImpFacturation_Click:
Exit Sub

Err_Btn_ImpFacturation_Click:
MsgBox Err.Description
Resume Exit_Btn_ImpFacturation_Click

End Sub

Access - Ouvrir un état à partir d'un formula

7 réponses

Discussions similaires