Discussion :

[totojordi]

EDIT : Mon ETAT est basé sur cette requête :

Code :

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

1
2
3
4
5
6
SELECT DISTINCTROW *
FROM CataloguePostProd LEFT JOIN (ParcVendu LEFT JOIN (IndicateurSoutien LEFT JOIN PriceListSan
 ON PriceListSan.Equipement = IndicateurSoutien.Sigle_Equipement) 
ON ParcVendu.Sigle_Commercial = IndicateurSoutien.Sigle_Equipement) 
ON ParcVendu.reference = CataloguePostprod.Reference
WHERE ((" & strCriteria & "));

Code du bouton qui ouvre l'Etat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub BTImprimer_Click()
Dim stDocName As String
Dim strCriteria As String

strCriteria = [Formulaire]![FormulaireRecherche]![txt_critere]
' l'aide donne une syntaxe du genre  [nomchamp = ...]![Formulaire] mais je n'ai pas de nom de champ à mettre !
stDocName = "TestRequeteEtat"
DoCmd.OpenReport stDocName, acPreview, , strCriteria

With Reports(stDocName)
        .OrderBy = Me.OrderBy
        .OrderByOn = True
        .FilterOn = True
End With

J'aimerais que l'état s'ouvre en fonction du critère (valeur tapé par l'utilisateur dans un autre formulaire).

Comment faire ?

[ClaudeLELOUP]

Bonjour,
la syntaxe pour référer à un contrôle d'un formulaire ouvert

Code :

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

forms!LeFormulaire.LeContrôle

[totojordi]

D'accord, j'ai donc testé en mettant :

strCriteria = [Formulaire]![FormulaireRecherche].[txt_critere]

Et j'ai le message d'erreur suivant :

"Erreur d'exécution '2465'

Impossible de trouver le champ "Formulaire" auquel il fait référence dans votre expression"

Vous avez peut-etre mal orthographié le nom du champ. "

En ce qui concerne l'aide je dois contacter le revendeur du produit (rubrique inexistante)

[Domi2]

Bonjour,

Formulaires, avec un "s"...

En VBA, il n'est peut être pas inutile de privilégier l'anglais.

Et comme tu n'as pas d'espace dans le nom du formulaire et celui du champ, tu peux te passer des [].

strCriteria = Forms!FormulaireRecherche.txt_critere

Domi2

[totojordi]

Il les met automatiquement

j'ai Access97 je sais pas si ça change quelque chose.

J'ai mis un "s" à formulaire.

Il me dit donc maintenant : "Impossible de trouver le champ "FormulaireS"

[Domi2]

Re,

Le formulaire auquel tu fais références est bien ouvert ?

Domi2

[totojordi]

Absolument !

Le cheminement :

Un formulaire de recherche : double-click dans la zone de liste, un formulaire "avant-etat" s'ouvre, c'est sur ce formulaire qu'il y a le bouton : "Afficher l'état". Et c'est sur le formulaire de recherche que je veux prendre la valeur...


EDIT : Je teste en prenant la valeur du formulaire avant-etat

Du progrès, des résultats s'affiche, mais il ne tient pas compte du strCriteria

Le code du bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BTImprimer_Click()
Dim stDocName As String
Dim strCriteria As String
 
strCriteria = Me.Référence
 
stDocName = "testRequeteEtat"
DoCmd.OpenReport stDocName, acPreview, , strCriteria
 
With Reports(stDocName)
        .OrderBy = Me.OrderBy
        .OrderByOn = True
        .FilterOn = True
End With

[Domi2]

Re,

Si ton critère est dans une zone de liste, alors tu dois te référer à la colonne dans laquelle se trouve ton critère :

Code :

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

Forms!FormulaireRecherche.NomListe.Column(4)

par exemple, si le critère se trouve dans la 5ème colonne (l'indice commence à 0).

Et tu peux te passer de ta clause WHERE dans ta requête...

Domi2

[totojordi]

Non, le critère est dans une zone de texte, le résultat s'affiche dans une zone de liste.

Le formulaire qui s'affiche réaffiche les données dans des zones de texte.

Me.Référence du Form Avant-Etat prend la valeur Référence de la zone de liste du FormRecherche.

je sais pas si je suis assez précis.

[totojordi]

Code :

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

1
2
3
4
5
6
7
8
Private Sub BTImprimer_Click()
Dim stDocName As String
Dim strCriteria As String
 
strCriteria = Me.Référence
 
stDocName = "testRequeteEtat"
DoCmd.OpenReport stDocName, acPreview, , strCriteria

J'arrive à ce que strcriteria prenne la valeur que je veux, mais ensuite l'Etat crée ne s'en préoccupe pas.

L'Etat est basé sur une requete, peut-etre qu'il ne prend pas en compte d'autres paramètres.

Y'a une commande "create Etat" ?

[Domi2]

As-tu enlevé la clause WHERE de ta requête ?

Tu n'en as pas besoin...

Ensuite, tu dois définir ton critère :

Code :

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

1
2
stCriteria = "[NomChampRéférence]=" & Me.Référence
DoCmd.OpenForm stDocName, , , stCriteria

Ici, le critère est de type numérique.

Si le critère est de type String

Code :

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

stCriteria = "[NomChampRéférence]=" & "'" & Me.Référence & "'"

Domi2

[totojordi]

Euh la référence est de type texte

[Domi2]

Re,

J'ai pas eu le temps de finir de compléter...

Si le critère est de type String

Code :

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

stCriteria = "[NomChampRéférence]=" & "'" & Me.Référence & "'"

Domi2

[totojordi]

C'est un Etat que je veux créer ne confonds pas.

J'ai mis ton code, sa m'ouvre pdfcreator fin bref.

Merci de ton soutien, je reprendrais ça lundi car je n'ai pas le droit d'emmener mon travail chez moi.

Merci de m'avoir aidé !

[totojordi]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub BTImprimer_Click()
Dim stDocName As String
Dim strCriteria As String
 
 
 
stDocName = "état1"
strCriteria = "DonnéesTechniques.Reference = " & Me.Reference
DoCmd.OpenReport stDocName, AcViewPreview , , strCriteria

Donc voici le code que j'ai utilisé, le problème est qu'il y a #Nom? dans toutes les textbox. Donc l'Etat n'a pas pris en compte strCriteria

Je pense qu'il faudrait modifier la requête source de l'Etat avec du VBA et afficher l'Etat ensuite.

Est ce que ce serait une bonne solution ?

[totojordi]

Nouvelle tentative :

Code :

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

1
2
3
4
Private Sub BTImprimer_Click()
Dim stDocName As String
stDocName = "état1"
DoCmd.OpenReport stDocName, acViewPreview, , "[testRequeteEtat] = " & txtRéférence

txtréférence est la zone de texte ou s'affiche la référence dans le formulaire Avant-Etat
Toujours le même #Nom? qui s'affiche.

[Domi2]

Bonjour,

Sorry pour vendredi, j'ai effectivement fait un exemple avec un formulaire et non un état.

Le nom de ton champ référence est un peux curieux. Ne s'agirait-il pas de DonnéesTechniques, tout simplement

De plus, si ton critère est de type texte, tu dois utiliser la syntaxe suivante :

Code :

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

stCriteria = "[DonnéesTechniques]=" & "'" & Me.Référence & "'"

et non

Code :

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

strCriteria = "DonnéesTechniques.Reference = " & Me.Reference

Domi2

[totojordi]

Y'a pas de soucis pour vendredi !

Je m'étais trompé également en parlant de formulaire en début de post donc tu as suivi à partir de là.

J'essai ton idée.

Sa m'ouvre l'Etat mais toujours avec des #Nom? dans les textbox.


Le WHERE de la requête source de l'Etat est peut-etre mal formulé ?

Code :

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

WHERE ((" & strCriteria & "));

Je vais essayer de mettre forms!FormulaireAvantEtat!Référence.

La syntaxe ne doit pas étre comme il faut mais on va voir.

[Domi2]

Re,

Le WHERE de la requête source de l'Etat est peut-etre mal formulé ?

Surtout, tu n'en as pas besoin...

Vérifie simplement que ton état affiche correctement toutes les données...

ensuite, quand tu l'ouvres avec un critère, seul l'enregistrement correspondant au critère est affiché.

Domi2

[totojordi]

j'ai trouvé une solution plus simple en allant chercher directement la valeur à partir du menu source contrôle de chaque zone de texte.

Donc plus besoin de requête etc.

Merci quand même de ton aide Domi2