{Access} Initialisation date d'une requête sélecti

Question

Bonjour,
dans la requête sur le champ 'date de réception' 
         >=[Commandes reçues à partir du] Et <[jusqu'au]
qui affiche une boîte de dialogue demandant la saisie des dates de début et de fin,
comment initialiser ces dates avec la date de la veille + une heure précise pour l'heure de début
et date du jour + une heure précise pour l'heure de fin,
de sorte à avoir dans la boite de dialogue les champs pré renseignés.
Exemple : Date du jour = 06/09/2009 15:52:12
Boite de dialogue 1 : "Commandes reçues à partir du" 05/09/2009 08:00:00
Boite de dialogue 2 : "jusqu'au" 06/09/2009 08:00:00

merci

moiced59 · Answer

salut*


=(Date()+1) & " 08:00:00"

=(Date()-1) & " 08:00:00"

est ce que cela t aide?

alb05 · Answer

mais comment insérer cela dans la synthaxe :
>=[Commandes reçues à partir du] Et <[jusqu'au]

moiced59 · Answer

tu supprime ton: [Commandes reçues à partir du] et tu met : =(Date()+1) & " 08:00:00" 

de meme pour l autre

alb05 · Answer

ça ne répond pas à mon besoin qui est de continuer à afficher la boite de dialogue pour permettre de modifier éventuellement cette date pré renseignée.

moiced59 · Answer

saisie = InputBox("ton texte", "titre", "=(Date()+1) & " 08:00:00" ")
essai ca

alb05 · Answer

où saisir ça dans ma requête sélection ?

moiced59 · Answer

le mieux c que tu ajoute un champ a ton formulaire que tu masquera


le nom du champ  = InputBox("ton texte", "titre", "=(Date()+1) & " 08:00:00" ") 

ds ta requete com critere tu met: [forms]![nom de ton formulaire]![saisie]

ensuite tu met un bouton qui execute ta requete

alb05 · Answer

J'ai créé dans un formulaire une étiquette mais où insérer la commande 
InputBox("ton texte", "titre", "=(Date()+1) & " 08:00:00" ") 

A quel niveau :
  clic droit sur l'étiquette + "propriétés" + Etiquette()/Formulaire + et ensuite dans quelle propriété ?

merci

moiced59 · Answer

il ne faut pas creer une etiquette mais un champ que tu nome saisie

ensuite sur ouverture du formulaire tu met

saisie = InputBox("ton texte", "titre", "=(Date()+1) & " 08:00:00" ") 

ensuite tu creer ton bouton qui ouvre ta requete avec pour critere : [forms]![nom de ton formulaire]![saisie] 

voila voila tu y est presque courage

alb05 · Answer

je me retrouve très bête face à mon formulaire FORM1 que j'ai créé via l'option "créer un formule en mode création".
Il y a bien une boîte à outil dans laquelle j'avais pris étiquette mais rien concernant CHAMP.
J'ai alors essayé avec l'assistant, mais là, il ne propose que des champs de ma base et des requêtes, rien concernant un champ nouveau que je pourrai appeler "saisie".

Help, comment ajouter ce champ "saisie" ????

moiced59 · Answer

RE

qd tu es e mode creation a cote de etiquette tu as zone de texte

qd tu la creer tu fais clic droit propriete tu vas sur autre et tu le nome saisie

alb05 · Answer

J'ai trouvé pour créer un nouveau champ dans le formulaire :
   il faut passer par le bouton "ajouter une zone de texte".

Mon autre problème est que j'utilise Access2002, et InputBox semble ne pas être connu et se plante à l'ouverture du formulaire.

moiced59 · Answer

quel message as tu? inputbox en 2002 fonctionne

alb05 · Answer

Manip effectuée:

1/ clic droit dans le formulaire
2/ propriétés
3/ formulaire
4/ événement
5/ sur ouverture    DDEB= InputBox("Date Début", "LIMITES", "=(Date()+1) & " 08:00:00" ")

A l'exécution, message :
 "Microsoft Access ne peut pas trouver la macro 'DDEB= InputBox("Date Début", "LIMITES", "=(Date()+1) & " 08:00:00" ")'.

moiced59 · Answer

Ce n est pas une macro mais une procedure evenementielle qu il faut faire

limite ne met pas le code a l ouverture mais sur le clic de ton bouton cela sera plus simple

alb05 · Answer

En quoi la méthodologie que j'ai utilisé n'est pas de l'événementiel ?
1/ clic droit dans le formulaire
2/ propriétés
3/ formulaire
4/ événement
5/ sur ouverture DDEB= InputBox("Date Début", "LIMITES", "=(Date()+1) & " 08:00:00" ") 

J'ai essayé comme tu me l'a dit avec un bouton et ça marche.
Mais pourquoi il faut passer par ce bouton pour exécuter ce  DDEB= InputBox("Date Début", "LIMITES", "=(Date()+1) & " 08:00:00" ")

moiced59 · Answer

tu ne peux pas demarrer ta requete si le formulaire qui contient le champ n est pas rempli

tu peu aussi demarrer ta requete derriere la mise a jour de ce champ caché a l ouverture du formulaire

tu masque ton champ et sur apres mise a jour :docmd.openquery ......

et sur ouverture du formulaire tu met ton inputbox

{Access} Initialisation date d'une requête sélecti

17 réponses

Discussions similaires

Newsletters