Discussion :

[Daniela]

bonsoir,
moi j'ai une query qui visualise les commandes effectuée par un client moi je vudrais recuperer les enregistrement à la date d jour et l'heure systeme moins 10 minute.
pour la date du jour j'ai trouvé la solution mais comment on fais pour sortir les records qui correspond: records > H - 10 minutes.

Merci d'avance

[marot_r]

Tu peux utiliser Time() qui va te donner l'heure courrante ou Now() qui te donne la date et l'heure courrante.

Un truc du genre

Code :

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

DateAdd("nn";-10;now())

dans le critere de ta colonne date devrait faire l'affaire.

[Daniela]

mais il faut que je fasse un beforeupdate?
merci merci

[marot_r]

J'ai commis une petite erreur c'est DateAdd("n";-10;now()) avec un seul n au lieu de 2.

Il suffit que tu mettes cela dans la ligne critère de ta requête.

Ta requête en SQL devrait avoir l'air de :

Code SQL :

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

select MaTable.* from MaTable where MaTable.MaDateHeure<=DateAdd("n";-10;now());

qui est une requête qui donne tous les champs de MaTable et tous les enregistrements dont la date MaDateHeure est inférieure ou égale à la date et l'heure actuelle.

BeforeUpdate c'est un événement de formulaire.

A+

[Daniela]

J'ai commis une petite erreur c'est DateAdd("n";-10;now()) avec un seul n au lieu de 2.

Il suffit que tu mettes cela dans la ligne critère de ta requête.

Ta requête en SQL devrait avoir l'air de :

Code SQL :

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

select MaTable.* from MaTable where MaTable.MaDateHeure<=DateAdd("n";-10;now());

qui est une requête qui donne tous les champs de MaTable et tous les enregistrements dont la date MaDateHeure est inférieure ou égale à la date et l'heure actuelle.

BeforeUpdate c'est un événement de formulaire.

A+

moi j'ai fais ça mais il me dit qu'il y a un erreur dans l'ecriture il manque une paranthese mais je sais pas où

Code :

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

SELECT Uscita_bar.ID_Art, Uscita_bar.Dataconsumazione, Uscita_bar.OraConsumazione, Uscita_bar.Quantità, Uscita_bar.IDContatto FROM Uscita_bar WHERE ((Uscita_bar.Dataconsumazione)=Date() and Uscite_bar.Oraconsumazione=<=DateAdd("n";-10;now())) ORDER BY Uscita_bar.Oraconsumazione DESC , uscita_bar.dataconsumazione DESC;

[marot_r]

Désolé je me suis encore trompé dans la syntaxe.

Je verrifierai avec Access avant de poster mon SQL au lieu de travailler de mémoire.

Si tu écrit directement en SQL il faut remplacer les ; par des , dans DateAdd("n",-10,now())) . Ta requête doit être correct comme cela :

Code sql :

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

SELECT Uscita_bar.ID_Art, Uscita_bar.Dataconsumazione, Uscita_bar.OraConsumazione, Uscita_bar.Quantità, Uscita_bar.IDContatto FROM Uscita_bar WHERE ((Uscita_bar.Dataconsumazione)=Date() and Uscite_bar.Oraconsumazione=<=DateAdd("n",-10,now())) ORDER BY Uscita_bar.Oraconsumazione DESC , uscita_bar.dataconsumazione DESC;

A+

[Daniela]

Désolé je me suis encore trompé dans la syntaxe.

Je verrifierai avec Access avant de poster mon SQL au lieu de travailler de mémoire.

Si tu écrit directement en SQL il faut remplacer les ; par des , dans DateAdd("n",-10,now())) . Ta requête doit être correct comme cela :

Code sql :

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

SELECT Uscita_bar.ID_Art, Uscita_bar.Dataconsumazione, Uscita_bar.OraConsumazione, Uscita_bar.Quantità, Uscita_bar.IDContatto FROM Uscita_bar WHERE ((Uscita_bar.Dataconsumazione)=Date() and Uscite_bar.Oraconsumazione=<=DateAdd("n",-10,now())) ORDER BY Uscita_bar.Oraconsumazione DESC , uscita_bar.dataconsumazione DESC;

A+

il y a un probleme, la query marche mais le problme est qui ne marche plus le bouton que j'ai cree pour visualiser les commandes dans le sous formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub salva_comanda_Click()
On Error GoTo Err_salva_comanda_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    CurrentDb.Execute "insert into Uscita_bar(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) values('" & Me.ID_Art & "','" & Me.DataConsumazione & "', '" & Me.OraConsumazione & "', " & Me.Quantità & ", '" & Me.IDContatto & "') "
    CurrentDb.Execute "insert into uscite select * from uscita_bar"
    Me!Uscita_bar1.Form.Requery
Exit_salva_comanda_Click:
    Exit Sub
Err_salva_comanda_Click:
    MsgBox Err.Description
    Resume Exit_salva_comanda_Click
 
End Sub

[marot_r]

Les données sont-elles bien insérées dans la table Uscita_bar même si tu ne les vous pas à l'écran ?

Ajoutes-tu une date et une heure dans ta table Uscita_bar ?

Si oui, est-ce la date et l'heure courante ?

Si oui, ta requête n'affichant plus que les dates et heures <= Now()-10 il est normal que ta nouvelle entrée n'apparaisse pas.

A+

[Daniela]

Les données sont-elles bien insérées dans la table Uscita_bar même si tu ne les vous pas à l'écran ?

Ajoutes-tu une date et une heure dans ta table Uscita_bar ?

Si oui, est-ce la date et l'heure courante ?

Si oui, ta requête n'affichant plus que les dates et heures <= Now()-10 il est normal que ta nouvelle entrée n'apparaisse pas.

A+

le probleme vien de l'heure parce que avec la date tout marche bien...

[marot_r]

Désolé mais je ne comprends pas ta réponse.

Ton champ qui sert de critère contient-il la date et l'heure ou seulement la date ?

A+

[Daniela]

Désolé mais je ne comprends pas ta réponse.

Ton champ qui sert de critère contient-il la date et l'heure ou seulement la date ?

A+

il y a un champ qui contient la date et un qui contien l'heure.

[marot_r]

OK alors tu peux soit combiner tes 2 champs pour avoir la date et l'heure soit changer ton test pour tester seulement l'heure. Si tu n'as pas des demandes aux alentours de minuit, c'est cette dernière option qui est la plus simple.

Pour combiner Date et Heure en un seule champ tu peux procéder de façon semblable cela :

Code sql :

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

DateSerial(Year([ChampDate] ,month([ChampDate]), day([ChampDate])) + TimeSerial(hour([ChampHeure]), minute([ChampHeure]), seconde([ChampHeure])) as CHampDateHeure

Pour Tester seulement sur l'heure :

Code :

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

DateAdd("n",-10,time())

qui va prendre l'heure courrante moins 10 minutes.

Attention si tu es à moins de 10mn de minuit (Timeserial(0,0,0)) cela donne un résultat abérant.

A+