Associer un état à un formulaire

**samsab** · 31/03/2011, 14h31

Bonjour à tous
j'ai un formulaire ok
j'ai un état ok

comment, en étant positionné sur une fiche de mon formulaire, je peux directement imprimer l'état correspondant de la fiche en question.

je me casse les dents dessus depuis 15 jours.
merci pour vos conseils et lumières.
A+

**ronin.01** · 31/03/2011, 14h47

bonjour,

Je ne suis pas très qualifié, mais moi je passe par un bouton imprimer avec une procédure sur clic:

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
Private Sub Commande15_Click()
On Error GoTo Err_Imprimer_BC_Click
 
Dim stDocName As String
 
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
'on stock la valeur clé du formulaire
STOCKN° = Me!N°
stDocName = "ETATENVELOPPES"
DoCmd.OpenReport stDocName, acViewPreview, , "[N°]=" & STOCKN°
 
Exit_Imprimer_BC_Click:
Exit Sub
 
Err_Imprimer_BC_Click:
MsgBox Err.Description
Resume Exit_Imprimer_BC_Click
End Sub

J'espère que ca pourra t'aider
Cordialement
Ronin

**rjamin** · 31/03/2011, 14h48

Bonjour,

Votre formulaire affiche les champs issus d'une requête ou d'une table.
Par exemple une fiche Client qui contient un champ ID_Client.

Votre état contient les mêmes champs que cette fiche.
Donc dans la requête qui alimente l'état dans la colonne du champ ID_Client,
sur la ligne Critère il faut mettre =Formulaire!NomduFormulaire.[ID_Client] et alors l'état affichera la fiche du client affichée dans le formulaire à ce moment.
L'état sera ouvert avec un bouton qui se trouve dans le formulaire, de cette mainère le fromulaire est bien ouvert quand on veut imprimer la fiche correspondante.

Oups j'arrive en retard désolé.

**samsab** · 31/03/2011, 14h54

Envoyé par ronin.01

bonjour,

Je ne suis pas très qualifié

tout est relatif...........

merci pour ta réponse que je m'empresse d'essayer de comprendre

**samsab** · 31/03/2011, 15h02

Envoyé par ronin.01

bonjour,

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
Private Sub Commande15_Click()
On Error GoTo Err_Imprimer_BC_Click
 
Dim stDocName As String
 
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
'on stock la valeur clé du formulaire
STOCKN° = Me!N°
stDocName = "ETATENVELOPPES"
DoCmd.OpenReport stDocName, acViewPreview, , "[N°]=" & STOCKN°
 
Exit_Imprimer_BC_Click:
Exit Sub
 
Err_Imprimer_BC_Click:
MsgBox Err.Description
Resume Exit_Imprimer_BC_Click
End Sub

Ronin

hello
je reprends ton code.
je suis une quiche en prog, ce n'est rien de le dire.
j'imagine que les paramètres que je dois changer pour les miens se limitent à
STOCKN°
ETATENVELOPPES

y'en a t'il d'autres?
merci par avance

**ronin.01** · 31/03/2011, 15h14

Oui,

Oui il faut que tu remplaces N° et ETATENVELOPPES par tes données de ta base.
Stock..... correspond au "nom" attribué dans la fenêtre de propriété onglet autre et [....] correspond au nom du champs dans la table (source).

Cordialement
ronin

**samsab** · 31/03/2011, 15h54

N° est relatif au formulaire ou à la ta table????
autrement dit ce que tu appelles Stock est un formulaire ou une table?

**ronin.01** · 31/03/2011, 16h21

non "stock" veut dire qu'il va stocker l'information pour une utilisation ultérieur.

mon champs à comme source N°(clé primaire) de ma table enveloppe et dans les propriétés dans l onglet autre il porte le nom de N°.

Cordialement

**samsab** · 31/03/2011, 16h24

je savais que je partais de très loin......mais là...

merci pour ta patience

**samsab** · 31/03/2011, 17h06

voici mon code.....qui merdouille bien sur

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
Private Sub Commande110_Click()
 
On Error GoTo Err_Imprimer_BC_Click
 
Dim stDocName As String
 
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
'on stock la valeur clé du formulaire
StockN° = Me!N°
stDocName = "LIAISON AVOCAT"
DoCmd.OpenReport stDocName, acViewPreview, , "[N°]=" & StockN°
 
Exit_Imprimer_BC_Click:
Exit Sub
 
Err_Imprimer_BC_Click:
MsgBox Err.Description
Resume Exit_Imprimer_BC_Click
End Sub
End Sub

j'ai 2 questions
l'état s'appelle LIAISON AVOCAT, ok. dans le code tu as

Code :

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

stDocName = "LIAISON AVOCAT"

faut il un caractère spéciale pour l'espace entre LIAISON et AVOCAT?

en ce qui concerne la clé du formulaire, j'ai un doute.
dois je laisser le code comme tel ou cela n'a aucun sens????
car la clé principale est le N° d'adhérent qui provient de la table ADhérent

voici le code qui me donne les coordonnées de cet adhérent dans mon formulaire

Code :

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

SELECT [ADHERENT].[N°], [ADHERENT].[NOM], [ADHERENT].[PRENOM], [ADHERENT].[VILLE] FROM ADHERENT ORDER BY [NOM], [PRENOM], [VILLE];

alors pour l'état, que dois je prendre?
je pose mal la question parce que je n'identifie pas vraiment le pb....

**samsab** · 31/03/2011, 20h24

Envoyé par rjamin

Bonjour,

Votre formulaire affiche les champs issus d'une requête ou d'une table.
Par exemple une fiche Client qui contient un champ ID_Client.

Votre état contient les mêmes champs que cette fiche.
Donc dans la requête qui alimente l'état dans la colonne du champ ID_Client,
sur la ligne Critère il faut mettre =Formulaire!NomduFormulaire.[ID_Client] et alors l'état affichera la fiche du client affichée dans le formulaire à ce moment.
L'état sera ouvert avec un bouton qui se trouve dans le formulaire, de cette mainère le fromulaire est bien ouvert quand on veut imprimer la fiche correspondante.

Oups j'arrive en retard désolé.

merci pour votre réponse.
il n'est jamais trop tard....

je ne sais pas répondre à votre question.
le formulaire est bati avec divers champs provenant de diverses tables.

**ronin.01** · 01/04/2011, 09h54

Bonjour,

Déja dans ton code tu as deux fois End sub, il faut en supprimer un.

Ton champs [n°] porte quel nom dans l'onglet des propriétés-autre-nom ?

Cordialement

**samsab** · 01/04/2011, 11h59

Merci pour ta réponse
je vais être obligé de te faire voir cette image

Le champs Dossier adhérent est la clé principale du formulaire
son nom est "modifiable104"

comment modifier alors ton bout de code?
merci pour ta patience

**ronin.01** · 03/04/2011, 21h28

bonsoir,

désolé de ne pas avoir répondu plus tot.
Il faut nommer ta zone de liste modifiable104 par exemple N° ou AdherentN°

et dans le code tu mets "stockAdherentn° = Me!N°

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 Commande110_Click()
 
On Error GoTo Err_Imprimer_BC_Click
 
Dim stDocName As String
 
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
'on stock la valeur clé du formulaire
StockAdherentN° = Me!N°
stDocName = "LIAISON AVOCAT"
DoCmd.OpenReport stDocName, acViewPreview, , "[N°]=" & StockAdherentN°
 
Exit_Imprimer_BC_Click:
Exit Sub
 
Err_Imprimer_BC_Click:
MsgBox Err.Description
Resume Exit_Imprimer_BC_Click
End Sub

Cordialement

**samsab** · 05/04/2011, 16h11

merci pour ta réponse
cela avance mais cela merdouille quand même.
quand je clique sur le bouton paramétré avec le code que tu m'as donné (merci)
arrive alors un popup me demandant un N° (le fameux N°)
je réponds par ce que je veux, et je retombe sur mon état, mais qui ne tient pas compte du N°.
je pense qu'il y a un souci de définition de la clé.......
si j'osais...pourrais je t'envoyer cette application pour que tu y jettes un oeil averti?

Associer un état à un formulaire

IHM

Discussions similaires

Partager

Partager