Discussion :

[Baba75AB]

Bonjour,
Rien que pour le titre j'ai eue du mal à le formuler ! J'ai réussi la 1er étape de mon etat qui visualise les lignes de textes en fonction des variables issues de la requête source.
Maintenant je dois résoudre un autre problème : dans un des "chapitres" de mon etat, j'ai une partie de texte 'fixe' et ensuite un zone texte devant contenir la valeur issue d'une table pour un Code bien précis.
je m'explique :
'Les frais kilométriques....... sont de " 1,20 € " H.T du Km "
En vert: la valeur du champ [PUHT_prest] dont le [CodePrest] est égal à "KMFORF" de la table "Prestation"
En effet cette table me permet de stocker les montants des différentes prestations, pour justement les affichés dans les ETATS ou je dois les mentionner. Ainsi si je modifie un montant à une date donnée, les montants seront exacte le jour de l'édition de l'etat.
Je pense que la méthode est déclarer une série de variables à l'ouverture de l'état, pour les stocker en mémoires, ensuite au sein de l'etat de les imprimer (ou visualiser) à une position precise sur la page.
Estce la bonne voie ?

[Domi2]

Bonjour,

Je pense que tu peux utiliser uniquement la zone de texte.

Dans la propriété "Source contrôle" , tu mets :

Code :

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

="Les frais kilométriques....... sont de " & [KMFORF] & " H.T du Km"

Domi2

[Baba75AB]

Merci Domi2,
je ne pense pas que cela puisse marcher, car ici tu désignes un champ, mais KMFORF est le nom de la valeur stockée dans le champ 'CodePrest' de la table PRESTATION
Par contre en effet sur controlesource, je peux peut-être executer une petite requette qui retournera la valeur souhaitée, je vais exploiter cette piste, je te tiens au courant
Merci

[Baba75AB]

Comment sur l'ouverture de mon ETAT récupérer la valeur qui m'intéresse, ici la valeur du champ [KMFORF] de la table PRESTATION. Bien-sur cette table n'est pas la source de cet ETAT, car PRESTATION est une table de constante qui stocke la base de facturation des prestations de mon appli. Elle ne peut-être lié à la source de mon ETAT.

J'ai pensé à lancer une requête mais j'obtiens un message d'erreur avec cette instruction...

Code :

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

DoCmd.RunSQL "Select Prestation.CodePrest, Prestation.PUHT_prest FROM Prestation WHERE (((Prestation.CodePrest)='KMFORF'))"

Ensuite comment l'insérer dans ma ligne décrite plus haut ?
Merci pour votre aide.

[Invité]

Bonjour

Je ferais comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Dim filtre As String
Dim MaVar As Variant
filtre = "CodePrest= 'KMFORF'"
MaVar = Nz(DLookup("PUHT", "Prestation", filtre))
 
'Et pour la légende de ton étiquette 
Etiquette.Caption ="Les frais kilométriques..sont de " & MaVar & " H.T du Km"
 
End Sub

J'ai mis le résultat dans une étiquette mais tu peux exploiter le résultat de la variable n'importe où.

[Baba75AB]

Merci GAYOT pour ton aide, mais le texte est dans une zone 'texte' de mon etat, car le libéllé est renseigné suite à une instruction VBA (sur formatage)

Code :

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

1
2
3
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
    Me.Var10 = "* Le Kilométrage supérieur aux 40 Kilomètres prévus sera facturé à " & MaVar & "H.T. du kilomètre par véhicule"
....

Mais l'insertion de la variable 'MaVar' reste vide dans la chaine que je veux visualiser
Par contre si je crée une etiquette '1,2' apparait bien sur ma page (Mais cela n'est pas pratique pour une question de formatage par apport aux autres lignes de mon état)
J'ai fait un test avec une msgbox,

Code :

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

MsgBox MaVar

Elle me retourne bien la valeur 1,2 mais est-il possible de la formater en format monétaire ? soit --> 1,20 €
Merci.

[Invité]

Code :

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

1
2
3
 
 
MaVar = Format(Nz(DLookup("PUHT", "Prestations", filtre)), "#,##0.00 €")

[Baba75AB]

Merci Gayot de te préoccuper de mon petit problème, mais j'en suis toujours au même point : impossible d'afficher le contenu de la variable 'MaVar' dans une zone texte de mon état....
J' ai fait un essai avec un état ou j'ai retiré tous les contrôles et procedures VBA, pour ne laisser que les lignes qui traitent la manipulation de cette variable.

Soit sur ouverture de l'état :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Report_Open(Cancel As Integer)
'Sur ouverture de l'Etat
'Récupération des variables dans table PRESTATION
Dim filtre As String
Dim MaVar As Variant
Dim PKMHT As Variant
filtre = "CodePrest= 'KMFORF'"
MaVar = Format(Nz(DLookup("PUHT_prest", "Prestation", filtre)), "#,##0.00 €")
MsgBox MaVar
'Me.PKMHT = MaVar (j'ai désactivé cette ligne car j'obtiens un msg d'erreur, VBA ne veut pas affecter le contenu de MaVar à ma zone texte PKMHT)
 
End Sub

et sur Formatage :

Code :

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

1
2
3
4
5
6
7
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
   
     ' Section Dépassement de forfait
     Me.Var10 = "* Le Kilométrage supérieur aux 40 Kilomètres prévus sera facturé à " & MaVar & "H.T. du kilomètre par véhicule"
     Me.Var10 = "* Le Kilométrage supérieur aux 40 Kilomètres prévus sera facturé à    H.T. du kilomètre par véhicule"
     
End Sub

Quand je veux visualiser mon etat, il affiche le contenu de la 2ème ligne "* Le Kilométrage supérieur aux 40 Kilomètres prévus sera facturé à H.T. du kilomètre par véhicule", mais pas la 1ère ligne avec la conténisation de la variable avec le libellé de texte.

Sur ce coup je sèche....

[Invité]

Attention tu as des erreurs.

Si PKMHT est le nom de ta TextBox tu n'as pas à la mettre en variable.

Et pour la ligne que tu as désactivé:

Code :

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

1
2
 
Me.PKMHT.Value = "Les frais kilométriques..sont de " & MaVar & " H.T du Km"

Essaie comme cela en mettant tout le code sur l'évènement "Sur chargement"

[Baba75AB]

Je suis désolé, je me suis dès que j'ai lu ton post de me mettre en application, mais la variable n'est toujours pas visualisée!!!
C'est incompréhensible. Je n'arrive toujours pas à visualiser le "1,20€" dans mon texte.

[User]

Bonsoir,

Tu as mis tout ton code sur ouverture de ton état comme te la proposé GAYOT ?

Donne nous ton code complet...

A+

[Invité]

Bonjour
Sur Access 2007 il faut mettre le code sur l'évènement sur Chargement "OnLoad".
Sur les versions précédentes L'évènement OnLoad n'existant pas sur les Etats, il faut donc mettre les évènements non pas sur l'ouverture mais sur le formatage.

Ci joint petit exemple fait sur AccessXp.

[Baba75AB]

Merci pour ton aide Gayot !
Ton petit exemple valait mieux qu'un long discours.... Et après analyse je me suis rendu compte d'où venait le problème :

Code :

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

1
2
3
4
5
Dim filtre As String
Dim MaVar As Variant
Dim PKMHT As Variant
filtre = "CodePrest= 'KMFORF'"
MaVar = Format(Nz(DLookup("PUHT_prest", "Prestation", filtre)), "#,##0.00 €")

Ces instructions étaient sur l'événement "Sur ouverture" et non sur "Formatage"
J'ai replacé les lignes au bon endroit et en effet ça marche, je visualise exactement l'information sur ma page et au bon endroit
Encore merci pour ton aide.