Discussion :

[cretgil]

Bonjour à tous,

Me voilà devant un nouveau problème mais après quelques heures de recherche je bloque toujours.

J'ai un formulaire sur lequel se trouve un bouton imprimer qui ouvre un report.

Comment passer à ce report des informations du formulaire et les affecter au textbox de ce report ?

Quelqu'un aurait un bon exemple ?

D'avance merci
salutations

[loufab]

Bonjour,
3 solutions :

1) Par une table et des dlookup() sur cette table dans les textbox.

2) Utiliser des variables globales et affecter la valeur de chacune via l'événement On Format (sur formatage) de l'état.

3) faire passe les valeurs par la clause OpenArgs de la commande docmd.openform, et comme pour la solution précédente tu affectes la valeur via l'événement.

Cordialement,

[cretgil]

Merci loufab pour ta réponse.

J'ai en partie résolu mon problème en créant des contrôles indépendants sur mon état et en leur affectant les données comme cela :

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
16
17
18
19
20
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
	Dim i As Integer
	Dim txtNew As Access.TextBox 'textbox control
	Dim lngTop As Long 'top valeur de la position du contrôle
	Dim lngLeft As Long 'left valeur de la position du contrôle

	If CurrentProject.AllForms("frmNavigation").IsLoaded Then
		textBoxNom01.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom01
		textBoxNom02.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom02
		textBoxNom03.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom03
		textBoxNom04.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom04
		textBoxNom05.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom05
		
		For i = 0 To Forms!frmNavigation!SousFormulaireNavigation.Form!lstNom.ListCount - 1
			'créer un nouveau contrôle textbox et size to fit données
			Set txtNew = CreateReportControl(EtatNom, acTextBox, acDetail, , Forms!frmNavigation!SousFormulaireNavigation.Form!lstNom.Column(1, Forms!frmNavigation!SousFormulaireNavigation.Form!lstNom.ListIndex + 1), lngLeft + 1500, lngTop)
			txtNew.SizeToFit
		Next i
	End If
End Sub

Par contre j'ai une erreur Variable nom définie sur EtatNom ?
Merci pour votre aide

[loufab]

Bonjour,
Je pose la même question qu'ACCESS, Qui est EtatNom ? Je ne le trouve pas dans le code (ni dans l'état).

Personnellement je n'utiliserai pas la méthode CreateXXXX. Pourquoi ?
1) tu ne pourras pas protéger ton application en créant une version compilée (accde)
2) elle ne sera jamais opérationnelle avec un runtime.

Crées plutôt des textbox cachés (visible = false) qui tu rends visible aux besoins et toujours dans le onformat.

Une question subsidiaire :
C'est normal cette répétition de la même instruction :

Code :

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

1
2
3
4
5
6
 
		textBoxNom.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom
		textBoxNom.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom
		textBoxNom.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom
		textBoxNom.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom
		textBoxNom.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!textBoxNom

Je pense que c'est inutile que tu insistes aussi lourdement. Même s'il a dépasser les 20 ans il est toujours alerte.

Cordialement,

[cretgil]

merci pour ta réponse.

J'ai corrigé mon code ci-dessus effectivement j'insistais un peu trop :-)

Voilà une solution mais qui ne me convient pas à 100% :

dans mon form j'ai :

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
16
17
18
Private Sub cmdImprimer_Click()
    'Dim varSelect As Variant
    Dim i, j As Integer
    Dim strDataString As String
 
    For i = 0 To lstProjets.ListCount - 1
        For j = 0 To lstProjets.ColumnCount - 1
        'Access each item with
        If lstProjets.Column(i, j) <> "" Then
            strDataString = strDataString & lstProjets.Column(j, i) & Chr(32)
        End If
        Next j
        strDataString = strDataString & vbNewLine
    Next i
 
 
    DoCmd.OpenReport "etaPilotageSapProjetEtat", acPreview, , , , strDataString
End Sub

et dans mon état j'ai un champ text qui récupère cela :

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
16
17
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
 
    If CurrentProject.AllForms("frmNavigation").IsLoaded Then
        txtLocalisation.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!txtLocalisation
        txtGroupe.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!txtGroupe
        txtProjet.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!cboPilProjet
        txtNumSap.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!cboNumSap
        txtFacturePilotage.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!txtFacturesPilotage
        txtBudgetV0.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!txtBudget
        txtBudgetV1.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!txtBudgetV1
        txtDevisGeneral.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!txtDevisGeneral
        txtForecast.Value = Forms!frmNavigation!SousFormulaireNavigation.Form!txtForecast
 
        txtLstProjet.Value = Me.OpenArgs
 
End Sub

Seulement c'est un champ text qui n'est pas tellement formatable donc la lisibilité se ressent .
Quelqu'un aurait une autre façon de faire ?
D'avance merci

[loufab]

c'est-à-dire "formatable" ?

[cretgil]

lui donner une mise en forme plus correcte avec des colonnes - lignes - entêtes

[loufab]

Comme une zone de liste non ?!

Pourquoi tu n'utilises pas simplement ce type de contrôle ?

[cretgil]

j'aimerai bien mais je n'arrive pas à l'implémenter.

Sur mon formulaire, c'est ok mais sur l'état ça bloque.

j'ai mis une listbox que je lie à une requête paramétrée mais lorsque je clic sur le bouton imprimer je dois saisir le paramètre.

[pyloupylou]

bonjour,

une suggestion

bon je pars sur des suppositions, j'imagine que dans ton écran tu connais la valeur de ton paramètre
si c'est le cas, tu peux essayer de retirer ton paramètre de la requête( que tu appelerais marequete par exemple) et de reconstituer ta requête lors de l'execution de ton état de la même manière ou tu charges tes variables

cela donnerait un truc du style

Code :

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

maliste.rowsource="select champ1, champ2 from marequete where moncritere='" & valeurdecritere &"'"

ça devrait marcher

[cretgil]

Hello merci pour ta réponse.

J'ai essayé de recréer ma requête vu que oui je peux avoir ma valeur depuis le formulaire mais j'obtiens une erreur 2191



????
Merci pour votre réponse

[pyloupylou]

un truc pour debugger... mets ton paramètre en dur dans ta requête pour trouver la bonne syntaxe et ensuite remplace ta valeur par ton expression issue de ton écran

[cretgil]

ok merci pyloupylou et loufab

j'ai fini par résoudre mon problème. Je mets une marche à suivre pour ceux qui en auraient besoin

J'ai fait 2 reports : un totalement indépendant et un autre dépendant de ma requête avec paramètres.
Dans le premier j'insère le 2ème report avec ma requête paramétrées.

A l'événement ouverture du report père je lui passe ma requête avec mon paramètre récupéré depuis mon formulaire

du genre :

Code :

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

1
2
CurrentDb.QueryDefs("marequeteparamétrée").sql = "SELECT * from tblxxxx 
        "WHERE monchamp = " & mavariableglobal

et magie ça marche

voilà
@++
cretgil

[loufab]

Bonjour,
Tu peux éviter ce montage en utilisant ton code avant le lancement de l'état.

Une fois que la querydef a reçu sa chaine SQL tu la fermes. Et dans ton état tu fais référence à elle dans ta source.

Ainsi tu n'as plus qu'un état.

Cordialement,

[pyloupylou]

Mister Loufab

heu, j'ai pas compris... peux tu détailler un peu plus ?

Merci !

[loufab]

Bonjour,

Admettons un formulaire contenant un contrôle contenant la valeur servant de condition pour l'état et un bouton pour ouvrir l'état.

Dans le bouton je mets ceci :

Code :

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

1
2
3
4
 
CurrentDb.QueryDefs("marequeteparamétrée").sql = "SELECT * from tblxxxx WHERE monchamp = " & me.Moncontrole & ";"
currentdb.querydefs.refresh
docmd.openreport "monétat"

Dans la source de l'état je mets simplement :

marequeteparamétrée

C'est suffisant, inutile de mettre un état dans un état qui fixe la source.

cordialement,