OVH Cloud OVH Cloud

modifiaction d'un état en vb

10 réponses
Avatar
carine
Bonjour,
J'ai ouvert un =E9tat en vb en mode acViewDesign.
Cet =E9tat :etatE contient d=E9j=E0 un label vide : Etiquette1.
Et je voudrais mettre une valeur dans ce label. J'ai=20
essay=E9:
Etats!etatE!Etiquette1.Caption =3D "mavaleur"
et=20
Report!etatE!Etiquette1.Caption =3D "mavaleur"
mais =E0 chaque fois il me met le message : objet requis
Comment faire ?
D'avance merci

10 réponses

Avatar
Raymond
Bonsoir.

comme ceci ça marche toujours:

DoCmd.OpenReport "etat1", acViewDesign
Reports("etat1").Controls("étiquette26").Caption = "Raymond"
DoCmd.Close acReport, "etat1", acSaveYes


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"carine" a écrit dans le message de
news:021101c34fa7$786259b0$
Bonjour,
J'ai ouvert un état en vb en mode acViewDesign.
Cet état :etatE contient déjà un label vide : Etiquette1.
Et je voudrais mettre une valeur dans ce label. J'ai
essayé:
Etats!etatE!Etiquette1.Caption = "mavaleur"
et
Report!etatE!Etiquette1.Caption = "mavaleur"
mais à chaque fois il me met le message : objet requis
Comment faire ?
D'avance merci
Avatar
Anor
Bonjour Raymond Ô toi qui ......


| Bonsoir.
|
| comme ceci ça marche toujours:
|
| DoCmd.OpenReport "etat1", acViewDesign
| Reports("etat1").Controls("étiquette26").Caption = "Raymond"
| DoCmd.Close acReport, "etat1", acSaveYes


Je me demandais : pour imprimer un état dans un fichier PDF,
(donc imprimante spécifique PDF affectée à "MonEtat")

Si je fait ceci, ça permet de personnaliser le nom du fichier dans la boîte de dialogue
"enregistrer sous..."

DoCmd.OpenReport "MonEtat", acViewDesign
Reports("MonEtat").Caption = "Etat du " & Format(Now, "ddmmyyyy")
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "MonEtat", acSaveNo

Mais 2 choses me turlupinent :
1 - d'habitude je ne fais pas comme ça pour imprimer directement un état
mais je ne me souviens plus comment je fais !!
2 - comment faire en sorte qu'on ne voit pas l'état en mode design pendant la modif de propriété

Merci si tu connais la réponse et Bonne nuit :-))

--
à+
Arnaud
-------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
petit à petit, www.anor.fr.st fait son nid
-------------------------------------------
Avatar
Raymond
Bonsoir Arnaud.

Mais 2 choses me turlupinent :
1 - d'habitude je ne fais pas comme ça pour imprimer directement un état
mais je ne me souviens plus comment je fais !!
2 - comment faire en sorte qu'on ne voit pas l'état en mode design
pendant la modif de propriété
Merci si tu connais la réponse et Bonne nuit :-))


A partir de 2002 on peut mettre:
DoCmd.OpenReport "zzz", acViewDesign, , , acHidden

mais pour 2000 et antérieur, vous repasserez tous cet hiver pour voir si ça
a changé.

d'ailleurs, si on fait acHidden sur une base 2000 partagée, Access 2000 part
en erreur d'exécution.

DoCmd.OpenReport "MonEtat", acViewDesign
Reports("MonEtat").Caption = "Etat du " & Format(Now, "ddmmyyyy")
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "MonEtat", acSaveNo


le printout n'a jamais imprimé un report mais un form
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Anor" a écrit dans le message de
news:3f1c412b$0$23847$
Bonjour Raymond Ô toi qui ......


| Bonsoir.
|
| comme ceci ça marche toujours:
|
| DoCmd.OpenReport "etat1", acViewDesign
| Reports("etat1").Controls("étiquette26").Caption = "Raymond"
| DoCmd.Close acReport, "etat1", acSaveYes


Je me demandais : pour imprimer un état dans un fichier PDF,
(donc imprimante spécifique PDF affectée à "MonEtat")

Si je fait ceci, ça permet de personnaliser le nom du fichier dans la
boîte de dialogue

"enregistrer sous..."



--
à+
Arnaud
-------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
petit à petit, www.anor.fr.st fait son nid
-------------------------------------------




Avatar
Anor
RE.


| Bonsoir Arnaud.
|
| A partir de 2002 on peut mettre:
| DoCmd.OpenReport "zzz", acViewDesign, , , acHidden

ça me revient : pour imprimer directement un état :

Docmd.openreport "MonEtat",acNormal

le plus étrange, c'est que ce paramètre n'est pas proposé par Access 2002
quand on l'écrit .....

| le printout n'a jamais imprimé un report mais un form

Ah bon, pourtant ça avait fonctionné pour imprimer mon état ...

Mais bon, je me contenterai désormais de ceci pour envoyer le nom du fichier pdf :

Sub ImprimerPDF()
DoCmd.OpenReport "MonEtat", acViewDesign
Reports("MonEtat").Caption = "Etat du " & Format(Now, "ddmmyyyy")
DoCmd.Close acReport, "MonEtat", acSaveYes
DoCmd.OpenReport "MonEtat", acNormal
End Sub

--
à+
Arnaud
-------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
petit à petit, www.anor.fr.st fait son nid
-------------------------------------------
Avatar
3stone
Salut Arnaud et Raymond,


le printout n'a jamais imprimé un report mais un form
--



Si si... mais il faut juste faire attention au focus ;-)


Exemple :

Private Sub bt_Print_Click()
Dim stDocName As String
stDocName = "rep_Test"
DoCmd.OpenReport stDocName, acViewPreview
'// Me.SetFocus
DoCmd.PrintOut acSelection, 1, 2, , 5
End Sub


Cette sub imprime bien 5 copies de la page 1 et 2 de l'état "rep_Test".

Mais, décommenter le "Me.SetFocus" et cela imprime... le formulaire !

Il faut donc veiller à ce que l'état soit à l'avant plan.
Et, si le formulaire est modal (et donc l'état en arrière plan), la solution est
de rendre le formulaire "invisible", le temps de lancer le "PrintOut".

Ne pas oublier que le "DoCmd" s'adresse, en général, à l'objet actif.


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

Avatar
joyeux atchoum
S'lt

DoCmd.OpenReport "MonEtat", acViewDesign
Reports("MonEtat").Caption = "Etat du " & Format(Now, "ddmmyyyy")
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "MonEtat", acSaveNo

Mais 2 choses me turlupinent :
2 - comment faire en sorte qu'on ne voit pas l'état en mode design pendant la modif de propriété


Euh, a priori je dit des conneries mais bon pour ne pas afficher en
mode design
je commence par un docmd.echo false et je finis apres par un docmd.echo
true

le seul pb que j'ai avec cette methode en fonction de l'age du
capitaine j'ai la fenetre faisant reference au recordsource qui
apparait en grisé

en tout cas je prends note pour la Xp vu que je vais surement migrer en
runtime Xp
:=)

voili

ja;)
qui est pas sur de faire juste vu que Raymond en parle pas

Avatar
Anor
Bonjour Raymond,


| Bonjour.
|
| Penses-tu que Arnaud aurait posé cette question s'il ne s'agissait
| que d'un simple echo false ?


Euh peut-être bien que oui :

Je viens de tester le Print Out en mode design encadré par deux
docmd.echo false / echo true

Eh bien l'utilisateur voit effectivement la boite de dialogue sur un fond gris,
mais c'est mieux que de la voir sur l'état en mode design.

--
à+
Arnaud
----------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
Access Memorandum - Les tablettes d'Anor
www.anor.fr.st
----------------------------------------------
Avatar
André AVONS
Salut
Je vais mettre mon grain de sel
Pour changer l'etiquette d'un etat on peut le faire a l'impression
par exemple sur ZoneEntêtePage_Format au formatage de l'entete
zonelib = "ET" & x + 36 'Fabrication du nom de l'etiquette
Me(zonelib).Visible = True
Me(zonelib).Caption = vbNullString
Me(zonelib).Caption = StrConv([DESIGNATION], 3) & " : " & [cotation]
'Designation et cotation lit plus haut dans une table
Je change les libelles d'un regroupement sur l'autre c'est la description
technique d'engin, chaque type d'engin a ses propres definitions
Je change plus de 100 libelles a chaque type
--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Anor" a écrit dans le message de
news:3f1cec9d$0$2000$
Bonjour Raymond,


| Bonjour.
|
| Penses-tu que Arnaud aurait posé cette question s'il ne s'agissait
| que d'un simple echo false ?


Euh peut-être bien que oui :

Je viens de tester le Print Out en mode design encadré par deux
docmd.echo false / echo true

Eh bien l'utilisateur voit effectivement la boite de dialogue sur un fond
gris,

mais c'est mieux que de la voir sur l'état en mode design.

--
à+
Arnaud
----------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
Access Memorandum - Les tablettes d'Anor
www.anor.fr.st
----------------------------------------------




Avatar
joyeux atchoum
S'lt

Me(zonelib).Caption = vbNullString
Me(zonelib).Caption = StrConv([DESIGNATION], 3) & " : " & [cotation]
'Designation et cotation lit plus haut dans une table


Euh juste pour savoir, pourquoi forces tu ton controle à null avant de
le remplir ?
C'est un truc que je ne fais pas en temps normal.


voili
ja;)
qui va essayer de parler moins (pas garantie)

Avatar
joyeux atchoum
s'lt

Ex : J'ai 12 etiquettes Mon premier type a 12 valeurs
et le second en a que 10 alors par precaution j'efface mais normalemment ca
sert à rien
parcequ'apres les 2 dernieres je les masques


oki
merci

ja;)
qui...