OVH Cloud OVH Cloud

Etats Access 2.0

3 réponses
Avatar
Toto
Bonjour tout le monde,

Comment faire avec un Etat pour n'imprimer qu'une seule page au lieu
d'imprimer toutes les pages. (avec Access 2.0)

Merci beaucoup pour votre aide.

Toto

3 réponses

Avatar
3stone
Salut,

"Toto"
| Comment faire avec un Etat pour n'imprimer qu'une seule page au lieu
| d'imprimer toutes les pages. (avec Access 2.0)


Access 2.0 ;-(

Doit pas être différent de :
http://www.mvps.org/accessfr/reports/rpt0002.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Toto
Bonjour 3stone,

C'est bien, mais ça ne fonctionne pas du tout avec access 2.0. J'ai bien
essayé avec la syntaxe de code pour access 2.0...
Avec le code tel quel il y a des erreurs de compilation.
Voici le code:

Dim DocName As String
Dim stLinkCriteria As String

DocName = "Entrée dossier"
StrCriterion = "Code dossier=" & Me!Code dossier
DoCmd OpenReport DocName, acViewPreview, , stLinkCriteria

Egalement essayé ses variantes de code:

DoCmd OpenReport DocName, A_NORMAL
DoCmd.OpenReport "rptEmployees", acViewPreview
DoCmd OpenReport DocName, acViewPreview,
DoCmd OpenReport DocName, acViewPreview , ,
DoCmd Print
DoCmd OpenReport DocName, acNormal, , stLinkCriteria

Dim strDocName As String
Dim strWhere As String
strDocName = "Entrée dossier"
strWhere = "[test Dossiers formulaire recherche]=" & Me!test Dossiers
formulaire recherche
DoCmd OpenReport strDocName, acPreview, , strWhere

Celà ne fonctionne pas...

Merci d'avance pour votre aide.



Salut,

"Toto"
| Comment faire avec un Etat pour n'imprimer qu'une seule page au lieu
| d'imprimer toutes les pages. (avec Access 2.0)


Access 2.0 ;-(

Doit pas être différent de :
http://www.mvps.org/accessfr/reports/rpt0002.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw




Avatar
3stone
Salut,

"Toto"
| C'est bien, mais ça ne fonctionne pas du tout avec access 2.0. J'ai bien
| essayé avec la syntaxe de code pour access 2.0...

Je n'ai jamais disposé de Access 2.0 ;-(


| Avec le code tel quel il y a des erreurs de compilation.
| Voici le code:
|
| Dim DocName As String
| Dim stLinkCriteria As String
|
| DocName = "Entrée dossier"
| StrCriterion = "Code dossier=" & Me!Code dossier
| DoCmd OpenReport DocName, acViewPreview, , stLinkCriteria


Ecrit: "[Code dossier]=" ... avec des crochets

(ne pas utiliser des espaces est encore plus simple ;-)



et, [Code dossier] est bien numérique ?

stLinkCriteria = "[Code dossier]='" & Me![Code dossier] & "'"

PS: StrCriterion ?? faute de recopie ??


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw