OVH Cloud OVH Cloud

impression à partir d'une valeur

6 réponses
Avatar
Franck
Bonjour,

J'ai créé 2 états à partir de la même requête qui doivent s'éditer
simultanément lors de la saisie d'un numéro d'identifiant.

J'ai créée une macro me permettant l'édition des 2 états, toutefois (et à
juste raison), je dois saisir à 2 reprises le numéro d'identifiant.

Comment puis-je procéder pour avoir mon édition en saisissant une seule fois
le numéro d'identifiant.

D'avance merci

6 réponses

Avatar
Daniel Carollo
Bonjour Franck!

Faites la saisie d'un numero d'identifiant sur un formulaire. Utilisez ce
controle comme critere dans votre requete. Et voila!

J'espere que ca vous donne des pistes.

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

"Franck" wrote in message
news:
Bonjour,

J'ai créé 2 états à partir de la même requête qui doivent s'éditer
simultanément lors de la saisie d'un numéro d'identifiant.

J'ai créée une macro me permettant l'édition des 2 états, toutefois (et à
juste raison), je dois saisir à 2 reprises le numéro d'identifiant.

Comment puis-je procéder pour avoir mon édition en saisissant une seule
fois

le numéro d'identifiant.

D'avance merci








Avatar
Raymond
Bonjour.

Le numéro d'identifiant étant présent dans un contrôle de ton formulaire et
ton formulaire étant chargé, tu peux faire référence à ce contrôle contenant
la valeur de l'identifiant, dans la requête et dans l'état lui-même.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Franck" a écrit dans le message de
news:
Bonjour,

J'ai créé 2 états à partir de la même requête qui doivent s'éditer
simultanément lors de la saisie d'un numéro d'identifiant.

J'ai créée une macro me permettant l'édition des 2 états, toutefois (et à
juste raison), je dois saisir à 2 reprises le numéro d'identifiant.

Comment puis-je procéder pour avoir mon édition en saisissant une seule
fois

le numéro d'identifiant.

D'avance merci


Avatar
Jessy SEMPERE
Bonjour

Visiblement tu ne passe pas par un formulaire pour saisir ton argument
mais tu as du mettre comme critère dans ta requête : [entrez le critère...]

Perso je retirais ce critère de ta requête et j'utiliserai le code qui suit
Ensuite dans ta macro, tu fais comme action : "ExécuterCode" avec comme
nom de fonction :
=OpenTwoReport("Etat1" ; "Etat2")

Ps : il faut adapter la ligne "strCriteria..." dans le code.
*************************************************
Function OpenTwoReport(strRpt1 As String, strRpt2 As String)
Dim strArg As String
Dim strCriteria As String
strArg = InputBox("Entrez le critère :")
If strArg <> "" Then
strCriteria = "[ChampFiltré] = '" & strArg & "'"
DoCmd.OpenReport strRpt1, acViewPreview, , strCriteria
DoCmd.OpenReport strRpt2, acViewPreview, , strCriteria
Else
MsgBox "Opération d'ouverture des états annulée...", vbInformation
End If
End Function
*************************************************
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
Avatar
Franck
Merci du tuyau, ca fonctionne

"Raymond" a écrit dans le message de news:

Bonjour.

Le numéro d'identifiant étant présent dans un contrôle de ton formulaire
et

ton formulaire étant chargé, tu peux faire référence à ce contrôle
contenant

la valeur de l'identifiant, dans la requête et dans l'état lui-même.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Franck" a écrit dans le message de
news:
Bonjour,

J'ai créé 2 états à partir de la même requête qui doivent s'éditer
simultanément lors de la saisie d'un numéro d'identifiant.

J'ai créée une macro me permettant l'édition des 2 états, toutefois (et
à


juste raison), je dois saisir à 2 reprises le numéro d'identifiant.

Comment puis-je procéder pour avoir mon édition en saisissant une seule
fois

le numéro d'identifiant.

D'avance merci






Avatar
Franck
La solution m'a été donné :

En fait, il s'agissait simplement de laisser ouvert le formulaire, et
d'adjoindre la macro d'édition sur ce dernier

Merci du coup de main

Franck

"Jean-Louis" a écrit dans le
message de news: bj43u9$d2q$
Bonjour
Créer une table à partir de la requête.
Connecter l'état sur cette table.
Editer l'état à partir de la macro.
A tester!
"Franck" a écrit dans le message news:

Bonjour,

J'ai créé 2 états à partir de la même requête qui doivent s'éditer
simultanément lors de la saisie d'un numéro d'identifiant.

J'ai créée une macro me permettant l'édition des 2 états, toutefois (et
à


juste raison), je dois saisir à 2 reprises le numéro d'identifiant.

Comment puis-je procéder pour avoir mon édition en saisissant une seule
fois

le numéro d'identifiant.

D'avance merci












Avatar
Franck
La solution m'a été donné :

En fait, il s'agissait simplement de laisser ouvert le formulaire, et
d'adjoindre la macro d'édition sur ce dernier

Merci du coup de main

Franck
"Jessy SEMPERE" a écrit dans le message de news:
bj46k4$nrt$
Bonjour

Visiblement tu ne passe pas par un formulaire pour saisir ton argument
mais tu as du mettre comme critère dans ta requête : [entrez le
critère...]


Perso je retirais ce critère de ta requête et j'utiliserai le code qui
suit

Ensuite dans ta macro, tu fais comme action : "ExécuterCode" avec comme
nom de fonction :
=OpenTwoReport("Etat1" ; "Etat2")

Ps : il faut adapter la ligne "strCriteria..." dans le code.
*************************************************
Function OpenTwoReport(strRpt1 As String, strRpt2 As String)
Dim strArg As String
Dim strCriteria As String
strArg = InputBox("Entrez le critère :")
If strArg <> "" Then
strCriteria = "[ChampFiltré] = '" & strArg & "'"
DoCmd.OpenReport strRpt1, acViewPreview, , strCriteria
DoCmd.OpenReport strRpt2, acViewPreview, , strCriteria
Else
MsgBox "Opération d'ouverture des états annulée...", vbInformation
End If
End Function
*************************************************
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------