OVH Cloud OVH Cloud

Entete d etat, variable publique

5 réponses
Avatar
sem1
Bonjour a tous
Je suis debutant sous Access et me retrouve avec des pb simples mais qui me
font perdre beaucoup de temps,
car le fonctionnement d'Access n'est pas toujours intuitif. Voici celui qui
me preoccupe en ce moment :

Je veux mettre en entete dans mes formulaires et mes etats le nom du
commercial responsable

J ai cree dans un module une variable globale:
Public KAM As String

que j'affecte a l ouverture du menu principal:
Private Sub Form_Load()
KAM = Me.KeyAccountManager

A l'ouverture d'un formulaire j'ai :
Private Sub Form_Load()
KAMP = KAM

Et dans le formulaire j'ai une zone de texte independante appelee KAMP qui
affiche donc le nom du commercial concerne.

J'essaie la meme chose avec un etat :
Private Sub Report_Open(Cancel As Integer)
Dim KAMR As String
KAMR = KAM
MsgBox KAMR

J'ai place une zone de texte independante dans l'entete que j'ai renommee
KAMR

Mais celle ci reste vide, et pourtant le MsgBox affiche bien KAMR. Je
seche...
Ou est mon erreur?

Merci de vos avis
--
SEM1
Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
remplacer FAI par wanadoo

5 réponses

Avatar
Pierre CFI [mvp]
bonjour
mets ton code dans l'évenement Format du report au lien de Open

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:418df047$0$18477$
Bonjour a tous
Je suis debutant sous Access et me retrouve avec des pb simples mais qui me
font perdre beaucoup de temps,
car le fonctionnement d'Access n'est pas toujours intuitif. Voici celui qui
me preoccupe en ce moment :

Je veux mettre en entete dans mes formulaires et mes etats le nom du
commercial responsable

J ai cree dans un module une variable globale:
Public KAM As String

que j'affecte a l ouverture du menu principal:
Private Sub Form_Load()
KAM = Me.KeyAccountManager

A l'ouverture d'un formulaire j'ai :
Private Sub Form_Load()
KAMP = KAM

Et dans le formulaire j'ai une zone de texte independante appelee KAMP qui
affiche donc le nom du commercial concerne.

J'essaie la meme chose avec un etat :
Private Sub Report_Open(Cancel As Integer)
Dim KAMR As String
KAMR = KAM
MsgBox KAMR

J'ai place une zone de texte independante dans l'entete que j'ai renommee
KAMR

Mais celle ci reste vide, et pourtant le MsgBox affiche bien KAMR. Je
seche...
Ou est mon erreur?

Merci de vos avis
--
SEM1
Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
remplacer FAI par wanadoo



Avatar
RaphK34
Bonjour à toi,
et si tu faisais sur l'ouverture de ton état:

Private Sub Report_Open(Cancel As Integer)
KAMR = KAM
MsgBox KAMR

Car en fait je ne comprends pas le besoin de déclarer KAMR si c'est un control déjà défini!


--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news: 418df047$0$18477$
| Bonjour a tous
| Je suis debutant sous Access et me retrouve avec des pb simples mais qui me
| font perdre beaucoup de temps,
| car le fonctionnement d'Access n'est pas toujours intuitif. Voici celui qui
| me preoccupe en ce moment :
|
| Je veux mettre en entete dans mes formulaires et mes etats le nom du
| commercial responsable
|
| J ai cree dans un module une variable globale:
| Public KAM As String
|
| que j'affecte a l ouverture du menu principal:
| Private Sub Form_Load()
| KAM = Me.KeyAccountManager
|
| A l'ouverture d'un formulaire j'ai :
| Private Sub Form_Load()
| KAMP = KAM
|
| Et dans le formulaire j'ai une zone de texte independante appelee KAMP qui
| affiche donc le nom du commercial concerne.
|
| J'essaie la meme chose avec un etat :
| Private Sub Report_Open(Cancel As Integer)
| Dim KAMR As String
| KAMR = KAM
| MsgBox KAMR
|
| J'ai place une zone de texte independante dans l'entete que j'ai renommee
| KAMR
|
| Mais celle ci reste vide, et pourtant le MsgBox affiche bien KAMR. Je
| seche...
| Ou est mon erreur?
|
| Merci de vos avis
| --
| SEM1
| Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
| remplacer FAI par wanadoo
|
Avatar
sem1
Bonjou Raph,

Merci de ton aide. J'essaie de m'expliquer mieux :
En fait je veux afficher la varaible globale KAM
J'ai imagine qu'il fallait passer par une variable locale a l'etat que j'ai
appele KAMR

j'arrive bien a l'affecter puisque MsgBox KAMR affiche bien le nom du
commercial
Et pour l'afficher dans l'etat, j'ai cree une zone de texte independante que
j'ai renommee KAMR
Mais la zone de texte de l'etat reste vide???

RaphK34 wrote:
Bonjour à toi,
et si tu faisais sur l'ouverture de ton état:

Private Sub Report_Open(Cancel As Integer)
KAMR = KAM
MsgBox KAMR

Car en fait je ne comprends pas le besoin de déclarer KAMR si c'est
un control déjà défini!



"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
418df047$0$18477$
Bonjour a tous
Je suis debutant sous Access et me retrouve avec des pb simples mais
qui me font perdre beaucoup de temps,
car le fonctionnement d'Access n'est pas toujours intuitif. Voici
celui qui me preoccupe en ce moment :

Je veux mettre en entete dans mes formulaires et mes etats le nom du
commercial responsable

J ai cree dans un module une variable globale:
Public KAM As String

que j'affecte a l ouverture du menu principal:
Private Sub Form_Load()
KAM = Me.KeyAccountManager

A l'ouverture d'un formulaire j'ai :
Private Sub Form_Load()
KAMP = KAM

Et dans le formulaire j'ai une zone de texte independante appelee
KAMP qui affiche donc le nom du commercial concerne.

J'essaie la meme chose avec un etat :
Private Sub Report_Open(Cancel As Integer)
Dim KAMR As String
KAMR = KAM
MsgBox KAMR

J'ai place une zone de texte independante dans l'entete que j'ai
renommee KAMR

Mais celle ci reste vide, et pourtant le MsgBox affiche bien KAMR. Je
seche...
Ou est mon erreur?

Merci de vos avis
--
SEM1
Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
remplacer FAI par wanadoo




Avatar
Pierre CFI [mvp]
.../...
exact, c'est une erreur de déclarer un controle en string
donc sur l'évenement format
Me.KAMR = KAM

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"RaphK34" a écrit dans le message de news:%
Bonjour à toi,
et si tu faisais sur l'ouverture de ton état:

Private Sub Report_Open(Cancel As Integer)
KAMR = KAM
MsgBox KAMR

Car en fait je ne comprends pas le besoin de déclarer KAMR si c'est un control déjà défini!


--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news: 418df047$0$18477$
| Bonjour a tous
| Je suis debutant sous Access et me retrouve avec des pb simples mais qui me
| font perdre beaucoup de temps,
| car le fonctionnement d'Access n'est pas toujours intuitif. Voici celui qui
| me preoccupe en ce moment :
|
| Je veux mettre en entete dans mes formulaires et mes etats le nom du
| commercial responsable
|
| J ai cree dans un module une variable globale:
| Public KAM As String
|
| que j'affecte a l ouverture du menu principal:
| Private Sub Form_Load()
| KAM = Me.KeyAccountManager
|
| A l'ouverture d'un formulaire j'ai :
| Private Sub Form_Load()
| KAMP = KAM
|
| Et dans le formulaire j'ai une zone de texte independante appelee KAMP qui
| affiche donc le nom du commercial concerne.
|
| J'essaie la meme chose avec un etat :
| Private Sub Report_Open(Cancel As Integer)
| Dim KAMR As String
| KAMR = KAM
| MsgBox KAMR
|
| J'ai place une zone de texte independante dans l'entete que j'ai renommee
| KAMR
|
| Mais celle ci reste vide, et pourtant le MsgBox affiche bien KAMR. Je
| seche...
| Ou est mon erreur?
|
| Merci de vos avis
| --
| SEM1
| Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
| remplacer FAI par wanadoo
|




Avatar
sem1
Merci a tous les deux, tout fonctionne maintenant

Bon dimanche


Pierre CFI [mvp] wrote:
.../...
exact, c'est une erreur de déclarer un controle en string
donc sur l'évenement format
Me.KAMR = KAM


Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"RaphK34" a écrit dans le message de
news:%
Bonjour à toi,
et si tu faisais sur l'ouverture de ton état:

Private Sub Report_Open(Cancel As Integer)
KAMR = KAM
MsgBox KAMR

Car en fait je ne comprends pas le besoin de déclarer KAMR si c'est
un control déjà défini!


--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"sem1" <cimeo[PAS DE SPAM]@FAI.fr> a écrit dans le message de news:
418df047$0$18477$
Bonjour a tous
Je suis debutant sous Access et me retrouve avec des pb simples
mais qui me font perdre beaucoup de temps,
car le fonctionnement d'Access n'est pas toujours intuitif. Voici
celui qui me preoccupe en ce moment :

Je veux mettre en entete dans mes formulaires et mes etats le nom du
commercial responsable

J ai cree dans un module une variable globale:
Public KAM As String

que j'affecte a l ouverture du menu principal:
Private Sub Form_Load()
KAM = Me.KeyAccountManager

A l'ouverture d'un formulaire j'ai :
Private Sub Form_Load()
KAMP = KAM

Et dans le formulaire j'ai une zone de texte independante appelee
KAMP qui affiche donc le nom du commercial concerne.

J'essaie la meme chose avec un etat :
Private Sub Report_Open(Cancel As Integer)
Dim KAMR As String
KAMR = KAM
MsgBox KAMR

J'ai place une zone de texte independante dans l'entete que j'ai
renommee KAMR

Mais celle ci reste vide, et pourtant le MsgBox affiche bien KAMR.
Je seche...
Ou est mon erreur?

Merci de vos avis
--
SEM1
Pour me répondre directement, enlever [PAS DE SPAM] de l'adresse et
remplacer FAI par wanadoo