Discussion :

[nadege46]

bonjour,

voila je doit imprimer un formulaire vierge pour des reservations,
à chaque fois que j'imprime le formulaire j'aimerais que la date en entête change

mon formulaire:

[ entête avec la date ]

12H Nom nbre n°table





13h



comme pour faire des feuilles d'agenda sans avoir à changer la date manuellement pour chaque impression.


merci de votre aide

[dr_feelgood]

Tu peux utiliser la fonction DateAdd("d", 1, "31-Jan-95") qui te permet d'ajouter un jour, un mois, ou une année à la date de départ.

pour incrémenter, tu pourrais utiliser le numéro de la page de ton état :

inspires toi de ce post :
http://www.developpez.net/forums/d53...outes-lettres/

Il te faudra encore passer la date de départ à ton état

[nadege46]

merci pour le lien
mais j'arrive pas à trouver comment faire

[Gabout]

Bonjour,

Je n'ai pas bien compris... Ne voudrais-tu mettre la date du jour en haut de ton formulaire de réservations ?

Si c'est le cas, il te suffit d'utiliser la fonction Date dans un champ calculé.

A+

[Invité]

Bonjour

D'abord pourquoi imprimer un formulaire ? Les Etats sont prévus pour cela.

Même pour un état, Gabout t'a donné la solution, mais attention ce n'est pas à chaque impression, mais à chaque changement de date, donc il faut faire attention à ce que l'on écrit.

Starec

[nadege46]

justement c'est ca le problème.

c'est qu'il faut changer la date à chaque fois et je voulais savoir si il y avait une autre façon de faire.

en fait j'ai déjà un fichier sous excel dans lequel je change à chaque fois la date en en tête de page avant de l'imprimer.

je m'explique.

c'est pour le classeur des réservation d'un restaurant.

il faut que j'imprime une page pour chaque jour de l'année en inscrivant la date et 365 c'est long à faire et ennuyeux.

expl.: lundi 22 septembre 2008, mardi 23 septembre 2008, mercredi..
et à chaque fois je doit le faire manuellement

c'est pour ça que je chercher une solution qui me permetterait d'imprimer mes feuilles avec un changement automatique de la date. peutêtre avec une formule ou autre.

[Invité]

Bonjour

Si c'est le cas, il te suffit d'utiliser la fonction Date dans un champ calculé.

Gabout t'a donné la solution, une zone de texte indépendante dans laquelle tu écris

Code :

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

=Date()

Starec

[nadege46]

d'accord pour la fonction =date mais ca va me marquer la date du jour, j'ai besoin que la date change comme par exemple qqch comme =date(+1;+2...)

[dr_feelgood]

d'accord pour la fonction =date mais ca va me marquer la date du jour, j'ai besoin que la date change comme par exemple qqch comme =date(+1;+2...)

Cette fonction existe dans access... et s'appelle DateAdd. Tu peux trouver cette fonction dans l'aide d'Access (touche F1)

Pour resumer, tu veux créer un Etat, qui te permet d'imprimer un certain nombre de pages, et où chaque page indique une date différente.

Je ne pense pas qu'il soit possible d'imprimer plusieurs pages d'un état, sans qu'il soit lié à une table ou une requête et tu nous dis que le formulaire est vierge (donc pas de données à imprimer)

Je te propose pour l'instant de créer une table "liste" avec un champ "numero":

Numero
1
2
3
4
5
6
7
8
10

ensuite tu crée un état lié a cette table en mettant dans l'état le champ numero dans la section détail.
Sur les propriétés de la section détail tu mets la propriété saut de page à "après section"
En visualisant l'état, tu dois avoir 10 pages, avec les numéros affichés.

Ajoutes ensuite une zone de texte où comme source contrôle tu tapes:
= DateAdd("d",[numero] , date())

En visualisant l'etat tu aura 10 pages avec 10 dates suivant la date du jour.

Pour afficher (ou imprimer) moins de pages, il faudra ouvrir l'état avec un critère de selection .....

Voila une piste que je te propose, qui me paraît la plus simple dans l'immédiat, peut être qu'un autre participant pourra te proposer une meilleure solution....

[Gabout]

Ok, je crois que j'ai compris ce que tu recherches...

Tu te crées un champ calculé (par exemple dans l'en-tête de ton état) que tu appelles MaDate.

Sur activation de ton état, tu codes

Code :

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

1
2
3
Private Sub Report_Activate()
   Me.MaDate = InputBox("Entrez la date", "Date à éditer")
End Sub

Attention, l'information qui apparaitra sur ton état sera strictement ce tu lui auras entré !

[nadege46]

salut,

merci pour ton idée est géniale

juste un tit hic, la fonction Ajdate me donne erreur#

=AjDate("\d";[numéro];Maintenant()) voilà ce que j'ai écrit....?

[Gabout]

Re,

Essaie

Code :

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

=AjDate("d";[Nombre de jours];Date())

[nadege46]

bonjour,

j'ai bien essayé comme tu me l'a indiquer mais je n'y arrive toujours pas...

de plus le "/d" se met automatiquement même quand je l'enlève access le remet...