Discussion :

[jekeclo]

Bonjour à tous,

je suis plus que néophite, j'ai un formulaire dans lequel je réalise un état à partir d'une requête en pointant sur 2 dates (zones de texte).

J'ai bien mon état, mais j'aimerais que dans cette état apparaisse également les informations qui figurent dans les 2 zones de texte indépendant.

Pourriez-vous m'aider car je ne sais pas du tout comment ajouter ces 2 informations de zones de texte indépendant sur un état.

En vous remerciant

[marot_r]

Si tes dates apparaissent dans ta requète résultat le plus simple est de les prendre là.

Sinon, il faut les passer en argument de ton rapport et sur l'événement ouverture les récupérer.

Ton code devrait ressembler à cela

dans le formulaire appelant qui contient deux champs maDate1 et maDate2

Code :

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

1
2
 
DoCmd.OpenReport monEtat, acViewPreview, , , , me.maDate1 & "|" & me.maDate2

dans ton etat sur Ouvreture

Code :

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

1
2
3
4
5
 
dim param as variant
param=split(me.OpenArgs,"|")'Ca va te permettre de récuperer les deux dates séparées par le |
me.maDate1=param(0)'ou 1 je me rappele jamais -)
me.maDate2=param(1)'ou 2 je me rappele jamais

dans ton etat tu as deux champs textes qui s'appele maDate1 et maDate2.

A+

[jekeclo]

merci marot_r pour ta réponse,

J'ai mis ces données dans les propriétés du clic du bouton pour l'ouverture de l'état,

j'ai l'information "utilisation incorrect de Null" et je ne vois pas apparaître mes valeurs date sur l'état.

voici le code complet pour info, lorsque je clique sur le bouton placé sur le formulaire :

Private Sub Commande25_Click()
On Error GoTo Err_Commande25_Click

Dim param As Variant
Dim stDocName As String

DoCmd.OpenReport "Etat_cout_telephone_total", acViewPreview, , , , Me.Dateinf & "|" & Me.Datesup

param = Split(Me.OpenArgs, "|") 'Ca va te permettre de récuperer les deux dates séparées par le |
Me.Dateinf = param(1) 'ou 1 je me rappele jamais -)
Me.Datesup = param(2) 'ou 2 je me rappele jamais

stDocName = "Etat_cout_telephone_total"
DoCmd.OpenReport stDocName, acPreview

Exit_Commande25_Click:
Exit Sub

Err_Commande25_Click:
MsgBox Err.Description
Resume Exit_Commande25_Click

End Sub

A bientôt et merci

[marot_r]

C'est un bon début mais il faut mettre du code à deux endrois : dans ton form appelant et dans ton etat. J'ai découpé en deux portions, ci dessous et tu ne devrais plus avoir de pb.

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
 
'Dans ton form appelant
'===============
.
Private Sub Commande25_Click() 
On Error GoTo Err_Commande25_Click 
 
Dim stDocName As String 
 
DoCmd.OpenReport "Etat_cout_telephone_total", acViewPreview, , , , Me.Dateinf & "|" & Me.Datesup :'Ce code appel l'etat 'Etat_cout_telephone_total'
 
Exit_Commande25_Click: 
Exit Sub 
 
Err_Commande25_Click: 
MsgBox Err.Description 
Resume Exit_Commande25_Click 
 
End Sub

Code :

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

1
2
3
4
5
6
7
 
'Dans Etat_cout_telephone_total sur l'evenement Ouverture ou chargement
'===================
Dim param As Variant 
param = Split(Me.OpenArgs, "|") 'Ca va te permettre de récuperer les deux dates séparées par le | 
Me.Dateinf = param(1) 'ou 1 je me rappele jamais -) 
Me.Datesup = param(2) 'ou 2 je me rappele jamais

Petite note de style, je donne toujours un nom à mes boutons du genre btnOuvrirEtat. Je trouve que cela rend mon code plus rapide à lire et à parcourir.

A+

[jekeclo]

bonjour,

merci à nouveau pour la réponse mais cela ne fonctionne pas

il me dis :" erreur de compilation : membre de méthodes ou de donnée introuvable"

j'ai fait un copier coller de ce que tu m'as envoyé

je cherche ce qui se passe avec mon peu de connaissance

encore merci

[marot_r]

Peux-tu poster ton code complet partie form et partie etat et precisier où se produit l'erreur.

Attention, la partie de code pour l'etat est a 'enrober' dans du code associer à l'événement OnOpen ou OnLoad.

A+

[jekeclo]

Bonjour MArot_r,

désolé de répondre si tard mais je n'avais plus de connexion

voici le code de mon formulaire :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Commande25_Click()
On Error GoTo Err_Commande25_Click
 
Dim stDocName As String
 
DoCmd.OpenReport "Etat_cout_telephone_total", acViewPreview, , , , Me.Dateinf & Me.Datesup: 'Ce code appel l'etat 'Etat_cout_telephone_total'
 
Exit_Commande25_Click:
Exit Sub
 
Err_Commande25_Click:
MsgBox Err.Description
Resume Exit_Commande25_Click
 
End Sub
 
 
 
Et voici le code de l'état :
 
Private Sub Commande25_Click()
On Error GoTo Err_Commande25_Click
 
Dim stDocName As String
 
DoCmd.OpenReport "Etat_cout_telephone_total", acViewPreview, , , , Me.Dateinf & Me.Datesup: 'Ce code appel l'etat 'Etat_cout_telephone_total'
 
Exit_Commande25_Click:
Exit Sub
 
Err_Commande25_Click:
MsgBox Err.Description
Resume Exit_Commande25_Click
 
End Sub

Merci encore de ton aide

edit : cafeine, merci d'utiliser les balises code

[Muhad'hib]

Si j'ai bien compris, tu n'ouvre ton Etat que depuis le formulaire en question.
Tu peux aussi ajouter dans ton etat un controle independant, puis lui donner comme source le controle de ton formulaire avec la syntaxe suivante :

Code :

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

1
2
 
=[Formulaires]![nomduformulaire]![nomducontrole]

Ainsi à l'ouverture, le controle de l'état prendra la valeur du controle nomducontrole de ton formulaire.

A+

[jekeclo]

Merci Muhad'hib


ça marche comme cela, je ne pensais pas que cela était possible en pratiquant ainsi


Merci à tous pour vos réponses

[jekeclo]

re-bonjour,

j'aimerais mettre ce message en résolu mais je ne trouve pas comment faire

Bonne journée

[jekeclo]

ça y est j'ai trouvé

merci à tous

[marot_r]

Si j'ai bien compris, tu n'ouvre ton Etat que depuis le formulaire en question.
Tu peux aussi ajouter dans ton etat un controle independant, puis lui donner comme source le controle de ton formulaire avec la syntaxe suivante :

Code :

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

1
2
 
=[Formulaires]![nomduformulaire]![nomducontrole]

Ainsi à l'ouverture, le controle de l'état prendra la valeur du controle nomducontrole de ton formulaire.

A+

Oui on peut faire comme cela aussi mais cela augmente le couplage entre ton rapport et ton formulaire. Change le nom du formulaire et ton rapport est brisé.

Une des partiques recommandees de programmation est la reduction du couplage (liaison entre des elements d'un programme) le but etant d'optenir des elements aussi independant les un des autres que possible.

Moins tu as de liens, moins tu as de chance de casser autre chose que ce que tu modifie et surtout moins tu as de choses a tester.

Pour que ma solution fonctionne le code aurrai du ressembler a peu pres a cela.

Code :

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

1
2
3
4
5
6
 
private sub OnOpen()
   .
   'Ici le code donne en exemple
   .
end sub

A+

[Muhad'hib]

Tu as bien sûr raison Marot_r. C'est une remarque pertinante. Cela dit dans ton code tu dois aussi avoir la référence au formulaire. C'est seulement en utilisant "Me" que l'on s'en affranchit.

Maintenant c'est à Jekeclo de voir quelle solution il (elle) choisit en fonction de la simplicité de mise en oeuvre (plus facile avec ma méthode que la tienne je pense) et sa souplesse (clairement plus souple avec ta mèthode que la mienne). Tout dépant de l'appli et des évolutions prévues.

Encore une fois Marot_r, ta remarque est parfaitement justifiée. Seul Jekeclo peut trancher en fonction des paramètres que nous n'avons pas.

A+

[marot_r]

Comme toute bonne pratique elle demande a etre mise en situation.

Joyeuses fêtes à tous.

A+